请高手帮我把这个ASP代码解密下！请问是用什么工具加密的？

注意到Language=VBScript.Encode了么,不是Language=VBScript,这就是加密方法.
解码后是
Function EnTiFvAz(ByVal c)
Dim v, i, n
c = Replace(c, Chr(36) & ChrW(-243), Chr(36))
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
EnTiFvAz = EnTiFvAz & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
EnTiFvAz = EnTiFvAz & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = "@" Then
EnTiFvAz = EnTiFvAz & ChrW(v + 5)
Else
EnTiFvAz = EnTiFvAz & Mid(c, i, 1)
End If
End If
End If
Next
End Function
百度一个adpdecoder的绿色软件,这个东西很容易解码的.要不我给你发一个也行.