Changes between Version 44 and Version 45 of HashSourceCodes

Timestamp:

Mar 20, 2013, 5:57:27 AM (12 years ago)

Author:

os

Comment:

--

HashSourceCodes

@@ -1519 +1519 @@
 ; (hashfile #p"~/Downloads/dummy/dummy.bin")
 }}}
+
+== Pascal ==
+{{{
+procedure ComputeHash(const Stream : TStream;
+                      out   Size : qword;
+                      out   Hash : string);
+var
+  hashQ : qword;
+  fsize : qword;
+  i : integer;
+  read : integer;
+  s : array[0..7] of char;
+  tmp : qword absolute s;
+begin
+  Stream.Seek(0, soFromBeginning);
+  Size := Stream.Size;
+  hashQ := size;;
+
+  i := 0;
+  read := 1;
+  while ((i < 8192) and (read > 0)) do begin
+    read := Stream.Read(s, sizeof(s));
+    if read > 0 then begin
+      hashQ := hashQ + tmp;
+    end;
+    i := i + 1;
+  end;
+
+  Stream.Seek(-65536, soFromEnd);
+
+  i := 0;
+  read := 1;
+  while ((i < 8192) and (read > 0)) do begin
+    read := Stream.Read(s, sizeof(s));
+    if read > 0 then begin
+      hashQ := hashQ + tmp;
+    end;
+    i := i + 1;
+  end;
+
+  Hash := lowercase(Format('%.16x',[hashQ]));
+end;
+}}}