use IdHashMessageDigest;
function ComputeMD5_Indy9(const InputString: string): string;
var
MD5: TIdHashMessageDigest5;
UTF8Str: UTF8String; // 用于UTF-8编码的字符串
begin
MD5 := TIdHashMessageDigest5.Create;
try
// 将字符串显式转换为UTF-8编码
UTF8Str := UTF8Encode(InputString);
// 计算哈希值并转换为十六进制字符串
Result := LowerCase(MD5.AsHex(MD5.HashValue(UTF8Str)));
finally
MD5.Free;
end;
end;