(DataFlex) Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

Computing the hash for a file of any size.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sFilename
    String sHash

    // 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

    // Any type of file may be hashed.
    // There is  no size limitation because the file is consumed
    // in streaming mode internally.

    Move "something.zip" To sFilename

    Set ComHashAlgorithm Of hoCrypt To "sha1"
    Set ComEncodingMode Of hoCrypt To "hex"

    // Other possible EncodingMode settings are: 
    // "quoted-printable", "base64", "base32", and "url"

    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "SHA1:"
    Showln sHash

    // Hash using MD2
    Set ComHashAlgorithm Of hoCrypt To "md2"
    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "MD2:"
    Showln sHash

    // Hash using MD5
    Set ComHashAlgorithm Of hoCrypt To "md5"
    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "MD5:"
    Showln sHash

    // Hash using SHA-256
    Set ComHashAlgorithm Of hoCrypt To "sha256"
    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "SHA256:"
    Showln sHash

    // Hash using SHA-384
    Set ComHashAlgorithm Of hoCrypt To "sha384"
    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "SHA384:"
    Showln sHash

    // Hash using SHA-512
    Set ComHashAlgorithm Of hoCrypt To "sha512"
    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "SHA512:"
    Showln sHash

    // Hash using HAVAL
    // There are two additional properties relevant to HAVAL:
    // HavalRounds, and KeyLength.
    // HavalRounds can have values of 3, 4, or 5.
    // KeyLength can have values of 128, 160, 192, 224, or 256
    Set ComHashAlgorithm Of hoCrypt To "haval"
    Set ComHavalRounds Of hoCrypt To 5
    Set ComKeyLength Of hoCrypt To 256
    Get ComHashFileENC Of hoCrypt sFilename To sHash
    Showln "Haval:"
    Showln sHash


End_Procedure