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.
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.
Tidak ada komentar:
Posting Komentar