Delphi MD5加密

Delphi 中可以使用 IdHashMessageDigest.TIdHashMessageDigest5 类来实现 MD5 加密。

以下是一个简单的 Delphi 程序示例，演示如何使用 TIdHashMessageDigest5 类进行 MD5 加密：

uses
  IdHashMessageDigest;

function MD5(const AStr: string): string;
var
  IdHashMessageDigest5: TIdHashMessageDigest5;
begin
  IdHashMessageDigest5 := TIdHashMessageDigest5.Create;
  try
    Result := IdHashMessageDigest5.HashStringAsHex(AStr);
  finally
    IdHashMessageDigest5.Free;
  end;
end;

在上面的示例中，MD5 函数接受一个字符串参数并返回一个字符串结果。要使用该函数，只需调用 MD5 函数并将要加密的字符串作为参数传递给它即可。

例如：

var
  EncryptedStr: string;
begin
  EncryptedStr := MD5('Hello World!');
  ShowMessage(EncryptedStr);
end;

运行上面的代码，将在消息框中显示字符串 "ed076287532e86365e841e92bfc50d8c"，这就是 "Hello World!" 的 MD5 加密结果。