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

相关推荐
吴声子夜歌7 小时前
Java数据结构与算法——基本数学问题
java·开发语言·windows
这儿有一堆花10 小时前
用原生脚本编写无害恶作剧
windows
因我你好久不见10 小时前
Windows部署springboot jar支持开机自启动
windows·spring boot·jar
夜流冰10 小时前
Excel - MS Support for Excel: 2 Collaborate
数据库·windows·excel
林瞅瞅11 小时前
PowerShell 启动卡顿?内存飙升?原来是 800MB 的历史记录在作祟!
windows
Shepherd061912 小时前
【Windows Server 实战】WAC 反向代理配置
windows
云小逸12 小时前
【windows系统编程】第一章 Windows 系统核心架构与基础概念
windows·架构
怣疯knight13 小时前
Docker Desktop 4.55.0版本安装成功教程
windows·docker
liulilittle15 小时前
VEthernet 框架实现 tun2socks 的技术原理
网络·windows·c#·信息与通信·通信
独钓寒江雨15 小时前
win11在安全模式下删除360tray.exe
windows·电脑