$_=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
欢迎光临 星星博客 (http://commerce.huhoo.net/) | Powered by Discuz! 7.0.0 |