$_=q^use IO::Socket;$s=new IO::Socket::INET(Listen=>;5,LocalPort=>;8888);s
/./"&#".ord($&).";"/eg;while(select$c=$s->;accept){<$c>;=~m#/+(\S+)#;$i=$1
!~/\.\./*open(f,$1)?join"",<f>;:"<html>;<pre>;\$_=q%c$_%c;eval</pre>;</html>;
";-e$1&&$1=~/cgi$/?eval$i:printf"HTTP/1.0 200$/$/$i",94,94;close}^;eval
loris 回复于：2004-03-08 00:12:11
看不懂，请指教。
jason_liuk 回复于：2007-03-26 11:07:02
web监控程序？看不太懂。。
|
