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
相关推荐
集成显卡14 小时前
windows 下使用 bat 批处理运行 Chrome 无头模式刷一波访问量路由侠内网穿透3 天前
本地部署 GPS 跟踪系统 Traccar 并实现外部访问研华嵌入式3 天前
如何在高通跃龙QCS6490 Arm架构上使用Windows 11 IoT企业版?带娃的IT创业者4 天前
Windows 平台上基于 MCP 构建“文心一言+彩云天气”服务实战csdn_aspnet4 天前
Windows Node.js 安装及环境配置详细教程摇滚侠4 天前
java语言中,list<String>转成字符串,逗号分割;List<Integer>转字符串,逗号分割Source.Liu4 天前
【Pywinauto库】12.2 pywinauto.element_info 后端内部实施模块Source.Liu4 天前
【Pywinauto库】12.1 pywinauto.backend 后端内部实施模块私人珍藏库4 天前
[Windows] FileOptimizer v17.1.0_一款文件批量压缩工具掘根4 天前
【CMake】List