Changes between Version 1 and Version 2 of HashSourceCodes

Timestamp:

Sep 24, 2008, 8:35:43 PM (16 years ago)

Author:

guest

Comment:

Replaced original Delphi code with 4GB+ fixed version [Majky]

HashSourceCodes

@@ -159 +159 @@
                 
                 while (longBuffer.hasRemaining()) {
+
                         hash += longBuffer.get();
                 }
@@ -335 +336 @@
 
 {{{
-function CalcGabestHash(const Filename: string): string;
+function CalcGabestHash(const fname: string): string;
 var
-  i: Integer;
-  f: File;
-  s: Array[1..8] of char;
-  tmp: Int64 absolute s;
-  hash: Int64;
-  readed: Integer;
-  OldFM: Byte;
+  i : integer;
+  s : array[1..8] of char;
+  tmp       : Int64 absolute s;
+  hash      : Int64;
+  readed    : integer;
+
+  aStream: TFileStream;
 begin
-  Result := '';
-  if FileExists(Filename) then begin
-    { Open file }
-    OldFM := FileMode;
-    try
-      FileMode := fmShareDenyNone;
-      AssignFile(f,Filename);
-      Reset(f,1);
-      try
-        { Start hashing }
-        hash := filesize(f);
-        { Read from begining }
-        for i := 0 to 8191 do begin
-          blockread(f,s,sizeof(s),readed);
-          if readed > 0 then hash := hash + tmp else break;
-        end;
-        { Read from the end }
-        seek(f,Max(0,filesize(f)-65536));
-        for i := 0 to 8191 do begin
-          blockread(f,s,sizeof(s),readed);
-          if readed > 0 then hash := hash + tmp else break;
-        end;
-        { Finished }
-        Result := Format('%.16x',[hash]);
-      finally
-        CloseFile(f);
-      end;
-    finally
-      FileMode := OldFM;
+  result := '';
+  if not FileExists(fname) then Exit;
+
+  aStream := TFileStream.Create(fName, fmShareDenyNone);
+  hash := aStream.Size;
+
+  i := 0; readed := 1;
+  while ((i < 8192) and (readed > 0)) do begin
+    readed := aStream.Read(s, sizeof(s));
+    if readed > 0 then
+    begin
+      hash := hash + tmp;
     end;
+    i := i + 1;
   end;
+
+  aStream.Seek(-65536, soFromEnd); // 65536
+
+  i := 0; readed:= 1;
+  while ((i < 8192) and (readed > 0)) do begin
+    readed := aStream.Read(s, sizeof(s));
+    if readed > 0 then
+      hash := hash + tmp;
+    i := i + 1;
+  end;
+  aStream.Free;
+  result := Format('%.16x',[hash]);
 end;
 }}}