Delphi ActiveX

Calculate MD5 Hash of File (or SHA1, SHA256, and other hash algorithms)

See more Encryption Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
hashStr: WideString;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

crypt := TChilkatCrypt2.Create(Self);

// Set the name of the hash algorithm.
// Other choices include "sha1", "sha256", "sha384", "sha512", "md2", "md5", and "haval". 
crypt.HashAlgorithm := 'md5';

// EncodingMode specifies the encoding of the hash output.
// It may be "hex", "url", "base64", or "quoted-printable".
crypt.EncodingMode := 'hex';

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

hashStr := crypt.HashFileENC('/temp/something.dat');
if (crypt.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(crypt.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(hashStr);
end;