\'\'\' Random BigInteger Generator \'\'\'
Private Function RandBigInt(ByVal BitLength As BigInteger, ByRef Rnd As Random) As BigInteger
Dim Rmdr, numParts(BigInteger.DivRem(BitLength, 8, Rmdr)) As Byte
For i = 0 To numParts.Length - 2 : numParts(i) = Rnd.Next(0, 256) : Next
numParts(numParts.Length - 1) = If(Rmdr = 0, 0, Rnd.Next(0, 2 ^ Rmdr - 1))
RandBigInt = New BigInteger(numParts)
End Function