FIX - fix bug when encrypting large payloads in PascalCoinIESEngine

CryptoLib.Samples/src/UsageExamples.pas

@@ -379,7 +379,7 @@ begin
   Lcurve := TSecNamedCurves.GetByName(ACurveName);
   System.Assert(Lcurve <> Nil, 'Lcurve Cannot be Nil');
 
-  // Set Up Asymmetric Key Pair from known private key ByteArray
+  // Set Up Asymmetric Key Pair from known public key ByteArray
 
   domain := TECDomainParameters.Create(Lcurve.Curve, Lcurve.G, Lcurve.N,
     Lcurve.H, Lcurve.GetSeed);
@@ -391,6 +391,7 @@ begin
 
   EncryptedCipherText := TUsageExamples.ECIESPascalCoinEncrypt
     (RegeneratedPublicKey, PayloadToEncodeBytes);
+
   if EncryptedCipherText <> Nil then
   begin
 

CryptoLib/src/Crypto/Engines/ClpPascalCoinIESEngine.pas

@@ -247,7 +247,7 @@ begin
     System.Length(T) * System.SizeOf(Byte));
 
   System.Move(C[0], Result[SECURE_HEAD_SIZE + System.Length(FV) +
-    System.Length(C)], System.Length(C) * System.SizeOf(Byte));
+    System.Length(T)], System.Length(C) * System.SizeOf(Byte));
 
 end;