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
相关推荐
扛枪的书生3 小时前
AD 侦查-MSRPC程序员Bears7 小时前
IntelliJ IDEA 2025系列通用软件安装教程(Windows版)CHANG_THE_WORLD7 小时前
Windows DirectWrite接口 遍历字体信息只可远观7 小时前
Flutter Dart 集合类型List Set Map详解军 以及循环语句 forEaclh map where any everyyangshuo128110 小时前
风车邮箱系统详细使用指南:Windows与Ubuntu双平台解析技术liul10 小时前
如何在iStoreOS DHCP中排除特定IP地址补三补四14 小时前
操作系统:计算机世界的基石与演进chuhx18 小时前
Stream API 对两个 List 进行去重操作爱编程的鱼1 天前
C# 枚举(Enum)声明与使用详解进取星辰1 天前
Windows 10 上运行 Ollama 时遇到 llama runner process has terminated: exit status 2