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

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