Wenn der Algorithmus keine Rolle spielt kannst du z. B. das
DelphiEncryptionCompedium (kostenlos) verwenden.
So einfach gehts:
Delphi-Quellcode:
uses
DECHash, DECFmt;
...
procedure TForm11.Button1Click(Sender: TObject);
var
SourceStr: String;
DestStr: String;
begin
SourceStr := 'Hallo Welt!';
DestStr := THash_MD5.CalcBinary(SourceStr, TFormat_HEXL);
ShowMessage(DestStr); // = 55243ecf175013cfe9890023f9fd9037
end;
Im Beispiel wird MD5 als Algorithmus verwendet. Das
DEC unterstützt aber noch viele weitere.
Delphi-Quellcode:
THash_MD2
THash_MD4
THash_MD5
THash_RipeMD128
THash_RipeMD160
THash_RipeMD256
THash_RipeMD320
THash_SHA
THash_SHA1
THash_SHA256
THash_SHA384
THash_SHA512
THash_Haval128
THash_Haval160
THash_Haval192
THash_Haval224
THash_Haval256
THash_Tiger
THash_Panama
THash_Whirlpool
THash_Whirlpool1
THash_Square
THash_Snefru128
THash_Snefru256
THash_Sapphire