Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Plaza API (bol.com) HMAC-SHA256 AuthenticationDemonstrates how to compute the Authorization header for bol.com using HMAC-SHA256.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim crypt As Chilkat.Crypt2 Set crypt = Chilkat.NewCrypt2 crypt.EncodingMode = "base64" crypt.HashAlgorithm = "sha256" crypt.MacAlgorithm = "hmac" publicKey = "oRNWbHFXtAECmhnZmEndcjLIaSKbRMVE" privateKey = "MaQHPOnmYkPZNgeRziPnQyyOJYytUbcFBVJBvbMKoDdpPqaZbaOiLUTWzPAkpPsZFZbJHrcoltdgpZolyNcgvvBaKcmkqFjucFzXhDONTsPAtHHyccQlLUZpkOuywMiOycDWcCySFsgpDiyGnCWCZJkNTtVdPxbSUTWVIFQiUxaPDYDXRQAVVTbSVZArAZkaLDLOoOvPzxSdhnkkJWzlQDkqsXNKfAIgAldrmyfROSyCGMCfvzdQdUQEaYZTPEoA" ' The string to sign is this: ' http_verb +'\n\n'+ content_type +'\n'+ x_bol_date +'\n'+ 'x-bol-date:'+ x_bol_date +'\n'+ uri http_verb = "GET" content_type = "application/xml" x_bol_date = "Wed, 17 Feb 2016 00:00:00 GMT" uri = "/services/rest/orders/v2" ' IMPORTANT: Notice the use of underscore and hyphen (dash) chars in x-bol-date vs. x_bol_date. ' In one place hypens are used. In two places, underscore chars are used. Dim sb As Chilkat.StringBuilder Set sb = Chilkat.NewStringBuilder Dim success As Boolean success = sb.Append(http_verb) success = sb.Append(vbLf & vbLf) success = sb.Append(content_type) success = sb.Append(vbLf) success = sb.Append(x_bol_date) success = sb.Append(vbLf & "x-bol-date:") success = sb.Append(x_bol_date) success = sb.Append(vbLf) success = sb.Append(uri) Debug.Print "["; sb.GetAsString(); "]" ' Set the HMAC key: success = crypt.SetMacKeyEncoded(privateKey,"ascii") mac = crypt.MacStringENC(sb.GetAsString()) ' The answer should be: nqzLWvXI1eBhBXrRx5NF23V5hS8Q1xWCloJzPi/RAts= Debug.Print mac ' The last step is to append the public key with the signature Dim sbHeader As Chilkat.StringBuilder Set sbHeader = Chilkat.NewStringBuilder success = sbHeader.Append(publicKey) success = sbHeader.Append(":") success = sbHeader.Append(mac) hdrValue = sbHeader.GetAsString() Debug.Print hdrValue |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.