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

237 阅读 0 评论 157 点赞

我是靠谱客的博主土豪乌冬面，这篇文章主要介绍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="ChrWs*(s*d+s*)(s*&s*ChrWs*(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="Chrs*(s*d+s*)(s*&s*Chrs*(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加密的文件名称及路径，如果是客户端提交的内容

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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="ChrWs*(s*d+s*)(s*&s*ChrWs*(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="Chrs*(s*d+s*)(s*&s*Chrs*(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加密的文件名称及路径，如果是客户端提交的内容