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

Share on :

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

Selamat Mencoba.....

Share on :

Pages

Monday, January 9, 2012