カレッヂ |
質問者 今夜がやすだ
投稿日 2/14(木) 00:25:46
[削除] (返信・回答が付いた後にこの質問の削除はできません)
次のJScript文はPerlスクリプトにできるでしょうか? Perlについてはちょっと自信があるのですが、JScriptについてはまだまだなので、 どこが無理なのかわかりません。 どうか教えてくださいまし。 $=document; $$="write"; __=$[$$]; $[$$]=function _(){ if(!(arguments.callee.caller==D&&__(arguments[0]))) __=function(){} }; function D(a){ var r,a=a.replace(r=a.match(/^\d+/)[0],'').match(/[^A-Z]+/g),i=(t="")&r; for(;i<a.length;i++) t+=String.fromCharCode(parseInt(a[i],26)^(i?t.charCodeAt(i-!0):r)); ($[$$]=eval(String.fromCharCode(95)))(t) }; D.toString=_.toString=$[$$].toString=function(){return ""} |
返信(回答)する
Web裏技 |