fix: better logic for hashfile

Author: Torwent

Source/simba.hash.pas

@@ -71,12 +71,10 @@ function HashFile(Algo: EHashAlgo; const FileName: String): String;
 
   try
     Stream := TFileStream.Create(FileName, fmOpenRead);
-    if (Len = -1) then
-      Len := $FFFFFF;
-    SetLength(Bytes, Min(Len, Stream.Size - Offset));
-    if (Length(Bytes) > 0) then
+    if (Stream.Size > 0) then
     begin
-      Stream.Seek(Offset, soBeginning);
+      SetLength(Bytes, Stream.Size);
+      Stream.Seek(0, soBeginning);
       Stream.ReadBuffer(Bytes[0], Length(Bytes));
     end;
   except