常用加密算法-Delphi XE 10.3.3

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

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