HexToBin and BinToHex

While dealing with storing parts of an X509 certificate, I’ve found the need for a couple of utility methods that allow converting the string representations of the Public Key to a byte array (or vice versa). That’s what the HexToBin() method does. Included also is BinToHex() for going the other direction.
<br />Private Shared Function BinToHex(ByVal data As Byte()) As String<br /> If Not data Is Nothing Then<br /> Dim sb As New System.Text.StringBuilder<br /> For i As Integer = 0 To data.Length - 1<br /> sb.Append(data(i).ToString("X2"))<br /> Next<br /><br /> Return sb.ToString()<br /> Else<br /> Return Nothing<br /> End If<br />End Function<br />
<br />Public Shared Function HexToBin(ByVal s As String) As Byte()<br /> Dim arraySize As Integer = CInt(s.Length / 2)<br /> Dim bytes(arraySize - 1) As Byte<br /> Dim counter As Integer<br /><br /> For i As Integer = 0 To s.Length - 1 Step 2<br /> Dim hexValue As String = s.Substring(i, 2)<br /><br /> ' Tell convert to interpret the string as a 16 bit hex value<br /> Dim intValue As Integer = Convert.ToInt32(hexValue, 16)<br /> ' Convert the integer to a byte and store it in the array<br /> bytes(counter) = Convert.ToByte(intValue)<br /> counter += 1<br /> Next<br /><br /> Return bytes<br />End Function<br />
If you found this article helpful: