Program Enkripsi & Dekripsi Dengan VB 6

Hallo semuanya, ni gw punya contoh sederhana program enkripsi dan dekripsi kata yang gw bikin dengan software VB 6.0. Tampilan aplikasinya seperti di bawah ini :


Maksud dari program di atas adalah apabila kita masukan satu kata misalnya "komputer" di kotak input enkripsi dan kita tekan tombol enkrip, maka kata tersebut akan diubah menjadi kata yang tidak beraturan. Sedangkan untuk dekripsi merupakan kebalikan dari proses enkripsi, jadi hasil kata dari proses enkripsi kita copy-pastekan di kotak input dekripsi, setelah itu tekan tombol dekrip, maka akan keluar kata semula.

Ni ada codingannya :
Private Sub cmd_enkrip_Click()
Dim Enkrip, Output, Inputan As String
Dim Panjang_Input As Integer
Inputan = Text1.Text
Panjang_Input = Len(Text1.Text)
For i = 1 To Panjang_Input
Enkrip = Mid(Inputan, i, 1)
Enkrip = Asc(Enkrip)
Enkrip = (Enkrip + 5) - 13
Enkrip = Chr(Enkrip)
Output = Output & Enkrip
Next i
Text2.Text = Output
End Sub

Private Sub cmd_dekrip_Click()
Dim Dekrip, Output, Inputan As String
Dim Panjang_Input, Pesan As Integer
Inputan = Text3.Text
Panjang_Input = Len(Text3.Text)
For i = 1 To Panjang_Input
Dekrip = Mid(Inputan, i, 1)
Dekrip = Asc(Dekrip)
Dekrip = (Dekrip - 5) + 13
Dekrip = Chr(Dekrip)
Output = Output & Dekrip
Next i
Text4.Text = Output
End Sub

Private Sub cmd_hapus_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Download Coding Lengkapnya