Membuat Program Enkripsi Pada VB

Langkah Pertama

Buatlah sebuah proyek baru dengan VB6, dan pilih proyek jenis standardEXE.

Langkah Kedua

Pada form proyek, tambahkan beberapa komponen diantaranya :

3 buah textbox

3 buah label

dan 1 buah CommandButton

Sekarang edit properties dari masing2 komponen, dengan parameter seperti dibawah ini:

ubah properties text1, hapus caption dan pada setingan multiline berikan nilai true

ubah properties text2, hapus caption dan pada setingan multiline berikan nilai true

ubah properties text3, hapus caption dan pada setingan multiline berikan nilai true

ubah properties label1, ganti captionnya agar menjadi PlainText.

ubah properties label2, ganti captionnya agar menjadi Key.

ubah properties label3, ganti captionnya agar menjadi Ciphertext.

ubah properties dari command1, ganti caption dengan Enkripsi.

Sehingga akan menjadi seperti gambar dibawah ini.

Langkah Ketiga

Nah sekarang masuk dalam tahap memasukan source code proyek kita. OK lanjut...

Masukan script seperti dibawah ini pada form proyek kita.

Public Function XORFunc(strKodeIn As String, strDataIn As String) As String

Dim lon1 As Long
Dim intXOR1 As Integer
Dim intXOR2 As Integer
Dim strDataOut As String

For lonI = 1 To Len(strDataIn)
intXOR1 = Asc(Mid$(strDataIn, lonI, 1))
intXOR2 = Asc(Mid$(strKodeIn, _
((lonI Mod Len(strKode)) + 1), 1))

strDataOut = strDataOut + Chr(intXOR1 Xor intXOR2)
Next lonI

XORFunc = strDataOut

End Function

Kemudian tambah kode script seperti dibawah ini tepat diatas dari kode diatas.

Dim strPlain As String
Dim strPlainBaru As String
Dim strCipher As String
Dim strKode As String

Sekarang masukan script dibawah ini pada tombol enkripsi,,,

Private Sub Command1_Click()
strPlain = text1.Text
strKode = text2.Text
strCipher = XORFunc(strKode, strPlain)
text3.Text = strCipher
End Sub