Cara Enkripsi dan Dekripsi ROT 13 menggunakan Visual Bsic 6.0

Kunaikomputer.com - Asalamualaikum sobat kunaikom berjumpa lagi di artikel saya yang membahas tentang Enkripsi dan Dekripsi Metode ROT 13, yang tidak tau ROT 13 nanti saya beri definisinya dari Ilmukomputer.com, Sedikit tentang Enkripsi, Enkripsi adalah Mengubah suatu Teks atau pesan yang akan dikirimkan supaya pesan itu tidak terbaca oleh pihak lain yang tidak memeiliki Dekripsinya. Sedangkan Dekripsi adalah Mebuka pesan yang di ekripsi pengirim sehingga teks yang dikirim dapat di baca seluruhnya, oke langsung saja ke pembahasan ROT 13 dan cara membuat aplikasinya di Visual Basic 6.0, Check This Out.

Pengertian ROT 13 (Rotate 13) :

ROT13 (Rotate 13) adalah enkripsi substitution cipher yang umum digunakan di sistem operasi UNIX. Pada sistem enkripsi ROT13 sebuah huruf digantikan dengan huruf yang letaknya diatas 13 posisi darinya. Sebagai contoh, huruf “a” digantikan dengan huruf “n”, huruf “b” digantikan dengan huruf “o”, dst. Secara matematis, hal ini dapat dituliskan.

C = ROT13(M)

Untuk dekripsi kita lakukan dengan proses enkripsi ROT13 dua kali.

M = ROT13(ROT13(M)) ROT13

disebut juga “monoalphabetic ciphers” karena setiap huruf digantikan dengan sebuah huruf. Huruf yang sama akan memikili pengganti yang sama. Misalnya huruf “a” digantikan dengan huruf “e”, maka setiap huruf “a” akan digantikan dengan huruf “e”.

Ok.. Ok. Kita akan langsung menuju ke pembahasan. Buat form seperti apa yang tampak pada screenshot berikut ini.

Ubah properti, seperti tabel berikut :

SOURCE CODE

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

PEMBAHASAN SOURCE CODE

Berikut merupakan pembahasan atau penjelasan dari source code,

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 tutorial dari saya jika ada pertanyaan bias langsung komentari di bawah artikel ini, atau bias klik tombol navigasi “Tanya Jawab” diatas untuk akses realtime dengan saya oke , sampai jumpa di artikel saya selanjutnya, jangan lupa sebarkan artikel ini jika menurutkamu artikel ini bermanfaat, karena sekecil apapun ilmu yang engkau bagi pasti sobat kunaikom akan menuai hasilnya sekian dari saya Wasalamualaikum,Wr.Wb.

Tweet