delphi MD5加密

Delphi 中可以使用 TIdHashMessageDigest5 类来进行 MD5 加密。

首先需要添加 IdHashMessageDigest 单元到项目中，然后可以像下面这样进行加密：

uses
  IdHashMessageDigest;

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

然后就可以调用该函数进行 MD5 加密了：

Memo1.Text := MD5('hello world');

输出就是 `5eb63bbbe01eeed093cb22bb8f5acdc3`。