Delphi xe7 MD5算法

最新推荐文章于 2025-04-16 21:39:30 发布

原创最新推荐文章于 2025-04-16 21:39:30 发布 · 488 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

标签

#windows

收录于

delphi 技巧专栏收录该内容

19 篇文章

订阅专栏

uses IdHash, IdHashMessageDigest;

function GetStringMD5(const AInPut: string): string;
var
  MD5: TIdHashMessageDigest5;
{$IF CompilerVersion<20.0}
  Digest: T4x4LongWordRecord;
{$IFEND}
begin
  MD5 := TIdHashMessageDigest5.Create;
  try
{$IF CompilerVersion>20.0}   // Delphi 2009 +
    Result := LowerCase(MD5.HashStringAsHex(AInPut));
{$ELSE}
    Digest := MD5.HashValue(AInPut);
    Result := LowerCase(MD5.AsHex(Digest));
{$IFEND}
  finally
    MD5.Free;
  end;
end;

摘自：https://www.cnblogs.com/rtcmw/p/12678595.html