如何用Delphi 7实现SHA-512加密哈希算法？解决访问冲突错误

云原生阿岚

2026-7-9

解决TIdHashSHA512.HashStringAsHex访问冲突及结果匹配问题

问题分析

你遇到的访问冲突错误大概率和以下两点有关：

旧版Indy组件的HashStringAsHex方法在处理Unicode字符串时存在内存管理缺陷；
未指定编码导致字符串处理逻辑异常，同时结果也无法和在线SHA512工具对齐（在线工具默认用UTF-8编码处理输入）。

解决方案

方案1：指定UTF-8编码调用（适配新版Indy）

升级到最新稳定版Indy后，修改代码明确指定UTF-8编码，既解决访问冲突，又保证结果和在线工具一致：

uses IdHash, IdHashSHA, IdGlobal;

function TForm1.SHA512(const AString: string): string;
var 
  LSHA512: TIdHashSHA512;
begin
  LSHA512 := TIdHashSHA512.Create;
  try
    // 指定UTF-8编码对齐在线工具逻辑
    Result := LSHA512.HashStringAsHex(AString, IndyTextEncoding_UTF8);
  finally
    LSHA512.Free;
  end;
end;

方案2：直接处理UTF-8字节数组（兼容旧版Indy）

如果无法升级Indy，通过先将字符串转为UTF-8字节数组再哈希的方式，规避HashStringAsHex的内存问题：

uses IdHash, IdHashSHA, IdGlobal;

function TForm1.SHA512(const AString: string): string;
var 
  LSHA512: TIdHashSHA512;
  UTF8Bytes: TIdBytes;
begin
  LSHA512 := TIdHashSHA512.Create;
  try
    UTF8Bytes := IndyTextEncoding_UTF8.GetBytes(AString);
    Result := LSHA512.HashBytesAsHex(UTF8Bytes);
  finally
    LSHA512.Free;
  end;
end;