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
相关推荐
love530love9 小时前
OpenClaw Windows Companion 桌面客户端 连接 LM Studio 完整配置指南光年像素20 小时前
Windows Win+R 运行框常用快捷命令大全寒水馨1 天前
Windows下载、安装ollama-v0.32.1(附安装包OllamaSetup.exe)曾阿伦1 天前
Windows 下运行 Hadoop 并部署到 AWS EMR 指南小飞侠在吗1 天前
【MySQL 排错】Navicat 连接 localhost 报 2002 (10061) 完整排查记录(Windows + MySQL 8.4 用户模式)王维同学1 天前
[原创][Windows C++]Explorer Shell 扩展、图标覆盖与 COM 服务器定位圣殿骑士-Khtangc1 天前
WSL2 + Redis Stack 完整部署教程(Windows 11)广州灵眸科技有限公司1 天前
xfce桌面触摸校准:基于灵眸科技EASY-EAl-Orin-NanoCtrl+Z侠2 天前
.NET WebApi Windows / Linux Docker 全链路压测与瓶颈定位 0 到 1 教程王维同学2 天前
[原创][Windows C++]LSA 认证、安全与通知包的注册表枚举