asp代码被混淆请教怎么还原

[qq_35382666]

<%
Dim AA_AAA,AAA___,AAA__A,AAA_A_,AAA_AA
Set AAA__A=Response:Set AAA___=Request:Set AAA_AA=Session:Set AA_AAA=Application:Set AAA_A_=Server
AAA__A.Redirect AAAA__("FD6C^:?56I]2DA")
Function AAAA__(ByVal A______)
Dim AAAA_A, AAAAA_, AAAAAA
A______ = Replace(A______, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For AAAAA_ = 1 To Len(A______)
If AAAAA_ <> AAAAAA Then
AAAA_A = AscW(Mid(A______, AAAAA_, 1))
If AAAA_A >= 33 And AAAA_A <= 79 Then
AAAA__ = AAAA__ & Chr(AAAA_A + 47)
ElseIf AAAA_A >= 80 And AAAA_A <= 126 Then
AAAA__ = AAAA__ & Chr(AAAA_A - 47)
Else
AAAAAA = AAAAA_ + 1
If Mid(A______, AAAAAA, 1) = AAAA__("o") Then AAAA__ = AAAA__ & ChrW(AAAA_A + 5) Else AAAA__ = AAAA__ & Mid(A______, AAAAA_, 1)
End If
End If
Next
End Function
%>

[斯洛文尼亚旅游]

就起了个没意义的变量名称而已，哪来的混淆。。然后就是response,server这种变量另外起名了，自己记事本打开替换下就知道了

[scscms太阳光]

一个解密函数，这种一般没什么作用

<%
Response.Redirect fun("FD6C^:?56I]2DA") 'Response.Redirect "user/index.asp"
Function fun(ByVal str)
Dim a, b, c
str = Replace(str, "%－>", "%"&">")
For b = 1 To Len(str)
If b <> c Then
a = AscW(Mid(str, b, 1))
If a >= 33 And a <= 79 Then
fun = fun & Chr(a + 47)
ElseIf a >= 80 And a <= 126 Then
fun = fun & Chr(a - 47)
Else
c = b + 1
If Mid(str, c, 1) = fun("o") Then fun = fun & ChrW(a + 5) Else fun = fun & Mid(str, b, 1)
End If
End If
Next
End Function
%> 

[qq_34649081]

我也醉了。呵呵。现在ASP代码加密或者混淆。有P用。

[ps800]

还是手工替换回来吧。比如，把AAA_AA全部替换成STR_A

[will_stier]

引用 楼主 qq_35382666 的回复:

<% Dim AA_AAA,AAA___,AAA__A,AAA_A_,AAA_AA Set AAA__A=Response:Set AAA___=Request:Set AAA_AA=Session:Set AA_AAA=Application:Set AAA_A_=Server AAA__A.Redirect AAAA__("FD6C^:?56I]2DA") Function AAAA__(ByVal A______) Dim AAAA_A, AAAAA_, AAAAAA A______ = Replace(A______, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For AAAAA_ = 1 To Len(A______) If AAAAA_ <> AAAAAA Then AAAA_A = AscW(Mid(A______, AAAAA_, 1)) If AAAA_A >= 33 And AAAA_A <= 79 Then AAAA__ = AAAA__ & Chr(AAAA_A + 47) ElseIf AAAA_A >= 80 And AAAA_A <= 126 Then AAAA__ = AAAA__ & Chr(AAAA_A - 47) Else AAAAAA = AAAAA_ + 1 If Mid(A______, AAAAAA, 1) = AAAA__("o") Then AAAA__ = AAAA__ & ChrW(AAAA_A + 5) Else AAAA__ = AAAA__ & Mid(A______, AAAAA_, 1) End If End If Next End Function %>

都打开之后，只有搜索定义了。

[rings2000]

我也醉了。呵呵。