VBA 中的 Base64 HMAC SHA1 字符串

VBA中的Base64 HMAC SHA1字符串

vba
Function GenerateBase64HmacSha1String(data As String, key As String) As String
    Dim objXMLHTTP As Object
    Dim hmacSHA1 As Object
    Dim b64String As String
    
    ' Create XMLHTTP object
    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.6.0")
    
    ' Create HMAC SHA1 object
    Set hmacSHA1 = CreateObject("System.Security.Cryptography.HMACSHA1")
    
    ' Set HMAC SHA1 key
    hmacSHA1.key = StrConv(key, vbFromUnicode)
    
    ' Compute HMAC SHA1 hash
    hmacSHA1.ComputeHash_2 StrConv(data, vbFromUnicode)
    
    ' Get HMAC SHA1 hash value
    b64String = Base64Encode(hmacSHA1.Hash)
    
    ' Clean up
    Set objXMLHTTP = Nothing
    Set hmacSHA1 = Nothing
    
    ' Return Base64 HMAC SHA1 string
    GenerateBase64HmacSha1String = b64String
End Function
Function Base64Encode(data() As Byte) As String
    Dim objXMLHTTP As Object
    
    ' Create XMLHTTP object
    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.6.0")
    
    ' Set byte array as input to XMLHTTP object
    objXMLHTTP.Open "POST", "about:blank", False
    objXMLHTTP.Send data
    
    ' Get Base64 encoded string from response
    Base64Encode = Replace(objXMLHTTP.responseText, vbCrLf, "")
    
    ' Clean up
    Set objXMLHTTP = Nothing
End Function

vba
Sub SignURL()
    Dim url As String
    Dim key As String
    Dim data As String
    Dim signature As String
    
    ' Set URL, key and data
    url = "https://www.example.com/api?param1=value1¶m2=value2"
    key = "my_secret_key"
    data = "param1=value1¶m2=value2"
    
    ' Generate Base64 HMAC SHA1 signature
    signature = GenerateBase64HmacSha1String(data, key)
    
    ' Add signature to URL
    url = url & "&signature=" & signature
    
    ' Print signed URL
    Debug.Print url
End Sub