push 3

CryptoLib.Tests/src/Crypto/IESCipherTests.pas

@@ -201,8 +201,7 @@ begin
   CurveName := 'secp256k1';
   Lcurve := TSecNamedCurves.GetByName(CurveName);
   // KeyPairGeneratorInstance := TGeneratorUtilities.GetKeyPairGenerator('ECDSA');
-  raise Exception.Create(Lcurve.G.ToString + ' DABA ' + Lcurve.N.ToString +
-    ' DABA ' + Lcurve.H.ToString);
+
   ecSpec := TECDomainParameters.Create(Lcurve.Curve, Lcurve.G, Lcurve.N,
     Lcurve.H, Lcurve.GetSeed);
   // RandomInstance := TSecureRandom.Create();

CryptoLib/src/Math/EC/Multiplier/ClpAbstractECMultiplier.pas

@@ -25,7 +25,8 @@ uses
   ClpBigInteger,
   ClpIECInterface,
   ClpIAbstractECMultiplier,
-  ClpECAlgorithms;
+  ClpECAlgorithms,
+  SysUtils;
 
 type
   TAbstractECMultiplier = class abstract(TInterfacedObject,
@@ -73,6 +74,10 @@ begin
   end;
 
   positive := MultiplyPositive(p, k.Abs());
+
+  raise Exception.Create(p.ToString + ' DABA ' + k.Abs().ToString + ' DABA ' +
+    positive.ToString);
+
   if sign > 0 then
   begin
     Result := positive