Aplikasi Kriptografi Sederhana Menggunakan VB 6.0

Dalam rangka pemenuhan tugas mandiri Semester Pendek untuk mata kuliah ‘Keamanan Komputer’ (kode kelas SI200P, dengan dosen utama Sandro Alfeno, S.Kom) saya membuat aplikasi kriptografi sederhana dengan menggunakan visual basic 6.0

Berikut ini tutorial nya... check this out !

1. Desain form seperti gambar berikut :

Gunakan komponen label, frame, textbox dan command button.

Keterangan :

Ubah caption dari masing-masing command button pada kotak properties

cmdbutton1 ubah caption → enkripsi

cmdbutton2 ubah caption → dekripsi

cmdbutton3 ubah caption → CLEAR

cmdbutton4 ubah caption → EXIT

2.  Setelah selesai beri coding untuk setiap command button pada form 1

Coding  :

Private Sub enkripsi_Click()

Dim Enkrip, Output, Inputan As String

Dim Panjang_Input As Integer

Inputan = Text1.Text

Panjang_Input = Len(Text1.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1)

Enkrip = Asc(Enkrip)

Enkrip = (Enkrip + 20) - 43

Enkrip = Chr(Enkrip)

Output = Output & Enkrip

Next i

Text2.Text = Output

If Text1.Text = "" Then

MsgBox "Isi Plaintext terlebih dahulu kemudian tekan Enkripsi"

End If

End Sub

Private Sub dekripsi_Click()

Dim Dekrip, Output, Inputan As String

Dim Panjang_Input, Pesan As Integer

Inputan = Text3.Text

Panjang_Input = Len(Text3.Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1)

Dekrip = Asc(Dekrip)

Dekrip = (Dekrip - 20) + 43

Dekrip = Chr(Dekrip)

Output = Output & Dekrip

Next i

Text4.Text = Output

If Text3.Text = "" Then

MsgBox "Isi Ciphertext terlebih dahulu kemudian tekan Dekripsi"

End If

End Sub

Private Sub CLEAR_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = "" 

Text1.SetFocus

End Sub

Private Sub EXIT_Click()

x = MsgBox ("Yakin Akan Keluar", vbOKCancel, "WARNING")

If x = vbOK Then Unload Me

End Sub

3. Untuk mengecek kebenaran coding, run aplikasi.

Ini hanya desain form sederhana, form 1 dapat didesain sesuai keinginan dan pada coding kunci enkripsi dekripsi dapat menggunakan kunci yang berbeda (bisa dimodifikasi)

IMPLEMENTASI

Screenshot hasil akhir dari aplikasi kriptografi sederhana yang telah di desain sedemikian rupa :

Untuk aplikasi silahkan sahabat blogger download disini. Semoga bermanfaat yaaa !!