Membuat Aplikasi Cryptography (Kriptografi) Dengan Visual Basic 6.0
Setelah sebelumnya saya telah membahas perihal module dan public function, kali ini di Visual Basic 6.0 (seterusnya kita sebut VB6.0) saya akan memperlihatkan tutorial sederhana mengenai pembuatan aplikasi cryptography dengan memakai VB6.0. Dalam pembuatan aplikasi ini saya mungkin memakai beberapa public function jadi kalau sahabat belum memahami kegunaannya, untuk module dan public function silakan pelajari lebih lanjut.
Untuk mulai membuatnya sehabis membuka VB6.0 pertama-tama silakan sahabat buat sebuah project dengan memakai Standard EXE kemudian buatlah sebuah form, pada form tersebut pada dasarnya sahabat memerlukan dua textbox dan dua command button, dimana salah satu textbox tersebut untuk memasukkan teks yang akan di enkripsi dan textbox yang satunya untuk menampilkan hasil enkripsi, sedangkan fungsi salah satu command untuk meng-enkripsi sedangkan yang satunya lagi untuk melaksanakan dekripsi. Tampilannya sanggup diatur kurang lebih menyerupai gambar berikut ini.
Kemudian selanjutnya atur properti
text1 dan text2 ialah pada multiline jadikan true. Gunanya biar teks sanggup dituliskan tanpa barus sebaris (bisa di enter), kemudian kosongkan teks kedua textbox tersebut. Selanjutnya tambahkan isyarat public function berikut pada project tersebut.
Public Function Encrypt(Text As String, Key As Integer) As String Dim Enkrip, Masukan, Keluaran As String Dim n, i As Integer Masukan = Text n = Len(Masukan) For i = 1 To n Enkrip = Mid(Masukan, i, 1) Enkrip = Asc(Enkrip) Enkrip = (Enkrip + Key) Mod 256 Enkrip = Chr(Enkrip) Keluaran = Keluaran & Enkrip Next i Encrypt = Keluaran End Function Public Function Decrypt(Text As String, Key As Integer) As String Dim Dekrip, Masukan, Keluaran As String Dim n, i As Integer Masukan = Text n = Len(Masukan) For i = 1 To n Dekrip = Mid(Masukan, i, 1) Dekrip = Asc(Dekrip) Dekrip = (Dekrip - Key) Mod 256 Dekrip = Chr(Dekrip) Keluaran = Keluaran & Enkrip Next i Decrypt = Keluaran End FunctionPerhatikan isyarat enkripsi dan dekripsi diatas, isyarat tersebut pada dasarnya memanfaatkan pergeseran nilai ascii dari sebuah karakter, jadi misal sahabat menuliskan karakter A dengan nilai ascii 65, kemudian ditambah sebanyak nilai Key, kemudian dimodulokan dengan 256 (256 merupakan banyaknya bilangan ascii) biar saat bilangannya lebih dari 256 lebihnya kembali diulangi dari 1.
Kemudian selanjutnya klik dua kali pada command button yang bertuliskan Encrypt, tombol tersebut akan diberi perintah biar saat di klik pribadi melaksanakan enkripsi terhadap teks yang berada pada
text1. Tambahkan isyarat pada baris pertama dibawah ini pada button Encrypt tersebut dan isyarat pada baris kedua untuk button Decrypt.Text2.Text = Encrypt(Text1.Text, 6) 'Untuk tombol Encrypt Text2.Text = Decrypt(Text1.Text, 6) 'Untuk tombol Decrypt
Setelah itu coba lakukan simulasi, masukkan teks berikut pada textbox pertama kemudian tekan tombol Encrypt dan sesuaikan apakah alhasil sama, kalau terjadi kesalahan harap periksa dengan cermat isyarat yang sahabat gunakan, mungkin terdapat kesalahan pada penulisan atau penempatan kode.
Mungkin cukup sekian dari saya, semoga sanggup bermanfaat, kalau ada yang ingin sahabat tanyakan silakan sampaikan pada kotak komentar yang ada dibawah atau sanggup juga melalui halaman contact blog ini. Terima kasih.
 Dengan Visual Basic 6.0){kind=link}