Дельфи:Как вычислить SHA-хеш большого файла

Question

Привет, мне нужно сгенерировать SHA для файла размером 5 ГБ.

Знаете ли вы о библиотеке Delphi, не основанной на строках, которая может это сделать?

Answer 1

Вы должны использовать ДКПкрипт v2 и прочитайте ваш файл в буфере и подайте хэшер SHA с буфером, пока вы не прочитаете весь файл размером 5 ГБ.

Если вы хотите знать, как читать большой файл в буфере, см. мой ответ. о копировании файла с использованием пользовательской буферизации.

так что в концепции (нет реального кода 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

Я бы порекомендовал 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

Существует ли интерфейс Delphi для OpenSSL, не так ли?

Это должно обеспечить вам лучшую производительность.

Answer 5

@Davy Landman, спасибо, ваш ответ действительно помог мне.Это код, который я в итоге использовал:

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.:Я новичок в Паскале, поэтому этот код, скорее всего, отстой.Но я протестировал его в установщике MSYS2 и смог проверить хэш, так что это хорошо.