(DataFlex) HMAC SHA-1 Matching FIPS Examples

Provides an example of computing an HMAC-SHA1 digest to duplicate the FIPS examples at http://csrc.nist.gov/publications/fips/fips198/fips-198a.pdf

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sStrToSign
    String sKey
    String sExpectedResult
    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

    Move "Sample #1" To sStrToSign

    // 64-byte key
    Move "000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f" To sKey

    // The expected result:
    // (from Appendix A.1 at http://csrc.nist.gov/publications/fips/fips198/fips-198a.pdf )
    Move "4f4ca3d5d68ba7cc0a1208c9c61e9c5da0403c0a" To sExpectedResult

    // Here is the code to duplicate the results:
    Set ComHashAlgorithm Of hoCrypt To "sha-1"
    Set ComEncodingMode Of hoCrypt To "hex"

    Send ComSetHmacKeyEncoded To hoCrypt sKey "hex"

    Get ComHmacStringENC Of hoCrypt sStrToSign To sMac

    Showln "Computed: " sMac
    Showln "Expected: " sExpectedResult


End_Procedure