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
相关推荐
蓝田~20 分钟前
观察者模式和订阅模式梓仁沐白7 小时前
ubuntu+windows双系统切换后蓝牙设备无法连接九鼎科技-Leo11 小时前
什么是 WPF 中的依赖属性?有什么作用?Yang.9913 小时前
基于Windows系统用C++做一个点名工具我不瘦但很逗13 小时前
Windows下使用DBeaver连接云数据库(MySQL)ashane131415 小时前
Java list万里沧海寄云帆15 小时前
Word 插入分节符页码更新问题dot.Net安全矩阵16 小时前
.NET 通过模块和驱动收集本地EDR的工具编程修仙17 小时前
Collections工具类程序员小羊!19 小时前
高级 SQL 技巧讲解