copy TSimbaFile.DoFileRead lol

Author: Torwent

Source/simba.hash.pas

@@ -11,7 +11,7 @@ interface
 
 uses
   Classes, SysUtils,
-  simba.base, simba.fs;
+  simba.base;
 
 type
   {$SCOPEDENUMS ON}
@@ -63,13 +63,28 @@ function HashString(Algo: EHashAlgo; const S: String): String;
 
 function HashFile(Algo: EHashAlgo; const FileName: String): String;
 var
+  Stream: TFileStream;
   Bytes: TByteArray;
 begin
+  Bytes := [];
+  Stream := nil;
+
   try
-    Bytes := TSimbaFile.FileReadBytes((FileName);
+    Stream := TFileStream.Create(FileName, fmOpenRead);
+    if (Len = -1) then
+      Len := $FFFFFF;
+    SetLength(Bytes, Min(Len, Stream.Size - Offset));
+    if (Length(Bytes) > 0) then
+    begin
+      Stream.Seek(Offset, soBeginning);
+      Stream.ReadBuffer(Bytes[0], Length(Bytes));
+    end;
   except
   end;
 
+  if (Stream <> nil) then
+    Stream.Free();
+
   if (Length(Bytes) > 0) then
     Result := HashBuffer(Algo, @Bytes[0], Length(Bytes))
   else