(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BinData, StringBuilder, CkByteData, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
jpgData: HCkBinData;
success: Boolean;
jpgBytes: HCkByteData;
crypt: HCkCrypt2;
hashBytes: HCkByteData;
sb: HCkStringBuilder;
hashHexStr: PWideChar;

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 := CkBinData_Create();
success := CkBinData_LoadFile(jpgData,'qa_data/jpg/starfish.jpg');
if (success <> True) then
  begin
    Memo1.Lines.Add('Failed to load file.');
    Exit;
  end;
jpgBytes := CkByteData_Create();
success := CkBinData_GetBinary(jpgData,jpgBytes);

crypt := CkCrypt2_Create();

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

hashBytes := CkByteData_Create();
success := CkCrypt2_HashBytes(crypt,jpgBytes,hashBytes);

// Let's examine the hash as a hex string.
sb := CkStringBuilder_Create();
CkStringBuilder_AppendEncoded(sb,hashBytes,'hex');
Memo1.Lines.Add('SHA256 hash = ' + CkStringBuilder__getAsString(sb));

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

CkBinData_Dispose(jpgData);
CkByteData_Dispose(jpgBytes);
CkCrypt2_Dispose(crypt);
CkByteData_Dispose(hashBytes);
CkStringBuilder_Dispose(sb);

end;