Delphi xe7 MD5算法

复制代码
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;

摘自:https://www.cnblogs.com/rtcmw/p/12678595.html

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