帮我分析一下这些代码是用什么加密工具加密的,下面的代码是ASP语言的，另求解密方法...
代码如下：Dim B8B88B,B8B8B8,B8B8BB,B8BB88,B8BB8B
Set B8B8BB=Response:Set B8B8B8=Request:Set B8BB8B=Session:Set B8B88B=Application:Set B8BB88=Server
If Len(B8B8B8.QueryString)>60 or Len(B8B8B8.Form)>60 Then
B8B8BB.Write EnTiFvAz("kD4C:AE ,=2?8F286lV;2G2D4C:AEVm2=6CEWV静@泐@论@闩@nVXjE@A]=@42E:@?lV9EEAi^^")&siteurl&EnTiFvAz("Vjk^D4C:AEm")
B8B8BB.End
End if
class BBBB8B
private BBBBB8
private BBBBBB
private B888888
private B88888B
private B8888B8
private sub class_initialize()
B8888B8=B8B8B8.servervariables(EnTiFvAz("FC="))
B8888B8=left(B8888B8,instrRev(B8888B8,EnTiFvAz("^")))
end sub
private sub class_terminate()
end sub
public property get BB8B88
if isempty(BBBBB8) then
BB8B88=true
else
BB8B88=false
end if
end property
public property get valid
if isempty(BBBBB8) or not isDate(BBBBBB) then
valid=false
elseif CDate(BBBBBB)< now then
valid=false
else
valid=true
end if
end property
public property let name(str)
B88888B=str & B8888B8
BBBBB8=B8B88B(B88888B)
B888888=str & EnTiFvAz("6IA:C6D") & B8888B8
BBBBBB=B8B88B(B888888)
end property
public property let BB8BBB(B8BB8B8)
BBBBBB=B8BB8B8
B8B88B.lock
B8B88B(B888888)=BBBBBB
B8B88B.unlock
end property
public sub add(B8BB8BB,B8BBB88)
if isempty(B8BB8BB) or not isDate(B8BBB88) then
exit sub
end if
这只是一部分代码,我只想知道是用什么方式或者什么软件加密的，怎么破解,我只想了解，并无恶意，求答案,
追问：这里提到的批量解密程序,这个程序怎么用？在哪里
http://www.tz114118.com/Blog/View/?4602
