#!/usr/bin/perl

## Coded by slider
## /

use LWP::UserAgent;
use HTTP::Cookies;
use strict;
use warnings;

my ($u_pass,$ua,$cookies,$i,$u_name,$domain,$v_name,$vc_dom,$go,$strings,
	$auth,$first,$id,$email,$vmail,$session,$vote,$start,$ph_page,$album);

##~~~~~~~~��������� ���~~~~~~~~~~~~~~~~~~~~~~~~~~
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	#��� E-Mail ;
	$email = 'xxxxxxxxx@mail.ru';
	$u_pass = 'xxxxxxxxx';
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~	
	#E-Mail ������ ;
	$vmail = 'xxxxxxxxx@mail.ru';
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

$ua=LWP::UserAgent->new;$ua->timeout(10);
$ua->agent('Opera/9.00 (Windows NT 5.1; U; en)');
$ua->requests_redirectable(0);
$cookies = HTTP::Cookies->new;
$ua->timeout(20);
$ua->cookie_jar($cookies);
	
PsychoGen();

sub requester{
	my $req = HTTP::Request->new(POST => $_[0]);
	$req->content_type('application/x-www-form-urlencoded; charset=UTF-8');
	$req->content($_[1]);
	my $res = $ua->request($req);
	my $strings = $res->content();
	if($_[2]==1){if ($strings =~ /$_[3]/){return $1;}}
	if($_[2]==2){if ($strings =~ $_[3]){return $1;}}
	if($_[2]==3){return $strings;}
}

sub mail_prs{
	if($_[0]==0){if ($_[1]=~/(\S+)\@(\w+)\.(\w+)/){$u_name=$1;$domain=$2;}}
	if($_[0]==1){if ($_[1]=~/(\S+)\@(\w+)\.(\w+)/){$v_name=$1;$vc_dom=$2;}}
	}
	
sub authorization{
	$session=requester("http://my.mail.ru/cgi-bin/auth","Login=$_[0]&Domain;=$_[1].ru&Password;=$_[2]",1,'<a href="/attachments/1445/_.__/">here');
	if($session){$auth=requester($session,0,1,'<a href="/attachments/1445/_.__/">here');}else{print("[-] Access Denied\n\n");copyright();}
	if($auth){$go=requester($auth,0,1,'<a href="/attachments/1445/_.__/">here');}
	if($go){$start=requester($go,0,2,'<input class="but_min_out" ');print "[~] authorization success: $_[0]\@$_[1].ru\n\n";} } sub copyright{ print "\n--> Final!\n\n".'-' x 56 . "\n[i] Coded by slider \n" . '-' x 56 . "\n";
	system('pause');die("\n");
}

sub PsychoGen{
	system(cls);print  '-' x 56 . "\n [*] MRU Plus Plus marker by: slider\n [*] /\n" . '-' x 56 . "\n\n";	
	mail_prs(0,$email);mail_prs(1,$vmail);authorization($u_name,$domain,$u_pass);
	$first=requester("http://my.mail.ru/$vc_dom/$v_name/",0,1,'<a href="(\S+)" class="mf_a45 mr3');	
	if($first=~/http:\/\/(\S+)\/(\S+)\/(\S+)\/(\S+)\/(\d+)/){print "[i] First Page: $first\n[i] First id: $5\n[i] Current album: $4\n\n";$go=$5;$album=$4}
	while(1){$vote=requester('http://foto.mail.ru/cgi-bin/photo/ajax','ajax_call=1&func_name=perl_add_vote&data=["'.$v_name.'@'.$vc_dom.'.ru", 5, '.$go.', "'.$album.'", 0, ""]',3,'');
	if($vote=~'IP'){print "[id:$go] Already voted\n";}
	else{if($vote=~'0,0,0,0'){print "[id:$go] Try again later (you are banned)\n";copyright();}
	else{print "[id:$go] $vote\n";}}$ph_page=requester($first,0,1,'<a href="(\S+)" title="��������� ����');
	if($ph_page=~/http:\/\/(\S+)\/(\S+)\/(\S+)\/$album\/(\d+)/){$first=$ph_page;$go=$4;}
	else{copyright()}}
}

## Active Perl:
## http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.820-MSWin32-x86-274739.msi

## Special for antichat