fix md5 length bug

git-svn-id: file:///svnroot/lcore/trunk@151 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/fastmd5.pas b/fastmd5.pas
index 6f2d66f072882626c051d1d52442b36d4b5feb22..27755b90bf51707a02341426dd5b4ca5c352a3d6 100644 (file)
--- a/fastmd5.pas
+++ b/fastmd5.pas
@@ -211,7 +211,7 @@ begin
   b := state.msglen and 63;\r
 \r
   inc(state.msglen,len);\r
   b := state.msglen and 63;\r
 \r
   inc(state.msglen,len);\r

-  while (state.msglen > $20000000) do begin\r
+  while (state.msglen >= $20000000) do begin\r

     dec(state.msglen,$20000000);\r
     inc(state.msglenhi);\r
   end;\r
     dec(state.msglen,$20000000);\r
     inc(state.msglenhi);\r
   end;\r