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
相关推荐
tadus_zeng9 小时前
Windows C++ 排查死锁EverestVIP9 小时前
VS中动态库(外部库)导出与使用抛物线.12 小时前
inhibitor_tool宋冠巡13 小时前
Windows安装Docker(Docker Desktop)淬渊阁14 小时前
windows技术基础知识niandb20 小时前
The Rust Programming Language 学习 (九)virelin_Y.lin1 天前
系统与网络安全------Windows系统安全(1)电星托马斯1 天前
C++中顺序容器vector、list和deque的使用方法麻芝汤圆1 天前
使用 MapReduce 进行高效数据清洗:从理论到实践@郭小茶1 天前
windows部署docker