delphi自带md5的使用方法,在xe10.2版本测试通过。
uses单元中加入IdHashMessageDigest
procedure TForm1.Button1Click(Sender: TObject);var
MD5: TIdHashMessageDigest5;
begin
MD5 := TIdHashMessageDigest5.Create;
Edit2.Text := MD5.HashStringAsHex(Edit1.Text);
end;
貌似10.2中还有一个SHA的方法,回头慢慢研究一下。