document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \'\'\' BigInteger Bit Length \'\'\'
  2.     Private Function BitLen(ByVal TestingNbr As BigInteger) As BigInteger
  3.         Dim Nbr As String = TestingNbr.ToString("X")
  4.         BitLen = Convert.ToString(Convert.ToInt32(Nbr(0), 16), 2).TrimStart("0").Length
  5.         BitLen = BigInteger.Add(BitLen, BigInteger.Multiply(New BigInteger(4), New BigInteger(Nbr.Length - 1)))
  6.     End Function
');