Cara Membuat Aplikasi Enkripsi dan Deskripsi Text Sederhana | Sistem Keamanan Komputer | UBP Karawang

Aplikasi Enkripsi Visual Basic
Teknik Informatika UBP Karawang

Enkripsi, merupakan 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.

Desain Form Seperti Dibawah Ini :

Lalu Coding Seperti Di Bawah Ini :

Public Class EnkripsiDeskripsi

    Private Sub enkripsi_Click(sender As Object, e As EventArgs) Handles enkripsi.Click

        Dim Enkrip, Output, Inputan As String

        Dim Panjang_Input As Integer

        Inputan = txt1.Text

        Panjang_Input = Len(txt1.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

        txthasil1.Text = Output ' tampilkan enkrip

    End Sub

    Private Sub deskripsi_Click(sender As Object, e As EventArgs) Handles deskripsi.Click

        Dim Dekrip, Output, Inputan As String

        Dim Panjang_Input, Pesan As Integer

        Inputan = txt2.Text

        Panjang_Input = Len(txt2.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

        txthasil2.Text = Output

    End Sub

End Class

Terimakasih Sudah Berkunjung ^_^