| 标题 | asp解密、还原chrw、chr编码文件的方法 |
| 内容 | 将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简单，用正则提取内容中的chrw串，然后eval动态执行获取的chrw串得到内容，再执行替换即可。注意事项参考源代码里面的注释，注意将源代码保存为vbs格式的文件后执行，如果是asp文件，需要将createobject修改为server.createobject。 01 function readfile(fn)'读取编码文件的内容 02 set fso=createobject("scripting.filesystemobject") 03 set ts=fso.OpenTextFile(fn,1,false,-2)'注意这里的最后一个参数，如果你的是unicode编码，将-2（系统默认编码）修改为-1（unicode编码）。0为ascii 04 readfile=ts.ReadAll 05 ts.close 06 set ts=nothing 07 set fso=nothing 08 end function 09 function decodechrw(s)'解码chrw编码的内容 10 set rx=new RegExp 11 rx.Global=true 12 rx.IgnoreCase=true 13 rx.Pattern="ChrW\s*\(\s*\d+\s*\)(\s*&\s*ChrW\s*\(\s*\d+\s*\))*"'解码chrw串 14 set mc=rx.Execute(s) 15 for each m in mc 16 s=replace(s, m.value,""""&eval(m.value)&"""") 17 next 18 rx.Pattern="Chr\s*\(\s*\d+\s*\)(\s*&\s*Chr\s*\(\s*\d+\s*\))*"‘急吗chr串 19 set mc=rx.Execute(s) 20 for each m in mc 21 s=replace(s, m.value,""""&eval(m.value)&"""") 22 next 23 decodechrw=s 24 25 end function 26 function decodechrwfile(fn)'解码内容包含chrw编码的文件 27 s=readfile(fn) 28 s=decodechrw(s) 29 '将解码内容写回文件 30 set fso=createobject("scripting.filesystemobject") 31 set ts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)'写入解码后的内容到原来文件名替换为 _decode的文件里面，如fn为encode.txt，则解码后的文件为encode_decode.txt 32 ts.write s 33 ts.close 34 set ts=nothing 35 set fso=nothing 36 end function 37 decodechrwfile("encode.txt")'注意修改这里被chrw加密的文件名称及路径，如果是客户端提交的内容 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。