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

相关推荐
qq_393828221 小时前
电脑休眠设置
windows·电脑·软件需求
网安小白的进阶之路4 小时前
A模块 系统与网络安全 第三门课 网络通信原理-3
网络·windows·安全·web安全·系统安全
芳草萋萋鹦鹉洲哦11 小时前
【vue3+tauri+rust】如何实现下载文件mac+windows
windows·macos·rust
李洋-蛟龙腾飞公司11 小时前
HarmonyOS NEXT应用元服务常见列表操作多类型列表项场景
windows
new_zhou15 小时前
Windows qt打包编译好的程序
开发语言·windows·qt·打包程序
Rocket MAN16 小时前
Rovo Dev CLI Windows 安装与使用指南
windows
fzyz12319 小时前
Windows系统下WSL从C盘迁移方案
人工智能·windows·深度学习·wsl
csdn_aspnet21 小时前
在 Windows 机器上安装和配置 RabbitMQ
windows·rabbitmq
csdn_aspnet1 天前
Windows Server 上的 RabbitMQ 安装和配置
windows·rabbitmq
热爱生活的猴子1 天前
Poetry 在 Linux 和 Windows 系统中的安装步骤
linux·运维·windows