1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| #!/usr/local/bin/perl
$aim = 'http://www.votrelien.tld/';
open (UAS, "< uas.txt") or die ("Pb fichier uas.txt $!");
while (<UAS>) { push (@uas, $_); }
close (UAS);
open (FILEIN, "< proxies.txt") or die ("Pb fichier proxies.txt $!");
while ($proxy = <FILEIN>) {
chomp($proxy);
require LWP::UserAgent;
my $agent = LWP::UserAgent->new;
$agent->timeout(25);
$uag = $uas[int rand(@uas)];
$agent->agent($uag);
$fromail = fakemail;
$agent->from($fromail);
$agent->proxy($proxy);
require HTTP::Request;
$request = HTTP::Request->new(GET => '$aim');
$dapage = $agent->request($request);
$content = $dapage->content;
}
sub fakemail {
my $email;
@pre=('info','admin','master','boss','slave','abuse','josh');
@doma=('free','random','first','alpha','post','pre','future');
@domb=('service','info','porn','mail','internet','music','stuff');
@ext=('com','net','org','fr','co.uk');
$email = $pre[int rand(@pre)]+'@'+$doma[int rand(@doma)];
$email .= "-" if (rand() > 0.5);
$email .= $domb[int rand(@domb)]+"."+$est[int rand(@ext)];
return $email;
} |
Partager