将字符串从Python中的sha1散列转换为base 64，并按照VBA示例返回结果

Question

在VBA中有一个散列函数，它获取一个字符串并返回一个散列，我需要在Python中创建一个函数，它返回相同的散列

VBA代码：

Public Function Base64Sha1(inputText As String)

    Dim asc As Object
    Dim enc As Object
    Dim textToHash() As Byte
    Dim SharedSecretKey() As Byte
    Dim bytes() As Byte

    Set asc = CreateObject("System.Text.UTF8Encoding")
    Set enc = CreateObject("System.Security.Cryptography.HMACSHA1")

    textToHash = asc.GetBytes_4(inputText)
    SharedSecretKey = asc.GetBytes_4(inputText)
    enc.Key = SharedSecretKey

    bytes = enc.ComputeHash_2((textToHash))
    Base64Sha1 = EncodeBase64(bytes)        

End Function

Private Function EncodeBase64(arrData() As Byte) As String

    Dim objXML As Object
    Dim objNode As Object

    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")

    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    EncodeBase64 = objNode.Text

End Function

Python code:

import hashlib
import base64

def string_to_hash(word):
    digest = hashlib.sha1(word.encode('utf-8')).digest()
    return base64.b64encode(digest)

print(string_to_hash('a'))

VBA结果：

debug.print(Base64Sha1("a"))
OQLthH/yiTC18UGr+otHFoElNnM=

Python结果：

print(string_to_hash('a'))
b'hvfkN/qlp/zhXR3cuerq6jd2Z7g='

Answer 1

在VB代码中，哈希值是用HMAC/SHA1确定的，而不仅仅是用SHA1确定的。以下Python代码提供了与VB代码相同的结果：

import hmac
import hashlib
import base64

def string_to_hash(word):
    word = word.encode('utf-8')
    hash = hmac.new(word, word, hashlib.sha1).digest()
    return base64.b64encode(hash).decode("utf-8")

print(string_to_hash('a')) # OQLthH/yiTC18UGr+otHFoElNnM=