asp解密、还原chrw、chr编码文件的方法_
  将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简洁，用正则提取内容中的chrw串，然后eval动态执行猎取的chrw串得到内容，再执行替换即可。留意事项参考源代码里面的说明，留意将源代码保存为vbs格式的文件后执行，假如是asp文件，需要将createobject修改为ateobject。 htmlencode
  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为，则解码后的文件为 
  32 ts.write s 
  33 ts.close 
  34 set ts=nothing 
  35 set fso=nothing 
  36 end function 
  37 decodechrwfile("")'留意修改这里被chrw加密的文件名称及路径，假如是客户
端提交的内容 
  更多信息请查看IT技术专栏
           
                              ...