با سلام و ادب

با توجه به وجود indy در نسخه های مختلف دلفی میشه از این کد هم استفاده کرد.

کد:

کد:
uses
IdHash, IdHashMessageDigest;

with TIdHashMessageDigest5.Create do
 * try
 * * *MD5-code := TIdHash128.AsHex(HashValue("sample_text"));
 * finally
 * * *Free;
* end;