Kriptografi – Enkripsi – Dekripsi dengan vb.net

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 tombolenkripsi, 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, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.

tetap semangat dan lanjut gan !!!