Pertama, kalian buka VB yang ada di komputer, trus buat sebuah form. Dalam Form tersebut akan terdapat 2 buah Label, 2 buah TextBox, 2 buah Command Button dan sebuah combo box. Pada contoh program saya, tampilannya akan seperti berikut :
Kira - kira, seperti itulah gambarannya, tapi terserah kalian kalo ada yg mo di rubah2. Untuk Kodingnya :
Private Sub clear_Click()
plain.Text = Empty
chiper.Text = Empty
Combo1.Text = “Kunci Pertama !”
End Sub
Private Sub Encrypt_Click()
a = Len(plain.Text)
b = Len(chiper.Text)
If Combo1.Text = “Kunci Pertama !” Then
MsgBox “Harap Tentukan Kunci pertama dan kedua !”, vbInformation, “Error”
Else
chiper.Text = Empty
For i = 1 To a
c = Asc(Mid(plain.Text, i, 1))
d = Val(Combo1.Text) + c
e = Chr(d)
chiper.Text = chiper.Text + e
Next i
End If
End Sub
Private Sub Form_Load()
For i = 1 To 50
Combo1.AddItem (i)
Next i
End Sub
ok, gw jelasin perintah - perintah yang mungkin gak umum di pake. pertama LEN( ), digunakan untuk menghitung panjang string yang ada. kemudian ASC( ), digunakan untuk mendapatkan nilai ASCI dari karakter yang ada. Lalu CHR ( ),digunakan untuk mengmbalikan karakter dari nilai ASCI yang ada. mungkin itu aja kayaknya…selain itu seh mungkin kalian juga udah pada ngerti…hhe..
Untuk men-decrypt-nya,buat sebuah form baru yang sama persis. kemudian kalian tinggal mengganti operator rumus pada bagian variabel d dari tanda plus ( + ) menjadi minus ( - ). Sehingga dia akan mengembalikan teks dari yang tersandi menjadi teks utuh.