Public Shared Function ToHexString(bits As BitArray) As String Dim ret As String = String.Empty For i As Integer = 0 To bits.Count / 8 - 1 Dim by As Integer = 0 For bitIndex As Integer = 0 To 8 - 1 If bits((i * 8) + bitIndex) Then by += (1 << (7 - bitIndex)) End If Next bitIndex ret &= by.ToString("X2") Next i Return ret End Function
Эта функция переводит bitarray-> hex, вообщем как ее переделать на bitarray->oct.