Home » , , , , » Aplikasi Enskripsi Deskripsi dengan Input Key

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..
Enkripsimerupakan 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.... :)



2 comments:

  1. minta aplikasinya dong gan , please deadline nih ...

    ReplyDelete
  2. gan bisa kirim email ga codingannya ke ajioob54@gmail.com

    ReplyDelete

Blogger templates

Followers

Lencana Facebook