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

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample 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;