VB6.0生成MD5

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,不然遇到中文会有问题。

实测有效，问题解决。