主要用到  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-LMLPHP

05-21 01:05