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
相关推荐
chilavert3184 小时前
技术演进中的开发沉思-30 MFC系列:五大机制荔枝吻20 小时前
【保姆级喂饭教程】Windows下安装Git Flow深盾科技1 天前
深入解析 .NET 泛型:从原理到实战优化石头wang1 天前
如何在idea里快速地切换Windows CMD、git bash、powershell天高云淡ylz1 天前
各类电子设备镜像格式及文件系统统计LCG元2 天前
Windows实时内核驱动的数据捕获接口:高精度时钟与零拷贝的架构剖析行者游学2 天前
windows grpcurlgoxingman2 天前
Spring Data JPA基本方法调用规律泰勒朗斯2 天前
ffmpeg 中config 文件一些理解cz_r5552 天前
在使用ffmpeg时遇到了复制路径在终端输入指令后,报错的解决方法