Random BigInteger Generator - TizzyT

''' 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