EnTiFvAz解密代码

2013-03-27 浏览:317
EnTiFvAz解密代码
评论:(1)复制地址

最近遇到一个程序使用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>

评论:(1)复制地址
发布:苗景云 | 分类:IT技术&设计 | Tags:EnTiFvAz

相关文章

评论列表:

丘丘

评论于2014-08-23 16:18:58
ASP函数EnTiFvAz解密程序
程序包下载地址: http://pan.baidu.com/share/link?shareid=79815&uk=1962957486
看看这里吧!
内容引自http://hi.baidu.com/lajox/item/eb12fe3b3e405e24b3c0c53a
- 回复该评论

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。