StringHash

procedure TForm1.Button2Click(Sender: TObject);
var
  Hash: TDCP_ripemd160;
  Digest: array[0..19] of byte;
  i: integer;
  s,t: String;
begin
  t := 'Teststring ein Test ist ein Test';
  hash := TDCP_RIPEMD160.Create(self);
  hash.Init;
    hash.UpdateStr(t);
  hash.Final(digest);
  s :='';
  for i := 0 to 19 do
    S := s+ IntToHex(Digest[i],2);
  ShowMessage(s);
end;