この記事では主にasp復号化、chrw、chrエンコードされたファイルの復元方法、chrwコンテンツをデコードする方法を紹介しますので、困っている方は参考にしてください。
chrw エンコードによって asp 関数のパラメーターを暗号化した後、chrw コンテンツをデコードする方法。次のデコード関数は非常に単純であることがわかり、正規表現を使用してコンテンツ内の chrw 文字列を抽出し、取得した chrw 文字列を eval で動的に実行してコンテンツを取得し、置換を実行します。注: ソース コードのコメントを参照してください。ASP ファイルの場合は、実行前にソース コードを vbs 形式でファイルとして保存する必要があります。
function readfile(fn)'エンコードされたファイルの内容を読み取ります set fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(fn,1,false,-2)'ここの最後のパラメータに注意してください。 unicode エンコーディング、-2 (システムのデフォルトのエンコーディング) を -1 (unicode エンコーディング) に変更します。 0 は ascii readfile=ts.ReadAll ts.close set ts=nothing set fso=nothingend functionfunction decodechrw(s)'decode chrw エンコードされたコンテンツ set rx=new RegExp rx.Global=true rx.IgnoreCase=true rx.Pattern=ChrW/s*/(/s*/d+/s*/)(/s*&/s*ChrW/s*/(/s*/d+/s*/))*'chrw 文字列をデコードしますmc の各 m に対して mc=rx.Execute(s) を設定します。 s=replace(s, m.value,&eval(m.value)&) next rx.Pattern=Chr/s*/(/s*/d+/s*/)(/s*&/s*Chr/s*/(/s*/d+/s*/))*'緊急chr文字列set mc=rx.Execute(s) for each m in mc s=replace(s, m.value,&eval(m.value)&) next decodechrw=s end functionfunction decodechrwfile(fn) 'chrw エンコーディングを含むファイルをデコードします s=readfile(fn) s=decodechrw(s) 'デコードされた内容をファイルに書き込みます set fso=createobject(scripting.filesystemobject) set ts=fso.OpenTextFile(replace(fn,.,_decode.),2,true,-2)'元のファイル名が _decode に置き換えられたファイルにデコードされた内容を書き込みます。 fn が encode.txt の場合、デコードされた内容が書き込まれます。ファイルは encode_decode.txt ts.write s ts.close set ts=nothing set fso=nothingend functiondecodechrwfile(encode.txt)' クライアントによって送信されたコンテンツである場合は、chrw によって暗号化されたファイル名とパスをここで変更することに注意してください。