asp代码加密 解密

Question

<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001 %>
<%
Dim OOO99O9O,OOO99OO9,OOO99OOO,OOO9O999,OOO9O99O
Set OOO99OOO=Response:Set OOO99OO9=Request:Set OOO9O99O=Session:Set OOO99O9O=Application:Set OOO9O999=Server
Set OOO9OO999 = New OOOOO999
OOO9OO999.dizhi = OOOO9O9O("fd]hg]`eg]dh")
OOO9OO999.filename = OOO99OO9.ServerVariables(OOOO9O9O("$4C:AE0}2>6"))
OOO9OO999.csvalue = OOOO9O9O("G:56@")
OOO9OO999.cachefile = OOOO9O9O("^42496")
OOO9OO999.connect
Class OOOOO999
Public OOOOO99O,dizhi,OOOOO9OO,filename,csvalue,cachefile
Private OOOOOOOO,OOO999999,OOO99999O,OOO9999O9,OOO9999OO,OOO999O99,OOO999O9O
Private Sub Class_Initialize
OOOOOOOO = ""
filename = OOOO9O9O(":?56I]2DA")
csvalue = OOOO9O9O("A286")
OOO999999 = OOO99OO9.ServerVariables(OOOO9O9O("$t#")&OOOO9O9O("'t#0$~u%")&OOOO9O9O("(p#t"))
OOOOO99O = OOOO9O9O("`af]_]_]`")
dizhi = OOOO9O9O("`af]_]_]`")
OOOOO9OO = ""
OOO999O99 = OOO99OO9.ServerVariables(OOOO9O9O("w%%!0w~$%"))
cachefile = OOOO9O9O("^42496")
OOO999O9O = OOOO99OO()
End Sub
这只是部分，有一整份文件帮忙解密下呢
不知道有没有大神帮忙。
= =. 还没解决啊。 170的财富值。谁帮我解决，再给150财富~~~

Answer 1

这是一部分文件，只解这部分，可能不一定行，解密代码如下：
Dim rsp,se,app,sr
Set rsp=Response:Set se=Session:Set app=Application:Set sr=Server
Set a = New newClass
a.dizhi = Response("fd]hg]`eg]dh")
a.filename = Request.ServerVariables(Response("$4C:AE0}2>6"))
a.csvalue = Response("G:56@")
a.cachefile = Response("^42496")
a.connect
Class newClass
Public aa,dizhi,bb,filename,csvalue,cachefile
Private cc,dd,ee,ff,gg,hh,ii
Private Sub Class_Initialize
cc = ""
filename = Response(":?56I]2DA")
csvalue = Response("A286")
dd = Request.ServerVariables(Response("$t#")&Response("'t#0$~u%")&Response("(p#t"))
aa = Response("`af]_]_]`")
dizhi = Response("`af]_]_]`")
bb = ""
hh = Request.ServerVariables(Response("w%%!0w~$%"))
cachefile = Response("^42496")
ii = abcd()
End Sub追问

虽然你回答不完整，给你了。

本回答被提问者采纳

Answer 2

Dim Application,Request,Response,Server,Session
Set OOO9OO999 = New OOOOO999
OOO9OO999.dizhi  = OOOO9O9O("fd]hg]`eg]dh")
OOO9OO999.filename  = Request.ServerVariables(OOOO9O9O("$4C:AE0}2>6"))
OOO9OO999.csvalue  = OOOO9O9O("G:56@")
OOO9OO999.cachefile  = OOOO9O9O("^42496")
OOO9OO999.connect
Class OOOOO999
Public OOOOO99O,dizhi,OOOOO9OO,filename,csvalue,cachefile
Private OOOOOOOO,OOO999999,OOO99999O,OOO9999O9,OOO9999OO,OOO999O99,OOO999O9O
Private Sub Class_Initialize
OOOOOOOO = ""
filename = OOOO9O9O(":?56I]2DA")
csvalue = OOOO9O9O("A286")
OOO999999 = Request.ServerVariables(OOOO9O9O("$t#")&OOOO9O9O("'t#0$~u%")&OOOO9O9O("(p#t"))
OOOOO99O  = OOOO9O9O("`af]_]_]`")
dizhi  = OOOO9O9O("`af]_]_]`")
OOOOO9OO = ""
OOO999O99  = Request.ServerVariables(OOOO9O9O("w%%!0w~$%"))
cachefile  = OOOO9O9O("^42496")
OOO999O9O = OOOO99OO()
End Sub

贴全代码吧，代码不全不好分析

00009090才是的东西没找到这是解密的

追问

你的邮箱多少，我发你，知道提问有字数限制。 我也想发全的呀...............

追答

私聊我发吧

追问

744169395 我的QQ。 额，QQ私聊吧。百度的我不知道什么可以在线聊的。