Build environment: Windows 7 + Delphi xe 10.3.2
Package courier birds interfaces, noting pit: MD5 to lowercase.
function TKDniaoAPI.StrtoMd5(const str: string): string; var AMD5: TIdHashMessageDigest5; begin AMD5 := TIdHashMessageDigest5.Create; try Result := AnsiLowerCase(AMD5.HashStringAsHex(str, IndyTextEncoding(TEncoding.UTF8))); //注意转小写 finally AMD5.Free; end; end;