Ok Kembali Lagi Bersama saya, sekarang saya akan membagi sedikit ilmu mengenai VB [ Visual Basic ]
kali ini kita akan membahas mengenai pembuatan Eknripsi sederhana menggunakan Visual Basic 6.
Langsung saja pertama-tama Yang harus kita Siapkan adalah :
1. Buat form seperti dibawah ini :
2. isi propertiesnya Seperti dibawah ini :
3. isi scpript dibawah nie :
Sub Rot13() For I = 1 To Len(txtTeks) Baca = Asc(Mid(txtTeks, I, 1)) 'Secara matematis C = ROT13(M) Tukar = Chr(Baca + 13) txtHasil = txtHasil & Tukar Next End Sub Sub DeRot13() For I = 1 To Len(txtTeks) Baca = Asc(Mid(txtTeks, I, 1)) 'Ekuivalen dengan M = ROT13(ROT13(M)) Tukar = Chr(Baca - 13) txtHasil = txtHasil & Tukar Next End Sub Private Sub cmdDekrip_Click() txtHasil = "" DeRot13 End Sub Private Sub cmdEnkrip_Click() txtHasil = "" Rot13 End Sub
4. Coba jalankan programnya :
Untuk Penjelasannya dibawah ini :
Penjelasan Script :
Sub Rot13()
For I = 1 To Len(txtTeks)
Baca = Asc(Mid(txtTeks, I, 1))
'Secara matematis C = ROT13(M)
Tukar = Chr(Baca + 13)
txtHasil = txtHasil & Tukar
Next
End Sub
Baris enkripsi dari ROT13.
Ubah setiap karakter menjadi karakter + 13,
huruf “a” digantikan dengan huruf “n”, huruf “b” digantikan dengan huruf “o”, dst.
Sub DeRot13()
For I = 1 To Len(txtTeks)
Baca = Asc(Mid(txtTeks, I, 1))
'Ekuivalen dengan M = ROT13(ROT13(M))
Tukar = Chr(Baca - 13)
txtHasil = txtHasil & Tukar
Next
End Sub
Merupakan baris kode dekripsi yang merupakan kebalikan dari enkripsi.
Dalam rumus kita dapatkan M = ROT13(ROT13(M)).
Saya bingung bagaimana menerjemahkannya ke source visual basic.
Daripada susah-susah balik saja operatornya yang tadinya.
Tukar = Chr(Baca + 13) menjadi Tukar = Chr(Baca - 13)
Terlihat memang, operator ( + ) diganti menjadi ( - ).
He... he.. yang pentingkan ekuivalen dengan M = ROT13(ROT13(M)) dan tidak perlu
ROT13 dua kali segala, untuk dekripsinya. Efisiensi coy! Efisiensi!
Private Sub cmdDekrip_Click()
txtHasil = ""
DeRot13
End Sub
Kalau button Dekripsi ditekan maka:
Kosongkan properti text pada textbox txtHasil.
jalankan sub program DeRot13().
Private Sub cmdEnkrip_Click()
txtHasil = ""
Rot13
End Sub
Kalau button Enkripsi ditekan maka:
Kosongkan properti text pada textbox txtHasil.
jalankan sub program Rot13().
Sekian Dulu Penjelasan dari saya , Semoga ini bisa Bermanfaat Buat Kalian :D
0 comments:
Post a Comment