(DataFlex) HMAC SHA-1 to Match RFC 2022 Test Vectors

Demonstrates using Chilkat in DataFlex to computer HMAC SHA-1 message authentication codes to match the test vectors given by RFC 2202.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sMac

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

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

    // The output will be Hex, so set the EncodingMode:
    Set ComEncodingMode Of hoCrypt To "hex"

    // Set the hash algorithm:
    // Choices are: md5, sha-1, sha256, sha384, sha512, md2, haval
    Set ComHashAlgorithm Of hoCrypt To "sha-1"

    // Set the HMAC key:
    Send ComSetHmacKeyEncoded To hoCrypt "0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b" "hex"
    Get ComHmacStringENC Of hoCrypt "Hi There" To sMac
    Showln sMac

    Send ComSetHmacKeyEncoded To hoCrypt "Jefe" "ansi"
    Get ComHmacStringENC Of hoCrypt "what do ya want for nothing?" To sMac
    Showln sMac


End_Procedure