From ea52c36b7b7b299563232436978b9c6fc29d37c4 Mon Sep 17 00:00:00 2001
From: Liu Xiao <liuxiao@cnpack.org>
Date: Thu, 28 Mar 2024 17:43:42 +0800
Subject: [PATCH] * [Packages] Add 2 Units to FPC Package.

---
 Package/FPC3/CnPack_FPC3.lpk | 10 +++++++++-
 Package/FPC3/CnPack_FPC3.pas |  3 ++-
 Source/Crypto/CnPDFCrypt.pas |  1 -
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/Package/FPC3/CnPack_FPC3.lpk b/Package/FPC3/CnPack_FPC3.lpk
index 08da5854..744b6324 100644
--- 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
index 635b04d3..412b5d01 100644
--- 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
index e8587230..52f8b5aa 100644
--- 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;