Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix max key size

Michaël Van Canneyt 1 year ago
parent
15e7dd3d9f
commit
2d1e14f778
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      packages/fcl-base/src/blowfish2.pp

+ 1 - 1
packages/fcl-base/src/blowfish2.pp
View File 

@@ -107,7 +107,7 @@ ResourceString
 
 
 Const
 
   N = 64;
 
-  MaxKeyLen = 128;
 
+  MaxKeyLen = 528;
 
   ORIG_P : TBlowFishPArray = (
 
         
 QWord($243F6A8885A308D3),QWord($13198A2E03707344),QWord($A4093822299F31D0),