苗景云的博客

最近遇到一个程序使用EnTiFvAz函数加密的，最后使用以下代码终于解密，不过因为技术原因，没有找到批量替换的方法：

将以下代码存储为Asp文件运行，注意红色部分，EnTiFvAz部分是程序中破解的，不同的程序可能有所不同，请注意：

<%
Response.Write (EnTiFvAz(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)))
%>
<SCRIPT Language=VBScript Runat=Server>
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
</SCRIPT>