Tugas keamanan Komputer

Kriptografi Sederhana

Visual Basic 6

Mungkin pada banyak yang bingung dengan istilah Kriptografi. Apa seh Kriptografi itu ? Secara garis besarnya (yang gw tau aja…hhe..) neh ya, adalah seni dari sebuah teknik persandian ( Kriptologi ). Kalo mau baca lebih jelas, ada di sini.

Dalam Kriptografi ini, dikenal 3 macam istilah penting yaitu, Plain Text, Key, dan Chiper Text. Plain Text adalah pesan sebenarnya yang ingin dikirimkan. Plain Text ini biasanya bersifat sangat rahasia. Key adalah Kunci yang digunakan baik untuk menyandikan atau mengubah sandi menjadi bentuk pesan sebenarnya. Key ini biasanya hanya diketahui oleh pihak – pihak yang berkepentingan. Chiper Text adalah sebuah sebuah kalimat yang tersusun atas huruf – huruf yang tidak beraturan sehingga tidak memungkinkan untuk dibaca.

Ok, gw gak bakal panjang lebar ngejelasin, soalnya gw juga gak begitu ngerti definisinya secara langsung…hehe..postingan gw kali ini bakal nunjukkin kaya apa seh aplikasi kriptologi itu.

program ini gw buat dengan bahasa pemrograman Visual Basic 6.0, teknik persandian yang saya gunakan adalah Transposisi. Transposisi adalah suatu teknik penggeseran sebuah huruf sebanyak nilai tertentu sehingga diperoleh karakter baru.

Pertama, kalian buka VB yang ada di komputer, trus buat sebuah form. Dalam Form tersebut akan terdapat 2 buah Label, 2 buah TextBox, 2 buah Command Button dan sebuah combo box. Pada contoh program saya, tampilannya akan seperti berikut :

Kira – kira, seperti itulah gambarannya, tapi terserah kalian kalo ada yg mo di rubah2. Untuk Kodingnya :

Private Sub clear_Click()
plain.Text = Empty
chiper.Text = Empty
Combo1.Text = “Kunci Pertama !”
End Sub

Private Sub Encrypt_Click()
a = Len(plain.Text)
b = Len(chiper.Text)
If Combo1.Text = “Kunci Pertama !” Then
MsgBox “Harap Tentukan Kunci pertama dan kedua !”, vbInformation, “Error”
Else
chiper.Text = Empty
For i = 1 To a
c = Asc(Mid(plain.Text, i, 1))
d = Val(Combo1.Text) + c
e = Chr(d)
chiper.Text = chiper.Text + e
Next i
End If
End Sub

Private Sub Form_Load()
For i = 1 To 50
Combo1.AddItem (i)
Next i
End Sub

ok, gw jelasin perintah – perintah yang mungkin gak umum di pake. pertama LEN( ), digunakan untuk menghitung panjang string yang ada. kemudian ASC( ), digunakan untuk mendapatkan nilai ASCI dari karakter yang ada. Lalu CHR ( ),digunakan untuk mengmbalikan karakter dari nilai ASCI yang ada. mungkin itu aja kayaknya…selain itu seh mungkin kalian juga udah pada ngerti…hhe..

Untuk men-decrypt-nya,buat sebuah form baru yang sama persis. kemudian kalian tinggal mengganti operator rumus pada bagian variabel d dari tanda plus ( + ) menjadi minus ( – ). Sehingga dia akan mengembalikan teks dari yang tersandi menjadi teks utuh. Bila ada yang ini ditanyakan, comment aja yach…hhe