Question

嗨我需要在5 Gig文件上生成SHA

你知道一个非字符串的Delphi库可以做到吗？

Answer 1

您应该使用DCPcrypt v2并读取缓冲的文件并将SHA hasher与缓冲区一起提供，直到您阅读完整的5GB文件为止。

如果您想知道如何阅读缓冲的大文件，请参阅我的回答about a file copy using custom buffering。

所以在概念上（没有真正的delphi代码！）：

function GetShaHash(const AFilename: String)
begin
  sha := TSHAHasher.Create;
  SetLength(Result, sha.Size);
  file := OpenFile(AFilename, GENERIC_READ);
  while not eof file do
  begin
     BytesRead := ReadFile(file, buffer[0], 0, 1024 * 1024);
     sha.Update(buffer[0], BytesRead);
  end;
  sha.Final(Result[0]); 
  CloseFile(file);
end;

Answer 2

我会推荐Wolfgang Ehrhardt的CRC / Hash。
http://home.netsurf.de/wolfgang.ehrhardt/

它很快并且“可以使用最新的Pascal（TP 5 / 5.5 / 6，BP 7，VP 2.1，FPC 1.0 / 2.0 / 2.2）和Delphi版本（使用V1至V7 / 9/10测试）进行编译”

我也用过D11 / D12。

Answer 3

如果我没记错的话，Indy会提供几种基于流的哈希方法。

Answer 4

OpenSSL有一个Delphi接口，不存在吗？

这应该会为你提供更好的表现。

Answer 5

@戴维·兰德曼，谢谢，您的回答确实帮助了我。这是我最终使用的代码：

function HashFileSHA256(const fileName: String): String;
var
  sha256: TDCP_sha256;
  buffer: array[0..1024*1024] of byte;
  i, bytesRead: Integer;
  streamIn: TFileStream;
  hashBuf: array[0..31] of byte;
begin
  // Initialization
  Result := '';
  streamIn := TFileStream.Create(fileName, fmOpenRead);
  sha256 := TDCP_sha256.Create(nil);
  for i:=0 to Sizeof(buffer) do
    buffer[i] := 0;
  for i:=0 to Sizeof(hashBuf) do
    hashBuf[i] := 0;
  bytesRead := -1;

  // Compute
  try
    sha256.Init;
    while bytesRead <> 0 do
    begin
      bytesRead := streamIn.Read(buffer[0], Sizeof(buffer));
      sha256.Update(buffer[0], bytesRead);
    end;
    sha256.Final(hashBuf);
    for I := 0 to 31 do
      Result := Result + IntToHex(hashBuf[i], 2);
  finally
    streamIn.Free;
    sha256.Free;
  end;

  Result := LowerCase(Result);
end;

P.S .：我是Pascal的初学者，所以这段代码很可能很烂。但是我在MSYS2安装程序上对其进行了测试，并且能够验证哈希，所以很好。

Delphi：如何计算大文件的SHA哈希值

5 个答案: