push 30

CryptoLib/src/Math/Raw/ClpMod.pas

@@ -127,18 +127,6 @@ begin
     count := count + zeroes;
   end;
 
-
-      raise Exception.Create(
-
-    u[0].ToString + ' DADA ' +
-    u[1].ToString + ' DADA ' +
-    u[2].ToString + ' DADA ' +
-    u[3].ToString + ' DADA ' +
-    u[4].ToString + ' DADA ' +
-    u[5].ToString + ' DADA ' +
-    u[6].ToString + ' DADA ' +
-    u[7].ToString + ' DADA ');
-
   i := 0;
   while i < count do
   begin

CryptoLib/src/Math/Raw/ClpNat.pas

@@ -22,6 +22,7 @@ unit ClpNat;
 interface
 
 uses
+  SysUtils,
   ClpConverters,
   ClpBits,
   ClpBigInteger,
@@ -1288,10 +1289,20 @@ begin
   while (I >= 0) do
   begin
     next := z[I];
-    z[I] := (next shr bits) or (c shl (-bits));
+    if I = 5 then
+    begin
+      raise Exception.Create((next shr bits).ToString + ' DADA ' +
+        (c shl (-bits)).ToString + ' DADA ' + ((next shr bits) or (c shl (-bits)
+        )).ToString);
+    end
+    else
+    begin
+      z[I] := (next shr bits) or (c shl (-bits));
+    end;
     c := next;
     System.Dec(I);
   end;
+
   Result := c shl (-bits);
 end;