SHA512 sum incorrect for some files

[Nils Achterholt (Gloegg)]

I discovered, that the calculated SHA512 sum is not correct for some files. I attached a file (test_73.txt) for which this is the case and the output of the linux CLI tool "sha512sum"

This is the source code I used to check the files.

procedure TForm3.Button2Click(Sender: TObject);
var
  h, h_correct : string;
  sha : TSHA512;
begin
  sha := TSHA512.Create;
  h := sha.ComputeHashOfFile('test_73.txt').ToHexString.ToLower;
  h_correct := TFile.ReadAllText('test_73.txt.sha512').Substring(0,128);
  if h <> h_correct then
    showMessage('incorrect hash');
  sha.Free;
end;

I am on Delphi Tokyo 10.2.3.

[Stefan Glienke]

fixed #303

→ <<cset 927c76679247>>