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
相关推荐
qq_393828221 小时前
电脑休眠设置网安小白的进阶之路4 小时前
A模块 系统与网络安全 第三门课 网络通信原理-3芳草萋萋鹦鹉洲哦11 小时前
【vue3+tauri+rust】如何实现下载文件mac+windows李洋-蛟龙腾飞公司11 小时前
HarmonyOS NEXT应用元服务常见列表操作多类型列表项场景new_zhou15 小时前
Windows qt打包编译好的程序Rocket MAN16 小时前
Rovo Dev CLI Windows 安装与使用指南fzyz12319 小时前
Windows系统下WSL从C盘迁移方案csdn_aspnet21 小时前
在 Windows 机器上安装和配置 RabbitMQcsdn_aspnet1 天前
Windows Server 上的 RabbitMQ 安装和配置热爱生活的猴子1 天前
Poetry 在 Linux 和 Windows 系统中的安装步骤