X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/e27ef2c6aab3a2a8051314bd37bb3b2386775f36..2c3a30778bb5a281c10736470058b5a63575a516:/fastmd5.pas

diff --git a/fastmd5.pas b/fastmd5.pas
index 6455e5c..27755b9 100644
--- a/fastmd5.pas
+++ b/fastmd5.pas
@@ -39,7 +39,7 @@ type
 {$i uint32.inc}
 
 type
-  dvar=array[0..0] of byte;
+  dvar=array[0..65535] of byte;
   Tmd5state=record
     buf:array[0..63] of byte;
     H:array[0..3] of uint32;
@@ -211,7 +211,7 @@ begin
   b := state.msglen and 63;
 
   inc(state.msglen,len);
-  while (state.msglen > $20000000) do begin
+  while (state.msglen >= $20000000) do begin
     dec(state.msglen,$20000000);
     inc(state.msglenhi);
   end;