数据流和十六进制转换

 ''' <summary>
    ''' 数据流转换为十六进制字符串
    ''' </summary>
    ''' <param name="bytes"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Shared Function ByteArrayToHexString(ByVal bytes() As Byte) As String

        If bytes Is Nothing Or bytes.Length = 0 Then
            Throw New ArgumentException("bytes () 参数出错")
        End If

        Dim hexString As System.Text.StringBuilder = New System.Text.StringBuilder(2 * bytes.Length)

        Dim i As Integer
        For i = 0 To bytes.Length - 1 Step i + 1
            hexString.AppendFormat("{0:X2}", bytes(i))
        Next

        Return hexString.ToString()

    End Function

    ''' <summary>
    ''' 十六进制字符串转换为数据流
    ''' </summary>
    ''' <param name="strHexString"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>

    Private Function HexStringToByte(strHexString As String) As Byte()

        Dim len As Integer = strHexString.Length


        If (len Mod 2) <> 0 Then
            Throw New Exception("HexString 字符出错Not Not ")
        End If

        Dim byteLen As Integer = len / 2

        Dim bytes() As Byte = New Byte(byteLen) {}

        Dim i As Integer
        For i = 0 To byteLen - 1 Step i + 1
            bytes(i) = Convert.ToByte(strHexString.Substring(i * 2, 2), 16)
        Next

        Return bytes
    End Function