网上一般找到的ASP的MD5加密方法,是使用纯ASP来实现的,代码繁杂,而且md5加密时无法使用utf8编码,如果加密的字符串中出现了中文就和其他的程序加密结果不一致了。
除了使用纯ASP实现之外,其实还可以调用.net的库来实现,这样就可以完美支持中文,与.net等加密结果保持一致了。代码如下:

    Function MD5(text)
        With CreateObject("MSXML.DOMDocument").createElement("a")
            .dataType = "bin.hex"
            .nodeTypedvalue = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider").ComputeHash_2(CreateObject("System.Text.UTF8Encoding").GetBytes_4(text))
            MD5 = .text
        End With
    End Function 

调用方法:


Dim result
result=MD5("中文")
Last modification:May 26th, 2020 at 09:13 am
如果觉得我的文章对你有用,请随意赞赏