请会解密这段ASP源码,知道用什么方法能解吗?

请勿修改下列任何代码,以保证程序正常运行

Dim BBBBBB,BWWWWWW,BWWWWWB,BWWWWBW,BWWWWBB
Set BWWWWWB=Response:Set BWWWWWW=Request:Set BWWWWBB=Session:Set BBBBBB=Application:Set BWWWWBW=Server
dim BWWBWBB
BWWBWBB=EnTiFvAz(Chr(53)&Chr(50)&Chr(69)&Chr(50)&Chr(51)&Chr(50)&Chr(68)&Chr(54)&Chr(94)&Chr(59)&Chr(60)&Chr(56)&Chr(57)&Chr(67)&Chr(56)&Chr(69)&Chr(82)&Chr(103)&Chr(104)&Chr(53)&Chr(93)&Chr(50)&Chr(68)&Chr(65))
dim BWWBBWW,BWWBBWB,BWWBBBW,BWWBBBB,BWBWWWW
on error resume next
BWWBBWB=EnTiFvAz(Chr(115)&Chr(113)&Chr(34)&Chr(34)&Chr(108))+BWWWWBW.mappath(BWWBWBB)+EnTiFvAz(Chr(106)&Chr(115)&Chr(54)&Chr(55)&Chr(50)&Chr(70)&Chr(61)&Chr(69)&Chr(115)&Chr(58)&Chr(67)&Chr(108)&Chr(106)&Chr(115)&Chr(35)&Chr(120)&Chr(39)&Chr(116)&Chr(35)&Chr(108)&Chr(76)&Chr(124)&Chr(58)&Chr(52)&Chr(67)&Chr(64)&Chr(68)&Chr(64)&Chr(55)&Chr(69)&Chr(32)&Chr(44)&Chr(112)&Chr(52)&Chr(52)&Chr(54)&Chr(68)&Chr(68)&Chr(32)&Chr(44)&Chr(115)&Chr(67)&Chr(58)&Chr(71)&Chr(54)&Chr(67)&Chr(32)&Chr(44)&Chr(87)&Chr(89)&Chr(93)&Chr(62)&Chr(53)&Chr(51)&Chr(88)&Chr(78)&Chr(106))
set BWWBBWW=BWWWWBW.createobject(EnTiFvAz(Chr(112)&Chr(115)&Chr(126)&Chr(115)&Chr(113)&Chr(93)&Chr(114)&Chr(126)&Chr(125)&Chr(125)&Chr(116)&Chr(114)&Chr(37)&Chr(120)&Chr(126)&Chr(125)))
if err then
err.clear
else
BWWBBWW.open BWWBBWB
if err then
err.clear
end if
end if
set BBWBBWW=BWWWWBW.CreateObject(EnTiFvAz(Chr(112)&Chr(115)&Chr(126)&Chr(115)&Chr(113)&Chr(93)&Chr(35)&Chr(54)&Chr(52)&Chr(64)&Chr(67)&Chr(53)&Chr(68)&Chr(54)&Chr(69)))
BBWBBWB=EnTiFvAz(Chr(68)&Chr(54)&Chr(61)&Chr(54)&Chr(52)&Chr(69)&Chr(32)&Chr(44)&Chr(89)&Chr(32)&Chr(44)&Chr(55)&Chr(67)&Chr(64)&Chr(62)&Chr(32)&Chr(44)&Chr(68)&Chr(74)&Chr(68)&Chr(69)&Chr(54)&Chr(62))
BBWBBWW.open BBWBBWB,BWWBBWW, (13*78-1013), (13*78-1013)
BBWBBBW= BBWBBWW(EnTiFvAz(Chr(68)&Chr(52)&Chr(57)&Chr(64)&Chr(64)&Chr(61)))
BWWBBBB= BBWBBWW(EnTiFvAz(Chr(72)&Chr(54)&Chr(51)&Chr(68)&Chr(58)&Chr(69)&Chr(54)))
BWBWWWW=BBWBBWW(EnTiFvAz(Chr(113)&Chr(40)&Chr(36)&Chr(-23635)&Chr(48)&Chr(75)&Chr(57)&Chr(70)&Chr(52)&Chr(54)))
BBWBBWW.close
Function BWWWBWW(BBBBWWW)
dim BWBWWWB:BWBWWWB= (86*59--60462)+asc(BBBBWWW)
if(BWBWWWB>= (81*48--41329) and BWBWWWB<= (91*50--40702)) then
BWWWBWW= EnTiFvAz(Chr(112))
elseif(BWBWWWB>= (27*103--42472) and BWBWWWB<= (102*11--44638)) then
BWWWBWW= EnTiFvAz(Chr(113))
elseif(BWBWWWB>= (24*47--44633) and BWBWWWB<= (39*19--45576)) then
BWWWBWW= EnTiFvAz(Chr(114))
elseif(BWBWWWB>= (32*23--45582) and BWBWWWB<= (13*99--45538)) then
BWWWBWW= EnTiFvAz(Chr(115))
elseif(BWBWWWB>= (45*68--43766) and BWBWWWB<= (91*50--42459)) then

第1个回答  2011-10-23
代码本身并没有加密,只是用成了chr(),你可以批量转换一下就可以了追问

怎么转,能告诉我具体的方法吗?

追答

..

相似回答