(DataFlex) Hash Binary Data (SHA256 and other hash algorithms)

Demonstrates how to hash binary bytes using SHA256, SHA384, SHA512, MD2, MD5, HAVAL, RIPEMD, etc.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJpgData
    Boolean iSuccess
    Variant hoJpgBytes
    Handle hoCrypt
    Variant hoHashBytes
    Handle hoSb
    String sHashHexStr
    String sTemp1

    // This example requires the Chilkat Crypt API to have been previously unlocked.
    // See Unlock Chilkat Crypt for sample code.

    // Let's load a binary file to get the bytes..
    Get Create (RefClass(cComChilkatBinData)) To hoJpgData
    If (Not(IsComObjectCreated(hoJpgData))) Begin
        Send CreateComObject of hoJpgData
    End
    Get ComLoadFile Of hoJpgData "qa_data/jpg/starfish.jpg" To iSuccess
    If (iSuccess <> True) Begin
        Showln "Failed to load file."
        Procedure_Return
    End

    Get ComGetBinary Of hoJpgData To hoJpgBytes

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

    // Choose the hash algorithm.
    // Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
    Set ComHashAlgorithm Of hoCrypt To "sha256"

    Get ComHashBytes Of hoCrypt vJpgBytes To hoHashBytes

    // Let's examine the hash as a hex string.
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End
    Get ComAppendEncoded Of hoSb vHashBytes "hex" To iSuccess
    Get ComGetAsString Of hoSb To sTemp1
    Showln "SHA256 hash = " sTemp1

    // We could alternatively hash the bytes and receive the hex result directly:
    Set ComEncodingMode Of hoCrypt To "hex"
    Get ComHashBytesENC Of hoCrypt vJpgBytes To sHashHexStr
    Showln "SHA256 hash = " sHashHexStr


End_Procedure