无法安装.NET3.5，求适用于.NET4.8的VBA SHA256哈希替代代码

你遇到的问题核心是原代码存在方法名调用错误和编码匹配问题，同时.NET Framework 4.8推荐使用更通用的SHA256工厂方法替代已过时的SHA256Managed。以下是两种可行的解决方案：

方案1：使用.NET 4.8推荐的SHA256工厂方法 #

该方法兼容.NET 4.8及以上版本，会自动选择当前平台最优的哈希实现：

Function StringToSHA256Hex(ByVal s As String) As String
    Dim sha256 As Object
    Dim inputBytes() As Byte
    Dim hashBytes() As Byte
    Dim pos As Long
    Dim outStr As String
    
    ' 创建SHA256实例（.NET 4.8推荐的工厂模式）
    Set sha256 = CreateObject("System.Security.Cryptography.SHA256").Create()
    
    ' 将字符串转换为UTF-8字节数组（绝大多数场景下的标准编码）
    inputBytes = CreateObject("System.Text.UTF8Encoding").GetBytes_4(s)
    
    ' 计算哈希值（方法名应为ComputeHash，而非原代码的ComputeHash_2）
    hashBytes = sha256.ComputeHash(inputBytes)
    
    ' 将字节数组转为小写十六进制字符串
    For pos = LBound(hashBytes) To UBound(hashBytes)
        outStr = outStr & LCase(Right("0" & Hex(hashBytes(pos)), 2))
    Next pos
    
    StringToSHA256Hex = outStr
    Set sha256 = Nothing
End Function

方案2：修正原SHA256Managed代码 #

若坚持使用SHA256Managed，只需修正方法名并调整编码即可：

Function StringToSHA256Hex_Managed(ByVal s As String) As String
    Dim sha256 As Object
    Dim inputBytes() As Byte
    Dim hashBytes() As Byte
    Dim pos As Long
    Dim outStr As String
    
    Set sha256 = CreateObject("System.Security.Cryptography.SHA256Managed")
    
    ' 可选编码：
    ' 1. UTF-8（和主流工具对齐，推荐）
    inputBytes = CreateObject("System.Text.UTF8Encoding").GetBytes_4(s)
    ' 2. UTF-16LE（和原代码编码一致，需兼容旧结果时使用）
    ' inputBytes = StrConv(s, vbFromUnicode)
    
    ' 修正方法名：ComputeHash而非ComputeHash_2
    hashBytes = sha256.ComputeHash(inputBytes)
    
    For pos = LBound(hashBytes) To UBound(hashBytes)
        outStr = outStr & LCase(Right("0" & Hex(hashBytes(pos)), 2))
    Next pos
    
    StringToSHA256Hex_Managed = outStr
    Set sha256 = Nothing
End Function

原代码失败的核心原因 #

1. 方法名错误：.NET中SHA256Managed的哈希计算方法是ComputeHash，原代码中的ComputeHash_2是错误的后期绑定调用名；
2. 编码不匹配：原代码用StrConv(s, vbFromUnicode)得到的是UTF-16LE字节数组，而绝大多数场景下SHA256哈希基于UTF-8计算，这会导致结果与预期不符。

内容的提问来源于stack exchange，提问作者Vanik