Permasalahan
1. Bagaimana mengimplementasikan teknologi enkripsi dan dekripsi pesan dengan menggunakan algoritma caesar chiper dan operasi Xor ?
2. Bagaimana merancang aplikasi enkripsi dan dekripsi berbasis Visual Studio 2005 dengan menggunakan algoritma ceasar chiper dan operasi Xor ?
Pembahasan
Pengertian Aplikasi
Aplikasi berasal dari kata application yang artinya penerapan, penggunaan. Secara istilah aplikasi adalah program siap pakai yang direka untuk melaksanakan suatu fungsi bagi pengguna atau aplikasi yang lain dan dapat digunakan oleh sasaran yang dituju.
Pengertian Kriptografi
Kriptografi berasal dari bahasa yunani, menurut bahasa dibagi menjadi dua, yaitu kripto dan graphia. Kripto berarti secret (rahasia) dan graphia berarti writing (tulisan).
Algoritma Simetris dan Asimetris
1. Algoritma Simetris
Algoritma simetris (symmetric algorithm) adalah suatu algoritma dimana kunci enkripsi yang digunakan sama dengan kunci dekripsi sehingga algoritma ini disebut juga sebagai single-key algorithm.
2. Algoritma Asimetris
Algoritma asimetris (asymmetric algorithm) adalah suatu algoritma dimana kunci enkripsi yang digunakan tidak sama dengan kunci dekripsi. Pada algoritma ini menggunakan dua kunci yakni kunci publik (public key) dan kunci privat (private key). Kunci publik disebarkan secara umum sedangkan kunci privat disimpan secara rahasia oleh si pengguna.
Analisa Algoritma
Caesar Cipher Algoritma adalah urutan langkah- langkah logis penyelesaian masalah yang disusun secara sistematis dan logis, (R. Munir, 2002). Langkahlangkah dalam algoritma harus logis dan harus dapat ditentukan bernilai salah atau benar. algoritma adalah spesifikasi urutan langkah untuk melakukan pekerjaan tertentu.
Analisa Operator XOR
Operator biner yang sering digunakan dalam cipher yang yang beroperasi dalam mode bit adalah XOR atau exclusive-or. Notasi matematis untuk opeartor XOR adalah ⊕ (dalam Bahasa C, operator XOR dilambangkan dengan ^ ).
Hasil Pembahasan
Coding menggunakan Visual studio 2005, ada 1 Form dan 2 Module
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Public Class Form1
Dim codedes As Short
Dim codeenkrip As Short
Private Enum CryptoAction
actionEncrypt = 1
actionDecrypt = 2
End Enum
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmddeskripcaesar.Enabled = False
cmddeskripxor.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdenkripcaesar.Click
Dim Enkripsi As New kripto2
Dim strcode As String
Try
strcode = InputBox("Masukkan Kode Enkripsi")
If strcode = "" Then Exit Sub 'jika klik cancel
'simpen kode di variabel codeenkrip
codeenkrip = strcode
Finally
End Try
txtcaesar.Text =
Enkripsi.KryptografiEnkripsi(txtinput.Text)
cmddeskripcaesar.Enabled = True
End Sub
Public Function EnkripsiXOR(ByVal Kode As String, ByVal DataIn As String) As String
Dim XOR1, XOR2 As Integer
Dim OuputStr As String
Dim longData As Long
For longData = 1 To Len(DataIn)
XOR1 = Asc(Mid$(DataIn, longData, 1))
'Nilai kedua berasal dr kata kunci
XOR2 = Asc(Mid$(Kode, ((longData Mod Len(Kode)) + 1), 1))
OuputStr = OuputStr + Chr(XOR1 Xor XOR2)
Next longData
EnkripsiXOR = OuputStr
End Function
No comments:
Post a Comment