Masalah enkripsi dan de-enkripsi sebenarnya mudah, hanya teknik/metodenya yang
sulit. Yang perlu menjadi perhatian adalah jika teknik/metode yang digunakan
mudah ditebak oleh orang, maka enkripsi data menjadi tidak berguna.
salah satu metode enkripsi yang banyak digunakan oelh programer ada dengan
menambahkan jumlah angka di karakter yang akan di enkripsi.
misal : data yang akan dienkripsi adalah kata "saya", untuk mengenkripsi
datanya setiap huruf didalam kata tersebut ditambahkan angka 5. Jadi huruf di
setiap kata "saya" harus di rubah menjadi kode ascii dahulu kemudian
ditambahkan 5. Hasil tambahan tersebut menjadi hasil enkripsi.
awal enkripsi Hasil enkripsi
s= 155 +5 120 x
a = 97 +5 102 f
s = 121 +5 126 ~
a = 97 +5 102 f
jadi kata "saya" setelah dienkripsi dengan menambahkan angka 5 akan
menghasilkan kata "xf~f". Untuk de-enkripsinya tinggal membalikkan prosesnya,
yaitu nilai ascci yang dihasilkan di kurang angka 5
awal enkripsi Hasil enkripsi
de-enkripsi Hasil de-enkripsi
s= 155 +5 120 x -5
155 = s
a = 97 +5 102 f -5
102 = a
s = 121 +5 126 ~ -5
121 = y
a = 97 +5 102 f -5
102 = a
code untuk menhasilkan enkripsi diatas:
Private Sub Command3_Click() ' untuk enkripsi
Dim KataYangAkanDiEnkripsi
Dim KataHasilEnkripsi
KataYangAkanDiEnkripsi = Text1(0).Text
For i = 1 To Len(KataYangAkanDiEnkripsi)
KataHasilEnkripsi = KataHasilEnkripsi &
Chr(Asc(Mid(KataYangAkanDiEnkripsi, i, 1)) + 5)
Next
Text1(1).Text = KataHasilEnkripsi
End Sub
Private Sub Command4_Click() ' untuk de-enkripsi
Dim KataYangAkanDiDeEnkripsi
Dim KataHasilDeEnkripsi
KataYangAkanDiDeEnkripsi = Text1(1).Text
For i = 1 To Len(KataYangAkanDiDeEnkripsi)
KataHasilDeEnkripsi = KataHasilDeEnkripsi &
Chr(Asc(Mid(KataYangAkanDiDeEnkripsi, i, 1)) - 5)
Next
Text1(2).Text = KataHasilDeEnkripsi
End Sub
Metode enkripsi diatas, dengan menambah jumlah karakter (brapapun jumlahnya,
sangat mudah di baca oleh orang yg mengerti programer) banyak digunakan oleh
oleh programer, dan juga perusahaan pembuatan data, terutama jika datanya
tersebut disimpan didalam database, salah satu perusahan yang mengggunakan
teknik ini didatabase programnya adalah perusahaan yang mengeluarkan program
B2B Direktori Bisnis Indonesia, database tahun 2004/2005.
Teknik yang paling sulit adalah enkripsi data 128 bit/256 bit atau lebih tinggi
yang standar keamanan NSA (Badan keamanan nasional amerika).
Semoga membantu: =(oVo)=
====================
BaceInside Publisher
Copyright @2007
Not for reproduced, republished.
Thank You
====================
----- Original Message ----
From: Airflow4u <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, May 2, 2007 11:00:57 AM
Subject: Re: [indoprog-vb] Encrypt dan Decrypt text Box
Untuk enkripsi metode/teknik cukup banyak, mulai dari yang paling gampang
(Caesar chiper) sampe yang paling sulit (DES or McElisse). Dekripsi akan
mengikuti teknik enkripsi yang kita gunakan.
Jadi tentukan dulu teknik enkripsi yang akan kita gunakan...
- - - - salam - - - -
Solikhan <[EMAIL PROTECTED] com> wrote: Dear All,
Ada yang bisa bantu nggak? gimana coding untuk membuat encript data inputan
dari TextBox
dan Decript dari field yang terencrypt.
Thanks sebelumnya.
Salam,
Solikhan
[Non-text portions of this message have been removed]
------------ --------- --------- ---
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
