#! /user/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$h = new HTTP::Headers;
$h->user_agent('RPT-HTTPClient/0.3-3E');
$ua->proxy( ['http', 'https'] ,'http://64.123.231.129:8080/');
open (FILE,"urls.txt");
@list = <FILE>;
foreach $line (@list) {
chomp $line;
($sitename,$crappolla) = split (/\?/,$line);
($entry,$id) = split (/\=/,$crappolla);
$clip = 'entry_id='."$id".'&author=Your keywords&[email protected]&url=http://www.yoursite.com/&forget=bakecookie&text=TGP thumbnail gallery porn teen gay hardcore nonnude mature bondage shemales lesbian teenage slut blowjob cumshot facial joey tawnee qmov big naturals cumfiesta we live together welivetogether asian BBW upskirt voyeur panty panties pantyhose breasts boobs nipples hahahaha pussy cock dick balls anal reality movies videos video pictures free porn archives casino gambling piss secretary uniform tied cum viagra penis length open legs feet hairy amateur women girls ladies babes anime hentai ebony gothic latinas interracial pregant fucking teens housewives pornstars celeb celebrity &post= Post ';
#$clip = 'entry_id='."$id".'&author=Your keywords&[email protected]&url=http://www.yoursite.com/&text=Oops I did it again! - Brittney Spears&post= Post ';
print $sitename.' '.$id,"\n";
$request = HTTP::Request->new('POST','http://'."$sitename",$h);
$request->content_type('application/x-www-form-urlencoded');
$request->content($clip);
$request->referer("$sitename");
$response = $ua->simple_request($request);
print $response->header('location'), "\n";
if($response->is_success()) { print "\nDone\n";
} else { print "ERROR Code: "; print $response->code(),
" Message: ", $response->message(), "\n";
}
#exit;
if ($id > 1) {
&subtime
}
}
sub subtime {
for ($idd = $id;$idd > 1;$idd--) {
$clip = 'entry_id='."$idd".'&author=Your keywords&[email protected]&url=http://www.yoursite.com/&text=Oops I did it again! - Brittney Spears TGP thumbnail gallery we live together welivetogether little trouble maker joey jenna big naturals in the vip latina hardcore movies solo video girl&post= Post ';
print $sitename.' '.$idd,":::\n";
$request = HTTP::Request->new('POST','http://'."$sitename",$h);
$request->content_type('application/x-www-form-urlencoded');
$request->content($clip);
$request->referer("$sitename");
$response = $ua->simple_request($request);
print $response->header('location'), "\n";
if($response->is_success()) { print "Done\n";
} else { print "ERROR Code: "; print $response->code(),
" Message: ", $response->message(), "\n";
}
if ($response->code() =~ /^4/) {
$idd = '1'; print "403,401,402\n";
}
if ($response->content() =~ /authcode/) {
$idd = '1'; print "authcode\n";
}
if ($response->content() =~ /submission failed/) {
$idd = '1'; print "sub failed\n";
}
if ($response->code() =~ /^5/) {
$idd = '1'; print "503,501,502\n";
}
}
}
#! /user/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$h = new HTTP::Headers;
$h->user_agent('RPT-HTTPClient/0.3-3E');
$ua->proxy( ['http', 'https'] ,'http://64.123.231.129:8080/');
open (FILE,"urls.txt");
@list = <FILE>;
foreach $line (@list) {
chomp $line;
($sitename,$crappolla) = split (/\?/,$line);
($entry,$id) = split (/\=/,$crappolla);
$clip = 'entry_id='."$id".'&author=Your keywords&[email protected]&url=http://www.yoursite.com/&forget=bakecookie&text=TGP thumbnail gallery porn teen gay hardcore nonnude mature bondage shemales lesbian teenage slut blowjob cumshot facial joey tawnee qmov big naturals cumfiesta we live together welivetogether asian BBW upskirt voyeur panty panties pantyhose breasts boobs nipples hahahaha pussy cock dick balls anal reality movies videos video pictures free porn archives casino gambling piss secretary uniform tied cum viagra penis length open legs feet hairy amateur women girls ladies babes anime hentai ebony gothic latinas interracial pregant fucking teens housewives pornstars celeb celebrity &post= Post ';
#$clip = 'entry_id='."$id".'&author=Your keywords&[email protected]&url=http://www.yoursite.com/&text=Oops I did it again! - Brittney Spears&post= Post ';
print $sitename.' '.$id,"\n";
$request = HTTP::Request->new('POST','http://'."$sitename",$h);
$request->content_type('application/x-www-form-urlencoded');
$request->content($clip);
$request->referer("$sitename");
$response = $ua->simple_request($request);
print $response->header('location'), "\n";
if($response->is_success()) { print "\nDone\n";
} else { print "ERROR Code: "; print $response->code(),
" Message: ", $response->message(), "\n";
}
#exit;
if ($id > 1) {
&subtime
}
}
sub subtime {
for ($idd = $id;$idd > 1;$idd--) {
$clip = 'entry_id='."$idd".'&author=Your keywords&[email protected]&url=http://www.yoursite.com/&text=Oops I did it again! - Brittney Spears TGP thumbnail gallery we live together welivetogether little trouble maker joey jenna big naturals in the vip latina hardcore movies solo video girl&post= Post ';
print $sitename.' '.$idd,":::\n";
$request = HTTP::Request->new('POST','http://'."$sitename",$h);
$request->content_type('application/x-www-form-urlencoded');
$request->content($clip);
$request->referer("$sitename");
$response = $ua->simple_request($request);
print $response->header('location'), "\n";
if($response->is_success()) { print "Done\n";
} else { print "ERROR Code: "; print $response->code(),
" Message: ", $response->message(), "\n";
}
if ($response->code() =~ /^4/) {
$idd = '1'; print "403,401,402\n";
}
if ($response->content() =~ /authcode/) {
$idd = '1'; print "authcode\n";
}
if ($response->content() =~ /submission failed/) {
$idd = '1'; print "sub failed\n";
}
if ($response->code() =~ /^5/) {
$idd = '1'; print "503,501,502\n";
}
}
}
Comment