push 27

CryptoLib/src/Math/EC/ClpECFieldElement.pas

@@ -1076,32 +1076,6 @@ begin
 
   TMod.Invert(P, n, z);
 
-    raise Exception.Create(bits.ToString + ' DADA ' + len.ToString + ' DADA ' +
-    p[0].ToString + ' DADA ' +
-    p[1].ToString + ' DADA ' +
-    p[2].ToString + ' DADA ' +
-    p[3].ToString + ' DADA ' +
-    p[4].ToString + ' DADA ' +
-    p[5].ToString + ' DADA ' +
-    p[6].ToString + ' DADA ' +
-    p[7].ToString + ' DADA ' +
-    n[0].ToString + ' DADA ' +
-    n[1].ToString + ' DADA ' +
-    n[2].ToString + ' DADA ' +
-    n[3].ToString + ' DADA ' +
-    n[4].ToString + ' DADA ' +
-    n[5].ToString + ' DADA ' +
-    n[6].ToString + ' DADA ' +
-    n[7].ToString + ' DADA ' +
-    z[0].ToString + ' DADA ' +
-    z[1].ToString + ' DADA ' +
-    z[2].ToString + ' DADA ' +
-    z[3].ToString + ' DADA ' +
-    z[4].ToString + ' DADA ' +
-    z[5].ToString + ' DADA ' +
-    z[6].ToString + ' DADA ' +
-    z[7].ToString + ' DADA ');
-
   result := TNat.ToBigInteger(len, z);
 end;
 

CryptoLib/src/Math/Raw/ClpMod.pas

@@ -29,7 +29,8 @@ uses
   ClpNat,
   ClpConverters,
   ClpSecureRandom,
-  ClpISecureRandom;
+  ClpISecureRandom,
+  SysUtils;
 
 resourcestring
   SCannotBeZero = 'cannot be 0, "x"';
@@ -177,6 +178,17 @@ begin
   begin
     InversionStep(p, u, len, a, ac);
   end;
+
+      raise Exception.Create(
+    a[0].ToString + ' DADA ' +
+    a[1].ToString + ' DADA ' +
+    a[2].ToString + ' DADA ' +
+    a[3].ToString + ' DADA ' +
+    a[4].ToString + ' DADA ' +
+    a[5].ToString + ' DADA ' +
+    a[6].ToString + ' DADA ' +
+    a[7].ToString + ' DADA ');
+
   if (TNat.IsOne(len, u)) then
   begin
     InversionResult(p, ac, a, z);