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

2024年2月8日发(作者：)

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

将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简洁，用正则提取内容中的chrw串，然后eval动态执行猎取的chrw串得到内容，再执行替换即可。留意事项参考源代码里面的说明，留意将源代码保存为vbs格式的文件后执行，假如是asp文件，需要将createobject修改为object。

01 function readfile(fn)'读取编码文件的内容

02 set

fso=createobject("stemobject")

03 set ts=xtFile(fn,1,false,-2)'留意这里的最终一个参数，假如你的是unicode编码，将-2（系统默认编码）修改为-1（unicode编码）。0为ascii

04 readfile=l

05

06 set ts=nothing

07 set fso=nothing

08 end function

09 function decodechrw(s)'解码chrw编码的内容

10 set rx=new RegExp

11 =true

12 Case=true

13

n="ChrWs*(s*d+s*)(s*s*ChrWs*(s*d+s*))*"'解码chrw串

14 set mc=e(s)

15 for each m in mc

16 s=replace(s, ,""""eval()"""")

17 next

18

n="Chrs*(s*d+s*)(s*s*Chrs*(s*d+s*))*"‘急吗chr串

19 set mc=e(s)

20 for each m in mc

21 s=replace(s, ,""""eval()"""")

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("stemobject")

31 set

ts=xtFile(replace(fn,".","_decode."),2,true,-2)'写入解码后的内容到原来文件名替换为 _decode的文件里面，如fn为，则解码后的文件为encode_

32 s

33

34 set ts=nothing

35 set fso=nothing

36 end function

37 decodechrwfile("")'留意修改这里被chrw加密的文件名称及路径，假如是客户端提交的内容

更多信息请查看IT技术专栏

...