RIPEMD Hash a String

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

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
content: String;
hashStr: String;

begin
crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage(crypt.LastErrorText);
    Exit;
  end;

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:
//  CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B009

end;