push 17

CryptoLib/src/Math/EC/ClpECCurve.pas

@@ -1059,13 +1059,13 @@ begin
     Exit;
   end;
 
-  raise Exception.Create(zs[0].ToString + ' DABA ' + zs[1].ToString + ' DABA ' +
-    zs[2].ToString + ' DABA ' + zs[3].ToString + ' DABA ' + zs[4].ToString +
-    'ZABA' + indices[0].ToString + ' DABA ' + indices[1].ToString + ' DABA ' +
-    indices[2].ToString + ' DABA ' + indices[3].ToString + ' DABA ' +
-    indices[4].ToString + ' DABA ' + indices[5].ToString);
+  raise Exception.Create(iso.ToString + ' DABA ' + count.ToString);
 
   TECAlgorithms.MontgomeryTrick(zs, 0, count, iso);
+
+  // raise Exception.Create(zs[0].ToString + ' DABA ' + zs[1].ToString + ' DABA ' +
+  // zs[2].ToString + ' DABA ' + zs[3].ToString + ' DABA ' + zs[4].ToString);
+
   for j := 0 to System.Pred(count) do
 
   begin