(Delphi ActiveX) Hash Binary Data (SHA256 and other hash algorithms)

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
jpgData: TChilkatBinData;
success: Integer;
jpgBytes: Array of Byte;
crypt: TChilkatCrypt2;
hashBytes: Array of Byte;
sb: TChilkatStringBuilder;
hashHexStr: WideString;

begin
// 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..
jpgData := TChilkatBinData.Create(Self);
success := jpgData.LoadFile('qa_data/jpg/starfish.jpg');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load file.');
    Exit;
  end;

jpgBytes := jpgData.GetBinary();

crypt := TChilkatCrypt2.Create(Self);

// Choose the hash algorithm.
// Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
crypt.HashAlgorithm := 'sha256';

hashBytes := crypt.HashBytes(jpgBytes);

// Let's examine the hash as a hex string.
sb := TChilkatStringBuilder.Create(Self);
sb.AppendEncoded(hashBytes,'hex');
Memo1.Lines.Add('SHA256 hash = ' + sb.GetAsString());

// We could alternatively hash the bytes and receive the hex result directly:
crypt.EncodingMode := 'hex';
hashHexStr := crypt.HashBytesENC(jpgBytes);
Memo1.Lines.Add('SHA256 hash = ' + hashHexStr);
end;