push 2

CryptoLib.Tests/src/Crypto/IESCipherTests.pas

@@ -201,6 +201,8 @@ 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/Asn1/Sec/ClpSecNamedCurves.pas

@@ -314,7 +314,6 @@ begin
     '79BE667EF9DCBBAC55A06295CE870B07029BFCDB2DCE28D959F2815B16F81798' +
     '483ADA7726A3C4655DA4FBFC0E1108A8FD17B448A68554199C47D08FFB10D4B8'));
 
-   raise Exception.Create(G.Point.ToString);
   result := TX9ECParameters.Create(curve, G, n, h, S);
 end;