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
相关推荐
Geeker5518 分钟前
适用于 Windows 11/10/8/7/Vista/XP 的最佳免费分区软件百事牛2 小时前
设置和取消Excel“打开密码”的3种方法01传说3 小时前
JAVA 发送短信信息工具类(腾讯云)Kali_风筝5 小时前
SQL 注入联合查询之为什么要 and 1=2CodeLinghu6 小时前
【设计模式】观察者模式(定义 | 特点 | Demo入门讲解)一棵树8288 小时前
windows电脑如何运行python的定时任务码农超哥同学10 小时前
Python面试题:如何在 Python 中反转一个字符串?Mero技术博客11 小时前
Fragment+Viewpage2+FragmentStateAdapter实现滑动式标签布局东方佑12 小时前
使用tkinter 制作工作流ui~我在北京~14 小时前
完整篇-Python数据类型转换