Download Source Code Aplikasi

Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic


 

Enkripsimerupakan proses untuk mengubah plainteks menjadi chiperteks.Planteks sendiri yaitu data atau pesan orisinil yang ingin dikirim, sedangkan Chiperteks adalah data hasil enkripsi.Definisi lain ihwal Enkripsi yaitu proses mengacak data sehingga tidak sanggup dibaca oleh pihak lain.

Berikut cara menciptakan Aplikasi Enkripsi dan Deskripsi data sederhana memakai visual basic :
  1. Desain Form menyerupai 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 huruf input
Enkrip = Asc(Enkrip) ‘ubah huruf 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…. 

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.

(Telah didownload 3 kali, 1x didownload hari ini)
Download Source Code Aplikasi
Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic | admin | 4.5


error: Content is protected !!