[[duilioisola]]

Para eso te puede servir la web de Seoane!

Con el ejemplo que pone, tendrás suficiente:

Código Delphi [-]
  // sha1
  ShowMessage(CalcHash2('The quick brown fox jumps over the lazy dog',haSHA1));
  // md5
  ShowMessage(CalcHash2('The quick brown fox jumps over the lazy dog',haMD5));