Imports System
Public Class Program
Public Shared Function Base64Decode_Decrypt(ByVal base64EncodedData As String) As String
Dim base64EncodedBytes = System.Convert.FromBase64String(base64EncodedData)
Return System.Text.Encoding.UTF8.GetString(base64EncodedBytes)
End Function
Public Shared Function Base64Encode_Encrypt(ByVal str As String) As String
Dim plainTextBytes = System.Text.Encoding.UTF8.GetBytes(str)
Return System.Convert.ToBase64String(plainTextBytes)
End Function
Public Shared Sub Main()
Dim str As String = "VB .NET Programming"
Dim encrypt As String = Base64Encode_Encrypt(str)
Console.WriteLine(encrypt)
Dim decrypt As String = Base64Decode_Decrypt(encrypt)
Console.WriteLine(decrypt)
End Sub
End Class
' run:
'
' VkIgLk5FVCBQcm9ncmFtbWluZw==
' VB .NET Programming
'
