Tips and Trick Membuat Program Enkripsi Sederhana With VB 6 

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().