From 309429a3acfa50bd4e928b8a5728dc863e9c767b Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Wed, 17 Jan 2018 20:50:53 +0000
Subject: [PATCH] fix md5 length bug

git-svn-id: file:///svnroot/lcore/trunk@151 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
 fastmd5.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.30.2