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

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

版权声明：本文为redhat588原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/redhat588/p/12174471.html