(Delphi ActiveX) RIPEMD Hash a String

Demonstrates how to RIPEMD hash a string using RIPEMD-128, RIPEMD-160, RIPEMD-256, and RIPEMD-320.

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
crypt: TChilkatCrypt2;
content: WideString;
hashStr: WideString;

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

crypt := TChilkatCrypt2.Create(Self);

content := 'abcdefghijklmnopqrstuvwxyz';

// The desired output is a hexidecimal string:
crypt.EncodingMode := 'hex';

// Set the hash algorithm:
crypt.HashAlgorithm := 'ripemd128';

hashStr := crypt.HashStringENC(content);

Memo1.Lines.Add(hashStr);

// The output is:
// FD2AA607F71DC8F510714922B371834E

crypt.HashAlgorithm := 'ripemd160';
hashStr := crypt.HashStringENC(content);
Memo1.Lines.Add(hashStr);

// The output is:
// F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

crypt.HashAlgorithm := 'ripemd256';
hashStr := crypt.HashStringENC(content);
Memo1.Lines.Add(hashStr);

// The output is:
// 649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

crypt.HashAlgorithm := 'ripemd320';
hashStr := crypt.HashStringENC(content);
Memo1.Lines.Add(hashStr);

// The output is:
// CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B00
end;