removed some unused units.

* fixed some compiler warnings.

CryptoLib/src/Asn1/ClpBerGenerator.pas

@@ -29,7 +29,6 @@ uses
   ClpAsn1Tags,
   ClpAsn1Generator,
   ClpBerOutputStream,
-  ClpIBerOutputStream,
   ClpIBerGenerator;
 
 type

CryptoLib/src/Asn1/X9/ClpECNamedCurveTable.pas

@@ -25,7 +25,7 @@ uses
   Generics.Collections,
   ClpCryptoLibTypes,
   // ClpX962NamedCurves,
-  ClpECGost3410NamedCurves,
+  // ClpECGost3410NamedCurves,
   ClpX9ECParameters,
   ClpSecNamedCurves,
   ClpIECDomainParameters,

CryptoLib/src/Crypto/Signers/ClpECSchnorrSigner.pas

@@ -23,7 +23,6 @@ interface
 
 uses
   SysUtils,
-  Math,
   Generics.Collections,
   HlpIHash,
   ClpISigner,
@@ -31,10 +30,8 @@ uses
   ClpISecureRandom,
   ClpICipherParameters,
   ClpIECSchnorrSigner,
-  ClpIAsymmetricKeyParameter,
   ClpIParametersWithRandom,
   ClpDerSequence,
-  ClpIDerSequence,
   ClpDerInteger,
   ClpIDerInteger,
   ClpAsn1Object,
@@ -300,7 +297,6 @@ function TECSchnorrSigner.Do_Sign(const pv_key: IECPrivateKeyParameters;
 var
   curve: IECCurve;
   n, r, s, h, tempK: TBigInteger;
-  size: Int32;
   G, q: IECPoint;
   xQ, yQ, rQ, tempR, tempH: TCryptoLibByteArray;
 begin
@@ -312,7 +308,6 @@ begin
   curve := pv_key.parameters.curve;
   n := curve.order;
   G := pv_key.parameters.G;
-  size := TBits.Asr32(curve.FieldSize, 3);
 
   q := G.Multiply(k);
 

CryptoLib/src/Math/ClpBigInteger.pas

@@ -616,7 +616,6 @@ var
   i: UInt32;
   primeList: TCryptoLibInt32Array;
   product, j: Int32;
-  b: TBigInteger;
 begin
 
   System.SetLength(FZeroEncoding, 0);
@@ -2010,18 +2009,18 @@ end;
 
 function TBigInteger.IsEqualMagnitude(const x: TBigInteger): Boolean;
 var
-  xMag: TCryptoLibInt32Array;
   i: Integer;
+  xMag: TCryptoLibInt32Array;
 begin
   xMag := x.Fmagnitude;
-  if (System.length(Fmagnitude) <> System.length(x.Fmagnitude)) then
+  if (System.length(Fmagnitude) <> System.length(xMag)) then
   begin
     Result := false;
     Exit;
   end;
   for i := 0 to System.Pred(System.length(Fmagnitude)) do
   begin
-    if (Fmagnitude[i] <> x.Fmagnitude[i]) then
+    if (Fmagnitude[i] <> xMag[i]) then
     begin
       Result := false;
       Exit;

CryptoLib/src/Math/EC/ClpECCurve.pas

@@ -25,7 +25,6 @@ uses
   SyncObjs,
   SysUtils,
   Generics.Collections,
-  ClpSetWeakRef,
   ClpECPoint,
   ClpCryptoLibTypes,
   ClpBigInteger,

CryptoLib/src/Security/ClpSignerUtilities.pas

@@ -29,7 +29,6 @@ uses
   HlpIHash,
   ClpDsaDigestSigner,
   ClpECSchnorrSigner,
-  ClpIECSchnorrSigner,
   ClpX9ObjectIdentifiers,
   ClpTeleTrusTObjectIdentifiers,
   ClpCryptoProObjectIdentifiers,

CryptoLib/src/Utils/Encoders/ClpBase64.pas

@@ -30,17 +30,14 @@ type
 
   public
     class function Encode(Input: TCryptoLibByteArray): String; static;
-    class function Decode(const Input:
-{$IFDEF FPC}UnicodeString{$ELSE}String{$ENDIF FPC})
-      : TCryptoLibByteArray; static;
+    class function Decode(const Input: String): TCryptoLibByteArray; static;
   end;
 
 implementation
 
 { TBase64 }
 
-class function TBase64.Decode(const Input:
-{$IFDEF FPC}UnicodeString{$ELSE}String{$ENDIF FPC}): TCryptoLibByteArray;
+class function TBase64.Decode(const Input: String): TCryptoLibByteArray;
 begin
   result := SbpBase64.TBase64.Default.Decode(Input);
 end;