Categories: chipertextenkripsienkripsi deskripsivb6visual basic

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.

Ahmad Code