(Delphi DLL) 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 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;
content: PWideChar;
hashStr: PWideChar;

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

crypt := CkCrypt2_Create();

content := 'abcdefghijklmnopqrstuvwxyz';

// The desired output is a hexidecimal string:
CkCrypt2_putEncodingMode(crypt,'hex');

// Set the hash algorithm:
CkCrypt2_putHashAlgorithm(crypt,'ripemd128');

hashStr := CkCrypt2__hashStringENC(crypt,content);

Memo1.Lines.Add(hashStr);

// The output is:
// FD2AA607F71DC8F510714922B371834E

CkCrypt2_putHashAlgorithm(crypt,'ripemd160');
hashStr := CkCrypt2__hashStringENC(crypt,content);
Memo1.Lines.Add(hashStr);

// The output is:
// F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

CkCrypt2_putHashAlgorithm(crypt,'ripemd256');
hashStr := CkCrypt2__hashStringENC(crypt,content);
Memo1.Lines.Add(hashStr);

// The output is:
// 649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

CkCrypt2_putHashAlgorithm(crypt,'ripemd320');
hashStr := CkCrypt2__hashStringENC(crypt,content);
Memo1.Lines.Add(hashStr);

// The output is:
// CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B00

CkCrypt2_Dispose(crypt);

end;