* [Packages] Add 2 Units to FPC Package.

cnpack · Mar 28, 2024 · ea52c36 · ea52c36
1 parent 13e18cb
commit ea52c36
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/Package/FPC3/CnPack_FPC3.lpk b/Package/FPC3/CnPack_FPC3.lpk
@@ -14,7 +14,7 @@
         <Style Value="1"/>
       </Parsing>
     </CompilerOptions>
-    <Files Count="68">
+    <Files Count="70">
       <Item1>
         <Filename Value="../../Source/Crypto/CnAES.pas"/>
         <UnitName Value="CnAES"/>
@@ -287,6 +287,14 @@
         <Filename Value="../../Source/Common/CnJSON.pas"/>
         <UnitName Value="CnJSON"/>
       </Item68>
+      <Item69>
+        <Filename Value="../../Source/Crypto/CnRC4.pas"/>
+        <UnitName Value="CnRC4"/>
+      </Item69>
+      <Item70>
+        <Filename Value="../../Source/Crypto/CnPDFCrypt.pas"/>
+        <UnitName Value="CnPDFCrypt"/>
+      </Item70>
     </Files>
     <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="2">

diff --git a/Package/FPC3/CnPack_FPC3.pas b/Package/FPC3/CnPack_FPC3.pas
@@ -17,7 +17,8 @@ interface
   CnGraph, CnGraphUtils, CnHashMap, CnHashTable, CnLockFree, CnMath, CnMatrix, 
   CnRopes, CnSingleton, CnSingletonComp, CnSkipList, CnStrDiff, CnStream, 
   CnStrings, CnTree, CnTreeClasses, CnWideStrings, Cn25519, CnInt128, CnFNV, 
-  CnPoly1305, CnChaCha20, CnBits, CnLattice, CnVector, CnJSON;
+  CnPoly1305, CnChaCha20, CnBits, CnLattice, CnVector, CnJSON, CnRC4, 
+  CnPDFCrypt;
 
 implementation
 

diff --git a/Source/Crypto/CnPDFCrypt.pas b/Source/Crypto/CnPDFCrypt.pas
@@ -194,7 +194,6 @@ implementation
   SCnErrorPDFKeyLength = 'Invalid Key Length';
   SCnErrorPDFDataLength = 'Invalid Data Length';
   SCnErrorPDFEncryptParams = 'Invalid Encrypt Params';
-  SCnErrorPDFInvalidKeyBitLengthFmt = 'Invalid Key Bit Length %d for Revision %d';
 
 function CnPDFFindEncryptionMethod(Version, Revision, KeyBitLength: Integer;
   const CFMValue: string = ''): TCnPDFEncryptionMethod;