Base64 Encode & Decode di VB.NET

Assalamualaikum wr.wb
Selamat Siang menjelang sore gaes, kali ini ane mau share tutor cara membuat base64 encode dan decode menggunakan MS Visual Basic 2010.

Bahan : - MS Visual Basic 2010 (kalo belum ada donlod cari google banyak)
              - Kopi + Rokok

1. Pertama buka Program MS Visual Basic 2010
2. Create New Project > Windows Application Form
3. Tambahkan 2 RichTextbox & 2 Button
4. Atur Nama dan text Menjadi seperti ini
- Name pada RichTextBox1 ganti menjadi txtdata
- Name pada RichTextBox2 ganti menjadi txthasil (ubah ke readonly = true)
- Name pada Button1 ganti menjadi btnEncode
- Name pada Button2 ganti menjadi btnDecode
- Text pada Button1 ganti menjadi Encode
- Text pada Button2 ganti menjadi Decode

Sehingga menjadi seperti ini, lihat gambar.

Setelah itu, klik dua kali pada Buton Encode, dan masukan source berikut :

Dim byt As Byte() = System.Text.Encoding.UTF8.GetBytes(txtdata.Text)                   txthasil.Text = Convert.ToBase64String(byt)

Kemudian Klik dua kali pada Button Decode dan masukan source berikut :

 Dim b As Byte() = Convert.FromBase64String(txtdata.Text)

 txthasil.Text = System.Text.Encoding.UTF8.GetString(b)

Terakhir, jalankan program dan coba masukan text pada bidang dan klik encode/decode

Nah itu tadi tutorial cara membuat base64 encode dan decode menggunakan MS VB 2010
kalo bingung, berkomentarlah :D
Wasalamualaikum wr.wb