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

来源：互联网发布：软件卸载大师编辑：程序博客网时间：2024/05/17 07:32

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

编码步骤如下：

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

bit7

bit6

bit5

bit4

bit3

bit2

bit1

bit0

－

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

bit7

bit6

bit5

bit4

bit3

bit2

bit1

bit0

－

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

bit7

bit6

bit5

bit4

bit3

bit2

bit1

bit0

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

0 0