Public Shared Function DecodeBase64ToString(valor As String) As String Dim myBase64ret As Byte() = Convert.FromBase64String(valor) Dim myStr As String = System.Text.Encoding.UTF8.GetString(myBase64ret) Return myStr End Function Public Shared Function EncodeStrToBase64(valor As String) As String Dim myByte As Byte() = System.Text.Encoding.UTF8.GetBytes(valor) Dim myBase64 As String = Convert.ToBase64String(myByte) Return myBase64 End Function
Berta Colom