Dalam tutorial vb.net berikut ini, penulis mencoba membuat program Kriptografi, Enkripsi dan Dekripsi dengan program vb.net, apa itu Kriptografi, Enkripsi dan Dekripsi? Sedikit saya jelaskan yah…

Kriptografi adalah cara-cara untuk mengamankan data, Data yang asli diubah menjadi sandi-sandi dengan format tertentu.
Dalam kriptografi terdapat dua konsep utama yakni enkripsi dan dekripsi.
Enkripsi adalah proses dimana informasi / data yang hendak dikirim diubah menjadi bentuk yang hampir tidak dikenali sebagai informasi awalnya dengan menggunakan algoritma tertentu.
Dekripsi adalah kebalikan dari enkripsi yaitu mengubah kembali bentuk tersamar tersebut menjadi informasi awal.
Pada tutorial kali ini kita akan membutuhkan “Class” dari vb.net untuk membuat program Enkripsi dan Dekripsi.
Ok langsung saja tutorial membuat Kriptografi, Enkripsi dan Dekripsi menggunakan vb.net :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Teks Asli
Label2	Text	Teks Sandi
TextBox1	Text	[Dikosongkan]
	Name	TxtTextAsli
	Multiline	Thrue
	ScrollBars	Vertical
TextBox2	Text	[Dikosongkan]
	Name	TxtTeksSandi
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Enkripsi
	Name	BtnEnkripsi
Button2	Text	Dekripsi
	Name	BtnDekripsi

4. Sebelum Memasukkan Kode di Form1 anda harus membuat dua “Class” terlebih dahulu, caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”,
5. “Class” yang pertama beri nama dengan “Kryptografi” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Kryptografi
Protected Teks_Asli As String, Teks_Sandi As String, PanjangTeks As Long
Public Function KryptografiEnkripsi(ByVal Teks As String) As String
Dim Pos As Long, EnkripsiKarakter, EnkripsiText
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Asli, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
EnkripsiKarakter = Mid(Teks_Sandi, Pos, 1)
EnkripsiText = EnkripsiText + EnkripsiKarakter
Else
EnkripsiText = EnkripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiEnkripsi = EnkripsiText
End Function
Public Function KryptografiDekripsi(ByVal Teks As String) As String
Dim Pos As Long, DekripsiKarakter, DekripsiText
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Sandi, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
DekripsiKarakter = Mid(Teks_Asli, Pos, 1)
DekripsiText = DekripsiText + DekripsiKarakter
Else
DekripsiText = DekripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiDekripsi = DekripsiText
End Function
End Class

6.  “Class” yang Kedua beri nama dengan “Proses” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Proses
Inherits Kryptografi
End Class

7.  Sehingga Solution Exlorer yang disebelah kanan akan tampak sebagai berikut ini :

8.  Pada Form1 Masukkan kode berikut ini :

Public Class Form1

Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click
Dim Enkripsi As New Proses
TxtTeksSandi.Text = Enkripsi.KryptografiEnkripsi(TxtTeksAsli.Text)
End Sub

Private Sub BtnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDekripsi.Click
Dim Dekripsi As New Proses
TxtTeksSandi.Text = Dekripsi.KryptografiDekripsi(TxtTeksSandi.Text)
End Sub
End Class

9.  Setelah itu klik “Start Debugging (F5)”
10.  Maka akan tampil form1 dan coba masukkan sebuah kalimat dan tekan tombol enkripsi, maka kalimat yang di bawah akan berubah.. dan coba klik Dekripsi maka kalimat yang berubah tersebut kambali ke kalimat yang awal.

Demikian tutorial membuat program Kriptografi, Enkripsi dan Deskripsi dengan vb.net,