sha3 := TSHA3Hash.Create;
sha3.AType := tsha;
sha3.HashSizeBits := 256;
sha3.Version := 256;
Try
s := sha3.HashFile(edtFile.Text);
Application.ProcessMessages;
Finally
edtHashFile.Text := s;
sha3.Free;
End;
end;
This is now addressed in version 1.3 where SHA3 has been completely rewritten. Note that SHA2 has also been modified to improve hashing speed for huge files.
For these files, performance is indeed bound to the processor type and clock speed but also to hard drive capabilities (SSDs being better).