网上一般找到的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("中文")

本文作者：老徐

本文链接：https://bigger.ee/archives/671.html

转载时须注明出处及本声明