Xbase++

AES-CMAC

See more Encryption Examples

Demonstrates using the AES-CMAC algorithm, which is a keyed hash function similar to HMAC and Poly1305.

Note: Chilkat added AES-CMAC in version 9.5.0.95.

Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL cKeyHex
LOCAL cMessageBytes
LOCAL oBd
LOCAL cCmac
LOCAL cPlainText
LOCAL cEncTag

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 AES-CMAC
oCrypt:MacAlgorithm := "aes-cmac"

//  AES-CMAC always uses a 16-byte (128-bit) MAC key.
cKeyHex := "2b7e151628aed2a6abf7158809cf4f3c"
nSuccess := oCrypt:SetMacKeyEncoded(cKeyHex, "hex")

//  Let's compute the AES-CMAC for the test vector at https://www.rfc-editor.org/rfc/rfc4493#appendix-A
//  Here we have 64 bytes in hex representation.
cMessageBytes := "6bc1bee22e409f96e93d7e117393172aae2d8a571e03ac9c9eb76fac45af8e5130c81c46a35ce411e5fbc1191a0a52eff69f2445df4f9b17ad2b417be66c3710"

oBd := CreateObject("Chilkat.BinData")
oBd:AppendEncoded(cMessageBytes, "hex")

//  Compute the AES-CMAC for the bytes contained in bd and return the AES-CMAC in hex representation.
oCrypt:EncodingMode := "hex_lower"
cCmac := oCrypt:MacBdENC(oBd)
? cCmac
//  Output should be: 51f0bebf7e3b9d92fc49741779363cfe

//  Now do the same for a string:
cPlainText := "'Twas brillig, and the slithy toves" + Chr(10) + "Did gyre and gimble in the wabe:" + Chr(10) + "All mimsy were the borogoves," + Chr(10) + "And the mome raths outgrabe."
cEncTag := oCrypt:MacStringENC(cPlainText)
? cEncTag

//  Output should be: 4fca1fcbd265048d247f99ab57fa3ceb

oCrypt:destroy()
oBd:destroy()