(DataFlex) Demonstrates the MacString Method

Demonstrates the MacString method to do HMAC-SHA256, HMAC-SHA1, and HMAC-MD5.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    Boolean iSuccess
    String sSData
    Handle hoBinData
    Variant hoMacBytes
    String sTemp1

    // This example assumes Chilkat Crypt2 to have been previously unlocked.
    // See Unlock Crypt2 for sample code.

    // Demonstrates how to reproduce the following results found at
    // https://en.wikipedia.org/wiki/Hash-based_message_authentication_code

    // HMAC_SHA256("key", "The quick brown fox jumps over the lazy dog") = 0xf7bc83f430538424b13298e6aa6fb143ef4d59a14946175997479dbc2d1a3cd8
    // HMAC_MD5("key", "The quick brown fox jumps over the lazy dog")    = 0x80070713463e7749b90c2dc24911e275
    // HMAC_SHA1("key", "The quick brown fox jumps over the lazy dog")   = 0xde7c9b85b8b78aa6bc8a7a36f70a90701c9db4d9

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

    Set ComMacAlgorithm Of hoCrypt To "hmac"
    Set ComEncodingMode Of hoCrypt To "hex"
    Get ComSetMacKeyString Of hoCrypt "key" To iSuccess
    Move "The quick brown fox jumps over the lazy dog" To sSData

    Get Create (RefClass(cComChilkatBinData)) To hoBinData
    If (Not(IsComObjectCreated(hoBinData))) Begin
        Send CreateComObject of hoBinData
    End

    Set ComHashAlgorithm Of hoCrypt To "SHA-256"
    Get ComMacString Of hoCrypt sSData To hoMacBytes
    Get ComClear Of hoBinData To iSuccess
    Get ComAppendBinary Of hoBinData vMacBytes To iSuccess
    Get ComGetEncoded Of hoBinData "hex" To sTemp1
    Showln "HMAC_SHA256: " sTemp1

    Set ComHashAlgorithm Of hoCrypt To "MD5"
    Get ComMacString Of hoCrypt sSData To hoMacBytes
    Get ComClear Of hoBinData To iSuccess
    Get ComAppendBinary Of hoBinData vMacBytes To iSuccess
    Get ComGetEncoded Of hoBinData "hex" To sTemp1
    Showln "HMAC_MD5: " sTemp1

    Set ComHashAlgorithm Of hoCrypt To "SHA-1"
    Get ComMacString Of hoCrypt sSData To hoMacBytes
    Get ComClear Of hoBinData To iSuccess
    Get ComAppendBinary Of hoBinData vMacBytes To iSuccess
    Get ComGetEncoded Of hoBinData "hex" To sTemp1
    Showln "HMAC_SHA1: " sTemp1

    // The output is the same (ignore case)
    // HMAC_SHA256: F7BC83F430538424B13298E6AA6FB143EF4D59A14946175997479DBC2D1A3CD8
    // HMAC_MD5: 80070713463E7749B90C2DC24911E275
    // HMAC_SHA1: DE7C9B85B8B78AA6BC8A7A36F70A90701C9DB4D9


End_Procedure