(Delphi ActiveX) Example: Crypt2.HashStringENC method
Demonstrates how to call the HashStringENC method.
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;
s: WideString;
hashStr: WideString;
begin
crypt := TChilkatCrypt2.Create(Self);
s := 'får';
// The string "får" in utf-8 is composed of these bytes: 0x66 0xC3 0xA5 0x72
crypt.Charset := 'utf-8';
crypt.EncodingMode := 'hex_lower';
crypt.HashAlgorithm := 'sha256';
// Get the hex string for the sha-256 hash of the utf-8 byte representation of the string
hashStr := crypt.HashStringENC(s);
Memo1.Lines.Add(hashStr);
// Output:
// cb8f773dd592337ed7f928012a60f48e1efb357beeda124a54461410e216fece
end;
|