EXCEL VBA MD5 简单加密

Function GetMD(s AsString)
    '引用 ComMD51.0 Type Library
    '该类库定位于msppmd5.dll
   '使用命令：REGSVR32.EXEC:\msppmd5.dll 可以注册，保证md5文件路径正确即可注册
    Dim a As NewCoMD5
    GetMD =a.MD5Hash(s)
End Function

 

Sub test()
Dim s$
s = InputBox("输入")
ls = GetMD(s)
If ls = [a1] Then MsgBox "ok" Else MsgBox ls
End Sub

上述 MD5 类库你可以到以下地址下载：点击进下载页面