Imports System
Class Base64EncodeDecode_VBNET
Public Shared Function Base64Encode(ByVal str As String) As String
Dim bytes = System.Text.Encoding.UTF8.GetBytes(str)
Return System.Convert.ToBase64String(bytes)
End Function
Public Shared Function Base64Decode(ByVal EncodeStr As String) As String
Dim bytesArray As Byte() = System.Convert.FromBase64String(EncodeStr)
Return System.Text.ASCIIEncoding.ASCII.GetString(bytesArray)
End Function
Public Shared Sub Main()
Dim Base64EncodeStr As String = Base64Encode("vb.net programming")
Console.WriteLine(Base64EncodeStr)
Console.WriteLine(Base64Decode(Base64EncodeStr))
End Sub
End Class
' run:
'
' dmIubmV0IHByb2dyYW1taW5n
' vb.net programming
'
