From: beware <beware@bircd.org>
Date: Wed, 17 Jan 2018 20:50:53 +0000 (+0000)
Subject: fix md5 length bug
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/309429a3acfa50bd4e928b8a5728dc863e9c767b

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 6f2d66f..27755b9 100644
--- a/fastmd5.pas
+++ b/fastmd5.pas
@@ -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;