[VB.Net]Base64 Encode/Decode

1234hotmaster · 03-28-2011, 05:20 PM

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

1llusion · 03-28-2011, 05:23 PM

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

[VB.Net]Base64 Encode/Decode
Author Message