uses IdHash, IdHashMessageDigest;
function GetStringMD5(const AInPut: string): string;
var
MD5: TIdHashMessageDigest5;
{$IF CompilerVersion<20.0}
Digest: T4x4LongWordRecord;
{$IFEND}
begin
MD5 := TIdHashMessageDigest5.Create;
try
{$IF CompilerVersion>20.0} // Delphi 2009 +
Result := LowerCase(MD5.HashStringAsHex(AInPut));
{$ELSE}
Digest := MD5.HashValue(AInPut);
Result := LowerCase(MD5.AsHex(Digest));
{$IFEND}
finally
MD5.Free;
end;
end;
Delphi xe7 MD5算法
菜鸟欧少2024-06-25 12:26
相关推荐
张世争10 小时前
windows clion MingW cmake 编译运行 FreeRTOSAI 智能服务10 小时前
第6课__本地工具调用(文件操作)IDC02_FEIYA11 小时前
SQL Server 2025数据库安装图文教程(附SQL Server2025数据库下载安装包)Kevin Wang72711 小时前
欧拉系统服务部署注意事项取个名字太难了a14 小时前
初始化APCC++ 老炮儿的技术栈14 小时前
什么是通信规约Ankie Wan15 小时前
windows技巧:要将 Windows 资源管理器的默认查看方式设置为详细信息ayaya_mana17 小时前
VS Code 远程开发:SSH连接与远程资源管理器的配置龙潜月七18 小时前
做一个背单词的脚本ohoy18 小时前
RedisTemplate 使用之List