VB.Net实现7Bit编码与解码

7Bit编码主要用于对单字节字符进行编码，因为单字节字符的ASCII码在00～7F之间，最高位始终为0实际有效的只有7个Bit，因此可以通过编码的方式将无效的最高位利用起来从而达到使用7个字节存储8个单字节字符的目的。

7Bit编码的基本规则简单来说就是去掉最高位的0以后，将后一字节的低位挪到前一字节最高有效位的前面使前一字节凑够8bit，最后一个字节bit数不够8时从高位开始补0

举例说明，如果对“abc”进行7Bit编码，abc的ASCII码为0x61、0x62、0x63，其bit顺序如下：

	bit7	bit6	bit5	bit4	bit3	bit2	bit1	bit0
a	0	1	1	0	0	0	0	1
b	0	1	1	0	0	0	1	0
c	0	1	1	0	0	0	1	1

编码步骤如下：

1、 将b的bit0移入a的bit7，再将b右移一位，得到如下结果

	bit7	bit6	bit5	bit4	bit3	bit2	bit1	bit0
a	0	1	1	0	0	0	0	1
b	－	0	1	1	0	0	0	1
c	0	1	1	0	0	0	1	1

2、 将c的bit1移入b的bit7，c的bit0移入b的bit6，再将c右移两位，得到如下结果

	bit7	bit6	bit5	bit4	bit3	bit2	bit1	bit0
a	0	1	1	0	0	0	0	1
b	1	1	1	1	0	0	0	1
c	－	－	0	1	1	0	0	0

3、 c剩余6bit不足8bit，在bit7、bit6补0，得到如下结果

	bit7	bit6	bit5	bit4	bit3	bit2	bit1	bit0
a	0	1	1	0	0	0	0	1
b	1	1	1	1	0	0	0	1
c	0	0	0	1	1	0	0	0

abc原ASCII码为61 62 63 ，对应的7bit编码为：61 F1 18

VB.Net实现7Bit编解码的函数如下：

    '7Bit编码
    Private Function Encoder_7Bit(ByVal s As String) As Byte()
        Dim arrAsc() As Byte
        arrAsc = System.Text.Encoding.ASCII.GetBytes(s)

        Dim arr7Bit() As Byte

        '申请存储7Bit编码需要空间
        If (arrAsc.Length * 7) Mod 8 = 0 Then
            ReDim arr7Bit((arrAsc.Length * 7) \ 8 - 1)
        Else
            ReDim arr7Bit((arrAsc.Length * 7) \ 8)
        End If

        Dim lBit As Integer     '低位
        Dim hBit As Integer     '高位

        Dim yy As Integer = 0
        Dim zz As Integer = 0

        For xx As Integer = 1 To arrAsc.Length - 1
            yy = xx Mod 8
            If yy <> 0 Then
                lBit = arrAsc(xx) Mod System.Math.Pow(2, yy)
                hBit = arrAsc(xx) \ System.Math.Pow(2, yy)
                arrAsc(xx) = hBit
                arr7Bit(zz) = lBit * System.Math.Pow(2, 8 - yy) + arrAsc(xx - 1)
                zz = zz + 1
            End If
        Next

        If zz <> arr7Bit.Length Then
            arr7Bit(arr7Bit.Length - 1) = arrAsc(arrAsc.Length - 1)
        End If

        Encoder_7Bit = arr7Bit

        Erase arrAsc
        Erase arr7Bit
    End Function

    '7Bit解码
    Private Function Decoder_7Bit(ByVal s As Byte()) As String
        Dim arrAsc() As Byte

        '申请解码后存储ASCII字符需要的空间        
        ReDim arrAsc((s.Length * 8) \ 7 - 1)

        Dim lBit As Integer     '低位
        Dim hBit As Integer     '高位

        Dim yy As Integer = 0
        Dim zz As Integer = 0

        For xx As Integer = 0 To arrAsc.Length - 1
            yy = xx Mod 8

            If yy <> 7 Then
                lBit = s(zz) Mod System.Math.Pow(2, 8 - yy - 1)
                arrAsc(xx) = lBit * System.Math.Pow(2, yy) + hBit
                hBit = s(zz) \ System.Math.Pow(2, 8 - yy - 1)

                zz = zz + 1
            Else
                arrAsc(xx) = hBit
                hBit = 0
            End If
        Next

        Decoder_7Bit = System.Text.Encoding.ASCII.GetString(arrAsc)
        Erase arrAsc
    End Function