VB6.0生成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,不然遇到中文會有問題。