如何将以字符表示的16进制数转换为机器码表示的16进制数

     在工作中需要做一个压力测试工具，在网络中发送指定内容的报文，报文内容是用 Sniffer 工具捕捉下来的。内容如下所示：

交易码0001发送924.txt
======================

30 30 30 31 60 00 07 ff df ee 20 fc 20 20 20 20

20 20 20 20 20 20 20 20 20 30 31 37 30 32 35 30

30 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20

20 20 20 20 20 d<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />5 c5 b5 c0 c5 e6 20 20 30 30 30

30 30 30 30 30 30 30 30 30 30 30 30 30 31 37 30

30 30 30 30 31 20 20 20 20 20 20 20 20 20 20 20

20 20 20 20 20 31 30 30 30 31 32 30 30 35 30 39

……

30 30 30 31就是0001

转换代码如下：

     Private   Function sendFile() Function sendFile(ByVal filename As String) As Byte()
        '读要发送的文件
        '将内容存于数组中byte中
        Dim s As [String] '= "30 30 30 31 60 00 07 ff df ee 20 fc 20 20 20 20"
        Dim sp As [Char] = " "

        s = TextFromFile(filename)

        Dim r() As [String] = s.Split(sp)
        Dim i As Integer
        Dim b As Byte() = New [Byte](r.Length) {}

        For i = 0 To b.Length - 1
            Try
                b(i) = Byte.Parse(r(i), System.Globalization.NumberStyles.HexNumber)
            Catch e As Exception
                '
            End Try
        Next

        sendFile = b

End Function

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

工具做好后自己用 Sniffer 捕捉了一下，和原来的东西一样，呵呵。

转载于:https://www.cnblogs.com/Frances/archive/2006/02/24/337025.html