Question

How to convert a hex string to a byte array in VB.NET

Answer 1

Imports System
Imports System.Text
Imports System.Linq

Public Class Program
    Public Shared Sub PrintByteArray(ByVal bytes As Byte())
        Dim sb = New StringBuilder("byte[] = ")

        For Each b In bytes
            sb.Append(b & ", ")
        Next

        Console.WriteLine(sb.ToString())
    End Sub

    Public Shared Function HexStringToByteArray(ByVal hex As String) As Byte()
        hex = If(hex.Length Mod 2 = 1, "0" & hex, hex)
		
        Return Enumerable.Range(0, hex.Length).Where(Function(x) x Mod 2 = 0).Select(Function(x) Convert.ToByte(hex.Substring(x, 2), 16)).ToArray()
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim barr As Byte() = HexStringToByteArray("1B6E2AC")
				
        PrintByteArray(barr)
    End Sub
End Class

 
   
   
' run:
'
' byte[] = 1, 182, 226, 172,
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Sub PrintByteArray(ByVal barray As Byte())
        Console.Write("byte[] = ")

        For Each b As Byte In barray
            Console.Write(b.ToString("X2") & " ")
        Next

        Console.WriteLine()
    End Sub

    Public Shared Function HexStringToByteArray(ByVal hex As String) As Byte()
        hex = If(hex.Length Mod 2 = 1, "0" & hex, hex)
        Dim length As Integer = hex.Length
        Dim barr As Byte() = New Byte(length / 2 - 1) {}

        For i As Integer = 0 To length - 1 Step 2
            barr(i / 2) = Convert.ToByte(hex.Substring(i, 2), 16)
        Next

        Return barr
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim barr As Byte() = HexStringToByteArray("1B6E2AC")
	
        PrintByteArray(barr)
    End Sub
End Class
 
   
   
' run:
'
' byte[] = 01 B6 E2 AC
'

 

70+ SQL courses for beginners and professionals