2022.5.18更新:Chilkat关于MD5的部分是收费的,一个月后失效。
不推荐。
帮一客户修改VB程序,其中有一个功能需要根据字符串生成它的MD5值。经过一番研究,决定用插件实现,总结如下:
1. 安装插件Chilkat
Chilkat Full-Version Software Components Downloads (chilkatsoft.com)
选择 Chilkat ActiveX Components
win32和x64的版本,实测我的Win10 x64系统用win32版本是有效的。
2. 添加引用
工程 > 引用,勾选 Chilkat ActiveX v9.5.0, 确定
3. 代码
Function MD5_Hex(str As String) As String
Dim crypt As New ChilkatCrypt2
crypt.HashAlgorithm = "md5"
crypt.EncodingMode = "hex"
crypt.Charset = "utf-8" '处理中文编码
Dim md5Hex As String
md5Hex = crypt.HashStringENC(str)
MD5_Hex = md5Hex
End Function
注意,要设置Charset为utf-8,不然遇到中文会有问题。
实测有效,问题解决。