从Microsoft Access计算字符串的MD5

Function MD5(sInput As String) As String
    Dim oXMLHTTP As Object
    Dim oStream As Object
    Dim sHash As String

    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Set oStream = CreateObject("ADODB.Stream")

    oXMLHTTP.Open "POST", "http://www.md5hashgenerator.com/hash/md5", False
    oXMLHTTP.Send sInput
    sHash = oXMLHTTP.ResponseText

    Set oXMLHTTP = Nothing

    sHash = Replace(sHash, "MD5 Hash of your text:", "")
    sHash = Replace(sHash, " ", "")
    sHash = Replace(sHash, vbNewLine, "")

    MD5 = sHash
End Function

Dim sInput As String
Dim sHash As String

sInput = "Hello, world!"
sHash = MD5(sInput)

MsgBox "The MD5 hash of '" & sInput & "' is: " & sHash