EXCEL VBA MD5 简单加密

最新推荐文章于 2024-05-24 14:07:28 发布

璀璨_帝禹

最新推荐文章于 2024-05-24 14:07:28 发布

阅读量3.5k

点赞数

分类专栏： Excel VBA

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/wijaya/article/details/16342131

版权

Excel VBA 专栏收录该内容

65 篇文章 10 订阅

订阅专栏

Function GetMD(s As String)
    '引用 ComMD5 1.0 Type Library
    '该类库定位于 msppmd5.dll
    '使用命令：REGSVR32.EXE C:\msppmd5.dll 可以注册，保证md5文件路径正确即可注册
    Dim a As New CoMD5
    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 类库你可以到以下地址下载： 点击进下载页面

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
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 Funct
复制链接

扫一扫

专栏目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。