Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic

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 ihwal Enkripsi yaitu proses mengacak data sehingga tidak sanggup dibaca oleh pihak lain.

Berikut cara membuat 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….