Membuat Aplikasi Enskripsi dan Deskripsi Menggunakan Algoritma Chiper Substitusi Dengan Visual Basic 6.0

Membuat Aplikasi Enskripsi dan Deskripsi Menggunakan Algoritma Chiper Substitusi Dengan Visual Basic 6.0 | Gho Blog's - Pada posting kali ini saya akan membagi sedikit ilmu pemrograman yang saya punya, saya akan menunjukan bagaimana cara membuat aplikasi kriptografi sederhana menggunakan bahasa pemrograman visual basic 6.0.

Sebelumnya akan saya jelaskan sedikit mengenai kriptografi bagi yang belum tau....

Kriptografi adalah ilmu dan seni untuk menjaga keamanan pesan yang dikirim sampai ke tujuan. 

Ilmu kriptografi dapat diklasifikasikan atas 2 bagian

• Kriptografi klasik
• Kriptografi modern 

Kriptografi mempunyai 2 proses :

• Enskripsi : Proses pengacakan data menggunakan sebuah key agar tidak dapat dibaca oleh pihak lain.
• Deskripsi : Proses mengembalikan data yang telah diacak menjadi data asli dengan sebuah key.

 Komponen kriptografi :

• Plaintext : Data asli
• Chipertext : Data yang telah diacak.

Berikut ini akan saya tunjukan bagaiman membuat sebuah aplikasi enskripsi dan deskripsi sederhana menggunakan salah satu algoritma substitusi chiper yang merupakan salah satu ilmu kriptografi klasik, yaitu Caesar Chiper dengan bahasa pemrograman Visual Basic 6.0.

Yang pertama, anda sebaiknya telah mengenal bahasa pemrograman visual basic, karena saya tidak akan menjelaskan secara detail mengenai bahasa pemrograman yang satu ini.

Buat disain form seperti gambar berikut, pastikan nama Text box dan command button nya sama dengan gambar, agar saat memasukkan script nantinya tidak terjadi kesalahan.

Bukalah form code dari disain diatas kemudian masukkan script berikut ini :

Private Sub Command1_Click() If Text5.Text = "" Then MsgBox "Anda Belum Menginputkan Bit Geser...!!", vbCritical, "Warning" Text5.SetFocus End If Var = Text5.Text Text2 = "" If Var < 26 Then N = Len(Trim(Text1)) For i = 1 To N C = Mid(Text1, i, 1) P = Chr(Asc(C) + Var) If Asc(P) > 90 Then Text2.SelText = Chr(64 + (Asc(P) - 90)) Else Text2.SelText = P Text1.Enabled = True End If Next Else MsgBox " Maksimal Bit Hanya 26...!!!", vbOKOnly + vbInformation, "Peringatan" Text5 = "" End If End Sub Private Sub Command2_Click() Var = Text5.Text Text4 = "" If Var < 26 Then N = Len(Trim(Text3)) For i = 1 To N C = Mid(Text3, i, 1) P = Chr(Asc(C) + 26 - Var) If Asc(P) > 90 Then Text4.SelText = Chr(64 + (Asc(P) - 90)) Else Text4.SelText = P End If Next Else MsgBox " Data Anda Salah..!!!", vbOKOnly + vbInformation, "Peringatan" Text5 = "" End If End Sub Private Sub Command3_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text5.SetFocus End Sub Private Sub Command4_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Text1.SetFocus If KeyAscii = 8 Then Exit Sub KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= 65 And KeyAscii <= 90) Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then Exit Sub KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= 65 And KeyAscii <= 90) Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) Text3.SetFocus If KeyAscii = 8 Then Exit Sub KeyAscii = Asc(UCase(Chr(KeyAscii))) If Not (KeyAscii >= 65 And KeyAscii <= 90) Then KeyAscii = 0 End If End Sub

Sekian dulu tutorial Visual Basic 6.0 yang berjudul Membuat Aplikasi Enskripsi dan Deskripsi Menggunakan Algoritma Chiper Substitusi Dengan Visual Basic 6.0. Semoga bermanfaat  dan selamat mencoba