(DataFlex) Hash the Contents of a String (SHA256 and other hash algorithms)

Demonstrates how to hash the contents of a string 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 hoCrypt
    Variant hoHashBytes
    Handle hoSb
    Boolean iSuccess
    String sTemp1

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

    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"

    // The byte representation of the string matters when hashing. 
    // Tell Chilkat that we want to use the utf-8 byte representation.
    Set ComCharset Of hoCrypt To "utf-8"

    Get ComHashString Of hoCrypt "They who can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." 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


End_Procedure