编码部分:
Private Function EncodeString(ByVal str As String)
Dim data As Byte()
data = System.Text.ASCIIEncoding.ASCII.GetBytes(str)
Return Convert.ToBase64String(data)
End Function
解码部分:
Private Function DecodeString(ByVal str As String)
Dim data As Byte()
If str Is Nothing OrElse str.Equals("") Then
Exit Function
End If
data = Convert.FromBase64String(str)
Return System.Text.ASCIIEncoding.ASCII.GetString(data)
End Function