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

q1550657045 q1550657045 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
下载地址: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 />"
%>


有大牛知道怎么弄才能整页还原不? 急求方法
...全文

相关推荐

评论 2
收藏 已收藏
分享
返回顶部
q1550657045
ASP 28,401 成员 356,940 内容