Base64 adalah istilah umum untuk sejumlah skema pengkodean serupa yang mengkodekan data biner dan menerjemahkannya ke dalam representasi basis 64. Istilah Base64 berasal dari konten pengkodean MIME tertentu. (Wikipedia, 2010)
Berikut code dan penjelasan terhadap program kriptografi base 64 sederhana.
Code
|
Penjelasan
|
Imports System.Security.Cryptography
Public Class Form1
Private Sub
Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
Button1.Click
Dim base64Decoded As
String = TextBox1.Text
Dim base64Encoded As
String
Dim data As Byte()
data =
System.Text.ASCIIEncoding.ASCII.GetBytes(base64Decoded)
base64Encoded = System.Convert.ToBase64String(data)
TextBox1.Text = base64Encoded
End Sub
Private Sub
Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
Button2.Click
Dim base64Encoded As
String = TextBox1.Text
Dim base64Decoded As
String
Dim data() As Byte
data =
System.Convert.FromBase64String(base64Encoded)
base64Decoded = System.Text.ASCIIEncoding.ASCII.GetString(data)
TextBox1.Text = base64Decoded
End Sub
End Class
|
Import library cryptography
Inisialisasi form1
Inisialisasi ketika button1 di klik maka
Menggunakan base64 melaluli library cryptography
untuk enkripsi teks pada textbox1
Tampilkan teks pada textbox1 hasil dari enkripsi
Inisialisasi ketika button2 di klik maka teks pada
textbox1 yang di enkripsi akan di deskripsi dengan base64
Tampilkan teks pada textbox1 hasil dari deskripsi
|
Semoga bermanfaat
