sub login{
my($ua, $seed,$cookie_jar) = @_;
$cookie_jar->clear();
if(scalar @accs == 0) {die("No more valid accounts for this thread
");}
if($seed < $size) {
my ($login, $pass) = split /$repl/, $accs[$seed % $size];
my $answ = $ua->post("http://mirtesen.ru/login",{
"auth[backurl]" => "http://mirtesen.ru/",
"auth[login]" => $login,
"auth[password]" => $pass,
"auth[remember]" => "on"})->as_string;
if($answ =~ /302/){print "Current account: $login:$pass
"; return 1;}else{
if($answ =~ /captcha/login?(.*?)"/){
my $sid = $1;
my $dig = captcha($ua,$sid);
my $ans = $ua->post("http://mirtesen.ru/login",{
"auth[backurl]" => "http://mirtesen.ru/",
"auth[login]" => $login,
"auth[password]" => $pass,
"auth[capcha]" => $dig})->as_string;
if($ans =~ /302/){print "Current account: $login:$pass
"; return 1;
}else{ print "Error account: $login:$pass
";
splice @accs,
$seed % $size, 1;
return 0;
sleep($sleep);}}
}}}}