Using: D7
uses SysUtils, StrUtils, IdHash, IdHashMessageDigest; .. var idmd5: TIdHashMessageDigest5; h, v: string; begin idmd5 := TIdHashMessageDigest5.Cr