How do I hash a string with Delphi?

Question

How do I make an MD5 hash of a string with Delphi?

Answer 1

If you want an MD5 digest and have the Indy components installed, you can do this:

uses SysUtils, IdGlobal, IdHash, IdHashMessageDigest;  with TIdHashMessageDigest5.Create do try     Result := TIdHash128.AsHex(HashValue('Hello, world')); finally     Free; end; 

Most popular algorithms are supported in the Delphi Cryptography Package:

• Haval
• MD4, MD5
• RipeMD-128, RipeMD-160
• SHA-1, SHA-256, SHA-384, SHA-512,
• Tiger

Update DCPCrypt is now maintained by Warren Postma and source can be found here.

Answer 2

If you want an MD5 hash string as hexadeciamal and you have Delphi XE 1 installed, so you have Indy 10.5.7 components you can do this:

uses IdGlobal, IdHash, IdHashMessageDigest;

class function getMd5HashString(value: string): string; var     hashMessageDigest5 : TIdHashMessageDigest5; begin     hashMessageDigest5 := nil;     try         hashMessageDigest5 := TIdHashMessageDigest5.Create;         Result := IdGlobal.IndyLowerCase ( hashMessageDigest5.HashStringAsHex ( value ) );     finally         hashMessageDigest5.Free;     end; end;