asp 代码混淆不易读求助

V2EX = way to explore

V2EX 是一个关于分享和探索的地方

现在注册

已注册用户请登录

这是一个创建于 2731 天前的主题，其中的信息可能已经有所发展或是发生改变。

和这个貌似是一样的 http://bbs.csdn.net/topics/391970870 虽然给了解决方法但我不会 asp，所以看不懂 T，T 加密软件叫做：ASP 代码加密工具 10 SP3 专业版(Build 3230) 非常感谢，希望有朋友能提供解密方法

一个文件栗子如下：


Dim A_AA_,A_AAA,AA___,AA__A,AA_A_
Set AA___=Response:Set A_AAA=Request:Set AA_A_=Session:Set A_AA_=Application:Set AA__A=Server
AA___.Write(AA_AA("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
AA___.Write(AA_AA("3@5J ,L") & vbCrLf)
AA___.Write(AA_AA("	,324<8C@F?5\4@=@Ci ,Rapasbaj") & vbCrLf)
AA___.Write(AA_AA("	,>2C8:?\=67Ei ,_AIj") & vbCrLf)
AA___.Write(AA_AA("	,>2C8:?\E@Ai ,_AIj") & vbCrLf)
AA___.Write(AA_AA("	,>2C8:?\C:89Ei ,_AIj") & vbCrLf)
AA___.Write(AA_AA("	,>2C8:?\3@EE@>i ,_AIj") & vbCrLf)
AA___.Write(AA_AA("N") & vbCrLf)
AA___.Write(AA_AA("k^DEJ=6m") & vbCrLf)
AA___.Write(AA_AA("kE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,46==DA24:?8lQ_Q ,46==A255:?8lQ_Qm") & vbCrLf)
AA___.Write(AA_AA(" , ,kECm") & vbCrLf)
AA___.Write(AA_AA(" , , , ,kE5 ,H:5E9lQ`dTQ ,96:89ElQc_Q ,2=:8?lQ46?E6CQ ,384@=@ClQRapasbaQmU?3DAjk^E5m") & vbCrLf)
AA___.Write(AA_AA(" , , , ,kE5 ,H:5E9lQd_TQ ,2=:8?lQ=67EQ ,G2=:8?lQ>:55=6Q ,384@=@ClQRapasbaQmU?3DAjk^E5m") & vbCrLf)
AA___.Write(AA_AA(" , , , ,kE5 ,H:5E9lQbdTQ ,2=:8?lQ46?E6CQ ,384@=@ClQRapasbaQ ,4=2DDlQ7@?E0`c32:Qmk:>8 ,DC4lQ:>286^EI]A?8Q ,H:5E9lQ`hQ ,96:89ElQa_Q ,^mU?3DAj·ð@¼é@£¬,k7@?E ,4@=@ClQRuuuu__Qmk3m"))
AA___.Write AA_A_(AA_AA("p5>:?0}2>6"))
AA___.Write(AA_AA("k^3mk^7@?Em£¬,™ó@Þ€@‡à@¸Ü@£¡,U?3DAjU?3DAjk2 ,9C67lQ^205>:?^n>6E9@5l=@8@FEQ ,E2C86ElQ0E@AQ ,4=2DDlQ7@?E0`c32:02QmÞ–@ÛÉ@k^2mk^E5m") & vbCrLf)
AA___.Write(AA_AA(" , ,k^ECm") & vbCrLf)
AA___.Write(AA_AA("k^E23=6m"))
Function AA_AA(ByVal AAAAA)
Dim AAA__, AAA_A, AAAA_
AAAAA = Replace(AAAAA, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For AAA_A = 1 To Len(AAAAA)
If AAA_A <> AAAA_ Then
AAA__ = AscW(Mid(AAAAA, AAA_A, 1))
If AAA__ >= 33 And AAA__ <= 79 Then
AA_AA = AA_AA & Chr(AAA__ + 47)
ElseIf AAA__ >= 80 And AAA__ <= 126 Then
AA_AA = AA_AA & Chr(AAA__ - 47)
Else
AAAA_ = AAA_A + 1
If Mid(AAAAA, AAAA_, 1) = Chr(64) Then AA_AA = AA_AA & ChrW(AAA__ + 5) Else AA_AA = AA_AA & Mid(AAAAA, AAA_A, 1)
End If
End If
Next
End Function
%>```

第 1 条附言 · 2017-05-13 17:38:07 +08:00

自己现学了下，特么的奸商还要 500 块
<%
response.Write(fun("解密字符"))
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
%>

4 条回复 • 2017-05-13 17:01:00 +08:00