Browse Source

minor fix.

Ugochukwu Mmaduekwe 8 years ago
parent
commit
a6da76c65e
1 changed files with 1 additions and 0 deletions
  1. 1 0
      CryptoLib/src/Utils/ClpBigIntegers.pas

+ 1 - 0
CryptoLib/src/Utils/ClpBigIntegers.pas

@@ -151,6 +151,7 @@ begin
   begin
   begin
     Result := CreateRandomInRange(TBigInteger.Zero, max.Subtract(min),
     Result := CreateRandomInRange(TBigInteger.Zero, max.Subtract(min),
       random).Add(min);
       random).Add(min);
+    Exit;
   end;
   end;
 
 
   I := 0;
   I := 0;