Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic

 

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 membuat Aplikasi Enkripsi dan Deskripsi data sederhana menggunakan visual basic :
  1. Desain Form seperti gambar berikut : 


    2. Masukkan Coding dibawah ini :


Private Sub Command1_Click() 'tombol enkripsi
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 + 20) - 43 '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() 'tombol deskripsi
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 - 20) + 43 'invert key enkripsi
Dekrip = Chr(Dekrip)
Output = Output & Dekrip
Next i

Text4.Text = Output
End Sub


        3. Selesai..... :)

Semoga bermanfaat, dan terimakasih telah berkunjung.... 

Admin Semoga Informasi Yang Diberikan Melalui Web Ini Dapat Bermanfaat Bagi Saudara/i

No comments for "Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic"