RAD Studio 10.3.3 测试√
uses
IdHashMessageDigest, IdGlobal;
procedure TForm1.Button_1Click(Sender: TObject);
var
mHashMD5: TIdHashMessageDigest5;
str: string;
begin
mHashMD5 := TIdHashMessageDigest5.Create;
try
str := IdGlobal.IndyLowerCase(mHashMD5.HashStringAsHex('xiaoyin'));
Memo1.Lines.Add(str);
finally
mHashMD5.Free;
end;
end;
一点点笔记,以便以后翻阅。