以下asp代码是用什么加密软件加密的，谢谢。

下面这一段是解密函数

Function CC0C0C(ByVal CCC0CC)
Dim CC0CC0, CC0CCC, CCC000
CCC0CC = Replace(CCC0CC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CC0CCC = 1 To Len(CCC0CC)
If CC0CCC <> CCC000 Then
CC0CC0 = AscW(Mid(CCC0CC, CC0CCC, 1))
If CC0CC0 >= 33 And CC0CC0 <= 79 Then
CC0C0C = CC0C0C & Chr(CC0CC0 + 47)
ElseIf CC0CC0 >= 80 And CC0CC0 <= 126 Then
CC0C0C = CC0C0C & Chr(CC0CC0 - 47)
Else
CCC000 = CC0CCC + 1
If
Mid(CCC0CC, CCC000, 1) = CC0C0C("o") Then CC0C0C = CC0C0C &
ChrW(CC0CC0 + 5) Else CC0C0C = CC0C0C & Mid(CCC0CC, CC0CCC, 1)
End If
End If
Next
End Function

你想知道
AC@G:56Cl>:4C@D@7E];6E]@=653]c]_j!6CD:DE
,$64FC:EJ ,x?7@lu2=D6jy6E ,~{tsqis2E232D6 ,!2DDH@C5lw@<:==JRhhhj
,52E2 ,D@FC46l
这是什么内容就用
response.write CC0C0C("AC@G:56Cl>:4C@D@7E];6E]@=653]c]_j!6CD:DE
,$64FC:EJ ,x?7@lu2=D6jy6E ,~{tsqis2E232D6 ,!2DDH@C5lw@<:==JRhhhj
,52E2 ,D@FC46l")
就出来了
provider=microsoft.jet.oledb.4.0;Persist Security Info=False;Jet OLEDB:Database
Password=Hokilly#999; data source=