(PureBasic) HMAC Hex String

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"
IncludeFile "CkBinData.pb"

Procedure ChilkatExample()

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkCrypt2::ckUnlockComponent(crypt,"Anything for 30-day trial")
    If success <> 1
        Debug CkCrypt2::ckLastErrorText(crypt)
        CkCrypt2::ckDispose(crypt)
        ProcedureReturn
    EndIf

    ;  Set the MAC algorithm to HMAC
    CkCrypt2::setCkMacAlgorithm(crypt, "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', ...)
    keyHex.s = "41C21CB9D7A02FC5D4FADB9E4755B9DE"
    success = CkCrypt2::ckSetMacKeyEncoded(crypt,keyHex,"hex")

    ;  Our desire is to HMAC the bytes represented in the following string:
    dataHex.s = "C22078065B01460001000000010062043BF5B18228C8E02D17BCFE4E00561FA6DEC216EA97195CEB579942E275C21932258E3CD391E507FF4E7FD4C787A8447DA111C54A9C1795E7FF4C0BAA2EDA"

    ;  We'll need to decode the hex to binary:
    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckAppendEncoded(bd,dataHex,"hex")

    ;  Do the HMAC-SHA256 hash and return as a hex string:
    CkCrypt2::setCkEncodingMode(crypt, "hex")
    CkCrypt2::setCkHashAlgorithm(crypt, "sha-256")
    macHex.s = CkCrypt2::ckMacBdENC(crypt,bd)
    Debug macHex


    CkCrypt2::ckDispose(crypt)
    CkBinData::ckDispose(bd)


    ProcedureReturn
EndProcedure