Xbase++

HMAC Hex String

See more Encryption Examples

Demonstrates how to compute an HMAC using a hexidecimal key and data. Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL cKeyHex
LOCAL cDataHex
LOCAL oBd
LOCAL cMacHex

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oCrypt := CreateObject("Chilkat.Crypt2")

//  Set the MAC algorithm to HMAC
oCrypt:MacAlgorithm := "hmac"

//  Our HMAC key will be the bytes represented in the following hex string.
//  In other words, the HMAC key is composed of the bytes 0x41, 0xC2, 0x1C, ...
//  (It is not composed of the us-ascii string '4', '1', 'C', ...)
cKeyHex := "41C21CB9D7A02FC5D4FADB9E4755B9DE"
nSuccess := oCrypt:SetMacKeyEncoded(cKeyHex, "hex")

//  Our desire is to HMAC the bytes represented in the following string:
cDataHex := "C22078065B01460001000000010062043BF5B18228C8E02D17BCFE4E00561FA6DEC216EA97195CEB579942E275C21932258E3CD391E507FF4E7FD4C787A8447DA111C54A9C1795E7FF4C0BAA2EDA"

//  We'll need to decode the hex to binary:
oBd := CreateObject("Chilkat.BinData")
oBd:AppendEncoded(cDataHex, "hex")

//  Do the HMAC-SHA256 hash and return as a hex string:
oCrypt:EncodingMode := "hex"
oCrypt:HashAlgorithm := "sha-256"
cMacHex := oCrypt:MacBdENC(oBd)
? cMacHex

oCrypt:destroy()
oBd:destroy()