Sabtu, 03 Desember 2011

0 Program Enkripsi XOR


Tugas Mata Kuliah Keamanan Informasi Lanjut kali adalah membuat program enkripsi sederhana dengan menggunakan algoritma XOR (Exclusive OR). Pada dasarnya algoritma XOR ini menggunakan sebuah kunci untuk meng-XOR-kan teks yang nanti hasil enkripsinya disimpan dalam bentuk biner.


Setelah membaca-membaca referensi dari RAD yang saya sedikit kuasai, pada Visual Foxpro terdapat fungsi yang dapat meng-XOR-kan bit data dari dua variable numeric. Nama Fungsi tersebut adalah BITXOR().
Syntaksnya : BITXOR(var1,var2)
Contohnya adalah:
Var1=5(binary: 00000101)
Var2=6(binary: 00000110)
Hasil=BITXOR(Var1,Var2)
?Hasil
maka hasilnya adalah : 3 (binary:00000011)
Jika dibuatkan table maka proses XOR (8 bit) seperti berikut:



Decimal
Binary
5
0
0
0
0
0
1
0
1
6
0
0
0
0
0
1
1
0
XOR=3
0
0
0
0
0
0
1
1




Untuk data yang bersifat numeric implementasi XOR sangat sederhana, akan tetapi bagaimana jika data yang akan di XOR adalah text atau karakter kita harus mengubah dulu ke ASCII. Setelah bentuknya menjadi ASCII maka dapat dijalankan proses eXclusive OR nya.
Setelah cari-cari referensi di internet akhirnya dapat listing program yang perlu dimodikasi sedikit dan diterapkan ke dalam OOP (Object Oriented Programming).
Berikut listing program hasil modifikasi, dengan membuang listing yang tidak perlu. Listing ini saya taruh di procedure tombol encypt.


--------------------------mulai disini----------------------------------------
lcPesan= ALLTRIM(“Mari Demo ke Rektorat”&& variable pesan
lcKosong=""&& untuk menampung hasil
lcKunci = ALLTRIM(upper(bdg))
lslen = Len(lcPesan) && menghitung panjang character pesan
lklen = Len(lcKunci) && menghitung panjang character kunci
j = 1 && sebagai awal pengambilan character kunci
For i = 1 To lslen && loop dari 1 sampai dengan panjang karakter pesan
If j > lklen THEN && Jika j lebih panjang dari char kunci maka kembali ke 1
j = 1
endif
lpbyte = Asc(Substr(lcKunci, j, 1)) && ambil huruf jadikan ascii
lsbyte = Asc(Substr(lcPesan, i, 1)) && ambil huruf jadikan ascii
labyte = BitXor(lsbyte, lpbyte)&&Hasil BitXor
lcKosong=lcKosong + CHR(ABS(labyte)) && Tempat penampungan Hasil XOR
j = j + 1
Endfor
?ALLTRIM(lcKosong)
---------------------------------------selesai---------------------------------------------------
Dari hasil modifikasi listing tersebut diterakan ke dalam procedure tombol encrypt pada desain form. Proses pembuatan dan pengaturan objek tidak saya ceritakan secara mendetil karena akan memakan waktu, berikut saya tampilkan screenshot desain formnya.


Berikut hasil penerapan listing algoritma enkripsi XOR pada pemrogramman berorientasi objek visual foxpro. Program ini mengenkripsi plain text “Mari kita mulai berdemo” dengan kata kunci “bdg”. Sebagai tambahan untuk kata kunci saya batasi hanya sampai 4 karakter panjangnya.


Kelemahan dari algoritma XOR adalah pada saat dienkripsi untuk kedua kalinya, maka pesan awal akan tertayang kembali. Berikut screenshot untuk enkripsi yang kedua kali.





Artikel Terkait perkategori

0 komentar:

Posting Komentar

 

Blog CIO Indonesia Copyright © 2011 - |- Template created by O Pregador - |- Powered by Blogger Templates