Calculate MD5 Hash of File (or SHA-1, and other hash algorithms)

Demonstrates how to calculate a hash for a file's contents.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcHashStr

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    QUIT
ENDIF

*  Set the name of the hash algorithm.
*  Other choices include "sha1", "sha384", "sha512", "md2", "md5", and "haval".
loCrypt.HashAlgorithm = "md5"

*  EncodingMode specifies the encoding of the hash output.
*  It may be "hex", "url", "base64", or "quoted-printable".
loCrypt.EncodingMode = "hex"

*  Files of any type may be hashed -- it doesn't matter
*  if the file is binary or text...

lcHashStr = loCrypt.HashFileENC("/temp/something.dat")
IF (lcHashStr = NULL ) THEN
    ? loCrypt.LastErrorText
    QUIT
ENDIF

? lcHashStr