這篇文章主要介紹了asp解密、還原chrw、chr編碼檔案的方法,解碼chrw內容的方法,需要的朋友可以參考下
將asp函數的參數透過chrw編碼加密後，如何解碼chrw內容。下面的解碼函數，原來很簡單，用正規提取內容中的chrw字串，然後eval動態執行獲取的chrw字串得到內容，再執行替換即可。注意事項參考原始碼裡面的註釋，注意將原始碼儲存為vbs格式的文件後執行，如果是asp文件，需要將createobject修改為server.createobject。
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)'解碼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串set mc=rx.Execute(s) for each m in mc 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加密的檔案名稱及路徑，如果是客戶端提交的內容