asp解密、还原chrw、chr编码文件的方法_

1、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

2、.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=ChrWs*(s*

3、d+s*)(s*s*ChrWs*(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=Chrs*(s*d+s*)(s*s*Chrs*(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

4、 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 decodechr