(Delphi DLL) Hashing Encoded Data

This example explains how it's important to know exactly what bytes are getting hashed when working with encoded data, such as hex, base64, 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, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
strToHash: PWideChar;
hashValue: PWideChar;

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

crypt := CkCrypt2_Create();

// Imagine we want to SHA-1 hash this A9133F6DC63E85BE0619763F8975CA076FF91B95CB6F121CD21C016143315E11B9ED4374F174B2CC
strToHash := 'A9133F6DC63E85BE0619763F8975CA076FF91B95CB6F121CD21C016143315E11B9ED4374F174B2CC';

// The question is:  Do we want to hash the bytes 0xA9, 0x13, 0x3F...
// or do we want to literally hash each us-ascii byte:  'A', '9', '1', '3'.

// The results will obviously be different depending on what bytes are actually hashed.

// To hash the decoded bytes (i.e. 0xA9, 0x13, 0x3F...) we do this:

// "hex" is not an actual character encoding.  It's a special value to be used to tell Chilkat to hex decode
// the string and pass the decoded bytes to the hash algorithm...
CkCrypt2_putCharset(crypt,'hex');
CkCrypt2_putHashAlgorithm(crypt,'sha1');
// Get the hash result in lowercase hex
CkCrypt2_putEncodingMode(crypt,'hex_lower');
hashValue := CkCrypt2__hashStringENC(crypt,strToHash);
Memo1.Lines.Add('hash of decoded hex bytes: ' + hashValue);

// The result is 7a4a2ba73811fab98b4baaee2df164cbdd0d8e8e

// This is how to hash the us-ascii byte values:
// The Charset property defines the byte representation of the string passed to the hash algorithm:
CkCrypt2_putCharset(crypt,'us-ascii');
// The EncodingMode property defines the binary encoding (hex, base64, etc.) of the hash returned as an encoded string.
CkCrypt2_putEncodingMode(crypt,'hex');
CkCrypt2_putHashAlgorithm(crypt,'sha1');

hashValue := CkCrypt2__hashStringENC(crypt,strToHash);
Memo1.Lines.Add('hash of us-ascii bytes: ' + hashValue);

// The result is:  2A7500F88734F4B19C79852CA0FF3E1C561F31C8

// 

CkCrypt2_Dispose(crypt);

end;