asp解密、還原chrw、chr編碼文件的方法

將asp函數的參數通過(guò)chrw編碼加密后，如何解碼chrw內容。下面的解碼函數，原來(lái)很簡(jiǎn)單，用正則提取內容中的chrw串，然后eval動(dòng)態(tài)執行獲取的chrw串得到內容，再執行替換即可。注意事項參考源代碼里面的注釋?zhuān)⒁鈱⒃创a保存為vbs格式的文件后執行，如果是asp文件，需要將createobject修改為server.createobject。

function readfile(fn)'讀取編碼文件的內容
 set fso=createobject("scripting.filesystemobject")
 set ts=fso.OpenTextFile(fn,1,false,-2)'注意這里的最后一個(gè)參數，如果你的是unicode編碼，將-2（系統默認編碼）修改為-1（unicode編碼）。0為ascii
 readfile=ts.ReadAll
 ts.close
 set ts=nothing
 set fso=nothing
end function
function 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 function
function decodechrwfile(fn)'解碼內容包含chrw編碼的文件
 s=readfile(fn)
 s=decodechrw(s)
 '將解碼內容寫(xiě)回文件
 set fso=createobject("scripting.filesystemobject")
 set ts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)'寫(xiě)入解碼后的內容到原來(lái)文件名替換為 _decode的文件里面，如fn為encode.txt，則解碼后的文件為encode_decode.txt
 ts.write s
 ts.close
 set ts=nothing
 set fso=nothing
end function
decodechrwfile("encode.txt")'注意修改這里被chrw加密的文件名稱(chēng)及路徑，如果是客戶(hù)端提交的內容