asp解密、还原chrw、chr编码文件的方法
来源：爱站网时间：2020-04-16编辑：网友分享
解密在很多项目上都需要接触，但是在ASP中的解密函数大家了解多少呢？我们在执行过程中又要如何获得注释和注意事项呢？下面爱站技术频道来给大家介绍asp解密、还原chrw、chr编码文件的方法，希望对你学习这方面知识有所帮助。
解密在很多项目上都需要接触，但是在ASP中的解密函数大家了解多少呢？我们在执行过程中又要如何获得注释和注意事项呢？下面爱站技术频道来给大家介绍asp解密、还原chrw、chr编码文件的方法，希望对你学习这方面知识有所帮助。
将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=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)
'将解码内容写回文件
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=nothing
end function
decodechrwfile("encode.txt")'注意修改这里被chrw加密的文件名称及路径，如果是客户端提交的内容
通过爱站技术频道介绍的asp解密、还原chrw、chr编码文件的方法，大家都了解了吧！其实这个功能在ASP中是常用的功能，而且很实用，所以我们要充分学习功能操作。
