some updates

CryptoLib.Tests/Delphi.Tests/CryptoLib.Tests.dpr

@@ -366,7 +366,6 @@ uses
   ClpSecP521R1Custom in '..\..\CryptoLib\src\Math\EC\Custom\Sec\ClpSecP521R1Custom.pas',
   ClpSecT283K1Custom in '..\..\CryptoLib\src\Math\EC\Custom\Sec\ClpSecT283K1Custom.pas',
   ClpSecureRandom in '..\..\CryptoLib\src\Crypto\Randoms\ClpSecureRandom.pas',
-  ClpSetWeakRef in '..\..\CryptoLib\src\Misc\ClpSetWeakRef.pas',
   ClpWeakRef in '..\..\CryptoLib\src\Misc\ClpWeakRef.pas',
   ClpStandardDsaEncoding in '..\..\CryptoLib\src\Crypto\Signers\SignerEncodings\ClpStandardDsaEncoding.pas',
   ClpPlainDsaEncoding in '..\..\CryptoLib\src\Crypto\Signers\SignerEncodings\ClpPlainDsaEncoding.pas',

CryptoLib/src/Asn1/ClpAsn1Objects.pas

@@ -6494,7 +6494,7 @@ var
   LStr: TCryptoLibByteArray;
 begin
   LStr := GetDerEncoded();
-  Result := Format('#%s', [UpperCase(TConverters.ConvertBytesToHexString(LStr, False))]);
+  Result := Format('#%s', [THex.Encode(LStr)]);
 end;
 
 function TDerBitString.GetOctets(): TCryptoLibByteArray;

CryptoLib/src/Misc/ClpSetWeakRef.pas

@@ -1,45 +0,0 @@
-{ *********************************************************************************** }
-{ *                              CryptoLib Library                                  * }
-{ *                Copyright (c) 2018 - 20XX Ugochukwu Mmaduekwe                    * }
-{ *                 Github Repository <https://github.com/Xor-el>                   * }
-
-{ *  Distributed under the MIT software license, see the accompanying file LICENSE  * }
-{ *          or visit http://www.opensource.org/licenses/mit-license.php.           * }
-
-{ *                              Acknowledgements:                                  * }
-{ *                                                                                 * }
-{ *      Thanks to Sphere 10 Software (http://www.sphere10.com/) for sponsoring     * }
-{ *                           development of this library                           * }
-
-{ * ******************************************************************************* * }
-
-(* &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& *)
-
-unit ClpSetWeakRef;
-
-{$I ..\Include\CryptoLib.inc}
-
-interface
-
-uses
-  ClpCryptoLibTypes;
-
-type
-  TSetWeakRef = class(TObject)
-
-  public
-    class procedure SetWeakReference(aInterfaceField: PIInterface;
-      const aValue: IInterface); static;
-  end;
-
-implementation
-
-{ TSetWeakRef }
-
-class procedure TSetWeakRef.SetWeakReference(aInterfaceField: PIInterface;
-  const aValue: IInterface);
-begin
-  PPointer(aInterfaceField)^ := Pointer(aValue);
-end;
-
-end.