Mengencrypt/decrypt Suatu String

Banyak cara untuk merahasiakan suatu data, di mana salah satunya dengan mengencrypt atau mengacak data tersebut. Contoh ini menunjukkan kepada Anda salah satu cara sederhana untuk mengencrypt suatu data, termasuk mendecrypt atau mengembalikan kepada data semula.

Code :

'Deskripsi: Melakukan encrypt/decrypt (acak/normalkan) terhadap
' suatu string berdasarkan kode tertentu. Sangat cocok
' untuk menyimpan informasi sederhana namun rahasia.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Rabu, 15 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 2 Commandbutton
' 2. Copy-kan coding berikut ke editor form yang bertalian.
----------------------------------------------------------------------

'Tips ini sangat berguna untuk mengacak password atau informasi rahasia
'lainnya. Anda bisa menyimpan string yang sudah ter-enkrip ke suatu file
'sehingga user yang tidak berhak tidak dapat membacanya walaupun dia
'bisa membuka file tersebut.

'Tombol Command1 akan mengencrypt string.
'Untuk menormalkan string tersebut, klik tombol Command2.

Dim Code As String, DataString As String, Temp As String

Sub Translate()
Dim I As Integer
Dim location As Integer
Temp$ = ""
For I% = 1 To Len(DataString$)
location% = (I% Mod Len(Code$)) + 1
Temp$ = Temp$ + Chr$(Asc(Mid$(DataString$, I%, 1)) Xor _
Asc(Mid$(Code$, location%, 1)))
Next I%
End Sub

Private Sub Command1_Click()
'Code di bawah adalah rumus pengenkripsian. Ganti 'abcdefghijk'
'dengan string apapun yang Anda inginkan, bahkan Anda dapat
'mengubah panjang dari string Code ini.
Code = "abcdefghijk"
'Ganti 'Masino Sinaga' dengan string yang akan Anda encrypt.
DataString = "Masino Sinaga"
Translate
MsgBox (Temp$)
End Sub

Private Sub Command2_Click()
DataString = Temp$
Translate
MsgBox (Temp$)
End Sub

Sumber artikel :http://www.masinosinaga.com by.iby