delphi7 读取MD5值

最新推荐文章于 2025-07-09 09:46:39 发布

转载最新推荐文章于 2025-07-09 09:46:39 发布 · 419 阅读

本文介绍了如何使用USESIdGlobal和IdHash库中的GetMd5Str函数来将字符串转换为MD5哈希值，并通过案例演示了其应用过程。

USES IdGlobal,IdHash;

function GetMd5Str(ContenStr:string):string;
var
  RegMd5:TIdHashMessageDigest5;
  RegDigest:T4x4LongWordRecord;
begin
  RegMd5:=TIdHashMessageDigest5.Create;
  RegDigest:=RegMd5.HashValue(ContenStr);
  Result:=LowerCase(RegMd5.AsHex(RegDigest));
end;