Enkripsi and Deskripsi

Enkripsi adalah merupakan kegiatan penyandian data dengan tujuan agar data yang ada tidak dapat dibaca secara langsung oleh orang yang tidak berhak, contohnya password. Di sini saya akan mencoba untuk membahas tentang cara melakukan enksripsi dengan memanfaatkan operator XOR.

Operator XOR selain dapat digunakan untuk menyandikan data juga sekaligus dapat digunakan untuk mengembalikan data yang sudah disandikan kebentuk semula (dekripsi). Hal ini disebabkan karena karakteristik yang dimiliki oleh operator XOR tersebut.

Operator XOR selain dapat digunakan untuk menyandikan data juga sekaligus dapat digunakan untuk mengembalikan data yang sudah disandikan kebentuk semula (dekripsi). Hal ini disebabkan karena karakteristik yang dimiliki oleh operator XOR tersebut.
Enkripsi adalah merupakan kegiatan penyandian data dengan tujuan agar data yang ada tidak dapat dibaca secara langsung oleh orang yang tidak berhak, contohnya password. Di sini saya akan mencoba untuk membahas tentang cara melakukan enksripsi dengan memanfaatkan operator XOR.

Berikut ilustrasi dari karakteristik XOR dalam suatu operasi bilangan biner.


Penggunaan operator XOR untuk menyandikan data dapat dilihat pada contoh program berikut :


Kode Program

Option Explicit

Private Function cipher (ByVal text As String, _
ByVal crypNum As Byte) As String
Dim i As Byte
Dim temp As String

temp = Empty

If Len(text) > 0 Then
For i = 1 To Len(text)
temp = temp & Chr((Asc(Mid(text, i, 1)) Xor crypNum))
Next
End If
cipher = temp
End Function

Private Sub Form_Load()
Show
txtDataAsli.SetFocus
txtDataHasil.Enabled = False
optEnkripsi.Value = True
End Sub

Private Sub optEnkripsi_Click()
txtDataHasil.text = Empty
txtDataHasil.Enabled = False

txtDataAsli.Enabled = True
txtDataAsli.SetFocus
txtDataAsli.SelStart = 0
txtDataAsli.SelLength = Len(txtDataAsli.text)
End Sub

Private Sub optDekripsi_Click()
txtDataAsli.text = Empty
txtDataAsli.Enabled = False

txtDataHasil.Enabled = True
txtDataHasil.SetFocus
txtDataHasil.SelStart = 0
txtDataHasil.SelLength = Len(txtDataAsli.text)
End Sub

Private Sub cmdOK_Click()
If optEnkripsi.Value Then
txtDataHasil.text = cipher(txtDataAsli.text, 17)
Else
txtDataAsli.text = cipher(txtDataHasil.text, 17)
End If
End Sub