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
相关推荐
joe023510 小时前
电脑安装 Win10 提示无法在当前分区上安装Windows的解决办法前端 贾公子10 小时前
vue-cli 模式下安装 uni-uiElastic 中国社区官方博客12 小时前
在 Windows 上使用 Docker 运行 Elastic Open CrawlerCIAS14 小时前
clonezilla 导出自动化恢复iso墨菲安全15 小时前
Node.js Windows下路径遍历漏洞NoirSeeker16 小时前
在windows平台上基于OpenHarmony sdk编译三方库并暴露给ArkTS使用(详细)红藕香残玉簟秋16 小时前
【python学习】windows使用conda管理python虚拟环境紫云无堤1 天前
20250717 Ubuntu 挂载远程 Windows 服务器上的硬盘wydxry1 天前
断网情况下,网线直连 Windows 笔记本 和Ubuntu 服务器_Kayo_2 天前
项目学习笔记 display从none切换成block