Mega Code Archive
Convert ToBase64CharArray() and Convert FromBase64CharArray methods
Imports System
Class Sample
Public Shared Sub Main()
Dim byteArray1(255) As Byte
Dim byteArray2(255) As Byte
Dim charArray(351) As Char
Dim charArrayLength As Integer
Dim x As Integer
For x = 0 To byteArray1.Length - 1
byteArray1(x) = CByte(x)
Console.Write("{0:X2} ", byteArray1(x))
Next x
charArrayLength = Convert.ToBase64CharArray( _
byteArray1, 0, byteArray1.Length, _
charArray, 0, _
Base64FormattingOptions.InsertLineBreaks)
Console.Write(charArrayLength)
Console.WriteLine(New [String](charArray))
byteArray2 = Convert.FromBase64CharArray(charArray, 0, charArrayLength)
End Sub
End Class