原始文章

 主要用到  DELPHI XE 10.2新增HASH函数

class function TUtils.GetStringMD5(const AInPut: string): string;
begin
  Result := THashMD5.GetHashString(AInPut).ToLower;
end;