Visual Basic (4) : Enkripsi / Encrypt (2)

Setelah posting sebelumnya dijelaskan tentang pengertian enkripsi (walaupun sepertinya bahasanya agak berat….), sekarang saya akan coba implelmentasikan kedalam bahasa pemrograman (Visual Basic). Enkripsi dan Enkripsi Balik (dekripsi) adalah hal yang sangat menyenangkan yang pernah ada, seperti anak kecil yang lagi maen petak umpet, dimana anak yang satu mencoba untuk menghilang dan yang lain mencoba untuk mencarinya…. atau masih inget waktu sd atau smp ikutan “Pramuka” ?? (sekarang masih ada gak ya .. heuheuheue) kita pernah diajarkan Kode Morse atau Semapur (itu loh bendera yang digoyang kayak mau parkir-in pesawat terbang .. inget??)

Contoh enkripsi sederhana lainnya misalnya merubah huruf A menjadi 1, atau huruf A menjadi Z dan seterusnya, yang terpenting disini adalah POLA yang Teratur.
Dibidang pemrograman (sebenarnya cita2 saya 5 tahun yang lalu, ingin ngambil S2 dibidang cryptology, cuman belum kesampai-an … hiks hiks), kita lebih bebas mau membuat enkripsi sesuka kita dengan bantuan teknologi yg kian meningkat.
mau meng-enkripsi perkalimat, perkata ataupun perhuruf (semuanya bisa !!!)
Akan tetapi hal yang sulitnya (Baca : Menyenangkan) adalah bagaimana cara men-Enkripsi Baliknya (Dekripsi) ………
Saat ini pada setiap project yang saya kerjakan , minimal ada 5-7 model enkripsi plus dekripsinya yang saya gunakan (wuah balas dendam kali yak..!!), karena ada banyak informasi penting yang mesti kita sembunyikan meskipun dengan sesama rekan IT.
Karena jika tidak di enkrip, semua orang (yang punya akses) bisa masuk ke database lalu liat di table dengan transparan..
Tidak hanya User Password yang kita enkripsi, informasi lainnya yang kita anggap penting seharusnya harus dienkripsi.
Saya akan coba ber-Main Enkripsi – Dekripsi Dengan Anda

1. Taruh syntax ini (Visual Basic) di modul atau Form Biasa juga bisa
Public Function Crypt(Text As String, CodeBin As Integer) As String
On Error Resume Next
Dim strTempChar As String
For I = 1 To Len(Text)
If Asc(Mid$(Text, I, 1)) < CodeBin Then
strTempChar = Asc(Mid$(Text, I, 1)) + (CodeBin)
End If
Mid$(Text, I, 1) = Chr(strTempChar)
Next I
Crypt = Text
End Function


2. Ambil 2 buah Command Button dan 3 Text Box dan taruh di form

Buat Seperti Gambar (klik gambar untuk memperjelas)



3. Taruh Syntax Berikut di tombol Command Button Enkripsi
Private Sub cmdEnkripsi_Click()
Me.Text2.Text = Crypt(Me.Text1.Text, 128)
End Sub


4. Tulis Huruf atau kata pada text awal (text1) lalu Klik Tombol Enkripsi

5. Lihat Hasilnya pada Text Hasil (Text2)

6. Nah.. bagian Anda adalah…. Cari bagaimana AGAR hasil dari text hasil (text2) dapat kembali ke Text Awal.
(tombol Dekripsi adalah bagian Anda…)
Selamat Mencoba