[VB.Net]Base64 Encode/Decode - Printable Version

[VB.Net]Base64 Encode/Decode - Printable Version

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: [VB.Net]Base64 Encode/Decode (/Thread-VB-Net-Base64-Encode-Decode)

[VB.Net]Base64 Encode/Decode - 1234hotmaster - 03-28-2011

Function:

Encode

Code:
Public Function ConvertToBase64(ByVal Input As String)
        Return Convert.ToBase64String(System.Text.ASCIIEncoding.ASCII.GetBytes(Input))
    End Function

Decode

Code:
Public Function ConvertFromBase64(ByVal Input As String)
        Dim B As Byte() = System.Convert.FromBase64String(Input)
        Return System.Text.Encoding.UTF8.GetString(B)
    End Function

Usage:

Code:
MsgBox(ConvertToBase64("hi"))
MsgBox(ConvertFromBase64("aGk="))

Spoiler: Credits
Go to completely myself i didn't get any help on this. just a bit exploring the IntelliSense.

If you have any questions, post Smile

RE: [VB.Net]Base64 Encode/Decode - 1llusion - 03-28-2011

awesome!!! Will use in my bot for sure!!!