ASP混淆代码如何还原为正常代码

[q1550657045]

下载地址：http://pan.baidu.com/s/1mgna0v2

想了解下这种混淆代码的手法，以及如何去还原这样的代码思路。

有没大牛能指导下 这个文件的还原应该如何来做呢？

本来弄了一段代码只能单一处理 ChrW()里面的字符串，无法进行整个文件的还原。

<%
Dim AsciiStr 
AsciiStr="ChrW(97)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(110)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)"
Function AsciiStr_UN(Str) 
    Str=Replace(Str," ","")
    Str=Replace(Str,"&","")
    Str=Replace(Lcase(Str),"vbcrlf","")
    Str=Replace(Lcase(Str),"&","")
    Dim StrArr
    StrArr=Split(Lcase(Str),"chrw") 
    For i=1 To Ubound(StrArr)
        StrArr(i)=Replace(Replace(StrArr(i),"(",""),")","")
        AsciiStr_UN=AsciiStr_UN&HTMLEncode(chr(StrArr(i))) '
    next
End Function    
Function HTMLEncode(S) 
    If Not isnull(S) then
        S = Replace(S, ">", ">")
        S = Replace(S, "<", "<")
        S = Replace(S, CHR(39), "'")
        S = Replace(S, CHR(34), """)
        S = Replace(S, CHR(20), " ")
        HTMLEncode = S
    End if
End Function
Response.Write AsciiStr_UN(AsciiStr)&"<BR />"
%>

有大牛知道怎么弄才能整页还原不？ 急求方法

[q1550657045]

啊啊啊 都没人回复吗？

[斯洛文尼亚旅游]

用fso读取文件后，用正则提取chrw字符串出来后调用你的解码函数解码，在执行替换回去 http://www.jb51.net/article/20816.htm http://webcenter.hit.edu.cn/articles/2010/06-06/06173737.htm asp解码chrw/chr编码文件还原为源代码