Question

Напишите программу, реализующую расчет контрольной суммы для заданного файла. Имя файла задается как параметр для опции --file. Размер файла должен быть не менее 2 Мбайт. Содержание кодируемого файла роли не играет. ПОМОГИТЕ ПОЖАЛУЙСТА, нужно сделать либо в паскале (можно в любом, желательно в ABC.NET или в delfi7) И прекрипите файлик сюда или напишите код.

Answer 1

Відповідь:

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;

Пояснення:

чтото типа етого

https://stackoverflow.com/questions/553310/delphi-how-to-calculate-the-sha-hash-of-a-large-file