A simple encoding method. Uses ASCII encoding.

Imports System.Security

Public Class cEncode

Public Function Encode(ByVal szData As String) As String
Dim szResult As String = String.Empty
If szData.Trim.Length > 0 Then
Dim b As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(szData)
szResult = Convert.ToBase64String(b)
End If
Return szResult
End Function

Public Function Decode(ByVal szData As String) As String
Dim szResult As String = String.Empty
If szData.Trim.Length > 0 Then
Dim b As Byte() = Convert.FromBase64String(szData)
szResult = System.Text.ASCIIEncoding.ASCII.GetString(b)
End If
Return szResult
End Function

End Class