主要用到 DELPHI XE 10.2新增HASH函数
class function TUtils.GetStringMD5(const AInPut: string): string; begin Result := THashMD5.GetHashString(AInPut).ToLower; end;
常用加密算法-Delphi XE 10.3.3
原文：https://www.cnblogs.com/redhat588/p/12174471.html
