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
相关推荐
毕竟是shy哥2 小时前
windows电脑WSL下本地构建docker镜像kakakahahahaha11 小时前
【Windows】C盘低空间反复复发的排查与扩容边界2301_8000742113 小时前
map,list简单方法技术不好的崎鸣同学13 小时前
Windows 红队实战:前言吴声子夜歌14 小时前
Guava——基本工具(二)猎嘤一号16 小时前
【2026 最新】Windows 11 右键菜单还原为 Windows 10 经典样式:一条命令、原理、回退与新版说明qq_3692243316 小时前
ddraw.dll丢失是什么原因引起的?老游戏运行报错,多种可行修复手段汇总分享BR_D16 小时前
Windows 下 nvm 安装与完整使用教程还是大剑师兰特18 小时前
Maven‑3.9.16 Windows 下载+安装+环境变量完整教程️学习的小王19 小时前
Windows Claude Code 接入 Playwright‑MCP,调用本机Edge浏览器(避坑完整教程)