将SHA 256移植到Excel。一个问题:参数是二进制的，而不是ASCII

Option Explicit

Sub CalculateSHA256()
    Dim inputBytes() As Byte
    Dim outputBytes() As Byte
    Dim sha256 As Object
    Dim i As Long
    Dim hashValue As String
    
    ' 将二进制参数转换为字节数组
    inputBytes = Array(0, 1, 0, 1, 1, 0, 1, 0) ' 示例二进制参数
    
    ' 创建SHA-256对象
    Set sha256 = CreateObject("System.Security.Cryptography.SHA256Managed")
    
    ' 计算哈希值
    outputBytes = sha256.ComputeHash(inputBytes)
    
    ' 将字节数组转换为十六进制字符串
    For i = LBound(outputBytes) To UBound(outputBytes)
        hashValue = hashValue & Right("0" & Hex(outputBytes(i)), 2)
    Next i
    
    ' 输出SHA-256哈希值
    MsgBox hashValue
End Sub