SHA256 和 HMACSHA256 函数中的 Vba Excel“自动化错误”

使用VBA Excel编写SHA256和HMACSHA256函数时，可能会遇到自动化错误。这些错误可能会导致代码无法正常运行或产生不正确的结果。在本文中，我们将探讨这些错误的原因，并提供一些案例代码来帮助您解决这些问题。

vba
Sub CalculateSHA256Hash()
    Dim data As String
    Dim hash As String
    Dim sha256 As Object
    
    ' 设置输入数据
    data = "Hello World"
    
    ' 创建SHA256对象
    Set sha256 = CreateObject("System.Security.Cryptography.SHA256Managed")
    
    ' 计算哈希值
    hash = Convert.ToBase64String(sha256.ComputeHash_2(Encoding.UTF8.GetBytes(data)))
    
    ' 输出结果
    MsgBox "SHA256 Hash: " & hash
End Sub

vba
Sub EncryptStringWithHMACSHA256()
    Dim data As String
    Dim key As String
    Dim hash As String
    Dim hmacsha256 As Object
    
    ' 设置输入数据和密钥
    data = "Hello World"
    key = "SecretKey"
    
    ' 创建HMACSHA256对象
    Set hmacsha256 = CreateObject("System.Security.Cryptography.HMACSHA256")
    
    ' 设置密钥
    hmacsha256.Key = Encoding.UTF8.GetBytes(key)
    
    ' 计算哈希值
    hash = Convert.ToBase64String(hmacsha256.ComputeHash_2(Encoding.UTF8.GetBytes(data)))
    
    ' 输出结果
    MsgBox "HMACSHA256 Hash: " & hash
End Sub