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
相关推荐
磊灬泽4 小时前
【日常错误】鼠标无反应UNbuff_011 小时前
Windows netstat 命令使用说明您的通讯录好友12 小时前
conda环境导出子兮曰16 小时前
🔥C盘告急!WSL磁盘暴增?三招秒清20GB+空间学历真的很重要17 小时前
Claude Code Windows 原生版安装指南李游Leo17 小时前
LaTeX TeX Live 安装与 CTAN 国内镜像配置(Windows / macOS / Linux 全流程)Jayin_chan18 小时前
windows下安装claude code+国产大模型glm4.5接入(无需科学上网)cpsvps_net20 小时前
Windows远程FX编解码优化爱睡觉的圈圈21 小时前
突破反爬限制:动态IP轮换策略与实现fdc201721 小时前
Avalonia:使用附加属性实现命令与事件的绑定