uses IdGlobal, IdHashMessageDigest;
function GetMd5(AValue: AnsiString): string;
var
md5: TIdHashMessageDigest5;
begin
md5 := TIdHashMessageDigest5.Create;
try
Result := md5.HashStringAsHex(AValue, IndyTextEncoding(Tencoding.UTF8));
finally
md5.Free;
end;
end;
测试可用。