''' <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
数据流和十六进制转换
最新推荐文章于 2021-05-17 09:14:11 发布