Aplikasi Enskripsi Deskripsi dengan Input Key

Project aplikasi ini merupakan pengembangan dari project sebelumnya. Dengan adanya key masukan,
namun key (kunci) nya masih berupa angka yg ditentukan dan terbatas..

Enkripsi, merupakan proses untuk mengubah plainteks menjadi chiperteks.Planteks sendiri adalah data atau pesan asli yang ingin dikirim, sedangkan Chiperteks adalah data hasil enkripsi.Definisi lain tentang Enkripsi adalah proses mengacak data sehingga tidak dapat dibaca oleh pihak lain.

Berikut cara pembuatan aplikasinya...

• Desain program seperti gambar dibawah... 

• Masukkan angka sesuai keinginan anda di list Combo1 (mis : 1 - 20)
• Isi coding dibawah ini...

Private Sub Command1_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) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = Enkrip + Val(Combo1.Text)  'key + 20 - 30 (bisa gunakan yg lain)

Enkrip = Chr(Enkrip) ' ubah kembali ke karakter

Output = Output & Enkrip

Next i

Text2.Text = Output ' tampilkan enkrip

End Sub

Private Sub Command2_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 - Val(Combo1.Text) 'invert key enkripsi

Dekrip = Chr(Dekrip)

Output = Output & Dekrip

Next i

Text4.Text = Output

End Sub

• Selesai..... :D

Semoga cara pembuatan aplikasi sederhana ini bermanfaat dan dapat dikembangkan,, dan terimakasih telah berkunjung.... :)