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 yaitu data atau pesan orisinil yang ingin dikirim, sedangkan Chiperteks adalah data hasil enkripsi.Definisi lain perihal Enkripsi yaitu proses mengacak data sehingga tidak sanggup dibaca oleh pihak lain.
Berikut cara pembuatan aplikasinya…
- Desain aktivitas ibarat gambar dibawah…
- Masukkan angka sesuai impian 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 aksara input
Enkrip = Asc(Enkrip) ‘ubah aksara 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….. 😀
Semoga cara pembuatan aplikasi sederhana ini bermanfaat dan sanggup dikembangkan,, dan terimakasih telah berkunjung…. 🙂
Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
