Banner

» » Aplikasi dekripsi dan enkripsi menggunakan visual studio 2010

Aplikasi dekripsi dan enkripsi menggunakan visual studio 2010

Ya langsung aja cuy comot dan pelajari sendiri, kalau ada salah koment aja dibawah siapa tau tahun depan bisa saya balas :v .

Yang pertama cuy lu harus punya aplikasi Microsoft  Visual Studio, sory blum ada gue sediain link download soalnya gedek size nya gx ada kuota :D jadi searching aja dulu di mbah google ya hihih...

Buat tampilanya seperti ini ya..
dan pengaturan propertisnya seperti dibawah ini




Setelah itu klik dua kali form nya lalu masukan koding dibawah ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cboKategori.Text = "--Pilih--"
        cboKategori.Items.Add("Enkripsi")
        cboKategori.Items.Add("Dekripsi")
        cboKunci.Text = "--Pilih--"
        cboKunci.Items.Add("A")
        cboKunci.Items.Add("B")
        cboKunci.Items.Add("C")
        cboKunci.Items.Add("D")
        cboKunci.Items.Add("E")
        cboKunci.Items.Add("F")
        cboKunci.Items.Add("G")
        cboKunci.Items.Add("H")
        cboKunci.Items.Add("I")
        cboKunci.Items.Add("J")
        cboKunci.Items.Add("K")
        cboKunci.Items.Add("L")
        cboKunci.Items.Add("M")
        cboKunci.Items.Add("N")
        cboKunci.Items.Add("O")
        cboKunci.Items.Add("P")
        cboKunci.Items.Add("Q")
        cboKunci.Items.Add("R")
        cboKunci.Items.Add("S")
        cboKunci.Items.Add("T")
        cboKunci.Items.Add("U")
        cboKunci.Items.Add("V")
        cboKunci.Items.Add("W")
        cboKunci.Items.Add("X")
        cboKunci.Items.Add("Y")
        cboKunci.Items.Add("Z")
        cboKategori.Enabled = True
        cboKunci.Enabled = False
        txtPlaintext.Enabled = False
        txtCiphertext.Enabled = False
        btEnkrip.Enabled = False
        btDekrip.Enabled = False
        btHapus.Enabled = False
    End Sub

    Private Sub cboKategori_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboKategori.SelectedIndexChanged
        If (cboKategori.SelectedItem = "Enkripsi") Then
            cboKunci.Enabled = True
            cboKunci.Focus()
            txtPlaintext.Enabled = False
            txtCiphertext.Enabled = False
            btEnkrip.Enabled = False
            btDekrip.Enabled = False
            btHapus.Enabled = False
        ElseIf (cboKategori.SelectedItem = "Deskripsi") Then
            cboKunci.Enabled = True
            cboKunci.Focus()
            txtPlaintext.Enabled = False
            txtCiphertext.Enabled = False
            btEnkrip.Enabled = False
            btDekrip.Enabled = False
            btHapus.Enabled = False
        End If
    End Sub

    Private Sub cboKunci_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboKunci.SelectedIndexChanged
        If (cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "A" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "B" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "C" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "D" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "E" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "F" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "G" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "H" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "I" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "J" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "K" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "L" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "M" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "N" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "O" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "P" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "Q" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "R" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "S" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "T" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "U" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "V" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "W" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "X" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "Y" Or
cboKategori.SelectedItem = "Enkripsi" And cboKunci.SelectedItem = "Z") Then
            txtPlaintext.Enabled = True
            txtPlaintext.Focus()
            txtCiphertext.Enabled = True
            btEnkrip.Enabled = True
            btDekrip.Enabled = False
            btHapus.Enabled = False
        Else
            txtPlaintext.Enabled = True
            txtCiphertext.Enabled = True
            txtCiphertext.Focus()
            btEnkrip.Enabled = False
            btDekrip.Enabled = True
            btHapus.Enabled = False
        End If
    End Sub

    Private Sub btEnkrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnkrip.Click
        Dim alphabet As Integer = Val(cboKunci.SelectedItem)
        Dim Enkripsi, Input, Output As String
        Dim Panjang_Input As Integer
        Input = txtPlaintext.Text
        Output = ""
        Panjang_Input = Len(txtPlaintext.Text)
        If (cboKunci.SelectedItem = "A") Then
            alphabet = 1
        ElseIf (cboKunci.SelectedItem = "B") Then
            alphabet = 2
        ElseIf (cboKunci.SelectedItem = "C") Then
            alphabet = 3
        ElseIf (cboKunci.SelectedItem = "D") Then
            alphabet = 4
        ElseIf (cboKunci.SelectedItem = "E") Then
            alphabet = 5
        ElseIf (cboKunci.SelectedItem = "F") Then
            alphabet = 6
        ElseIf (cboKunci.SelectedItem = "G") Then
            alphabet = 7
        ElseIf (cboKunci.SelectedItem = "H") Then
            alphabet = 8
        ElseIf (cboKunci.SelectedItem = "I") Then
            alphabet = 9
        ElseIf (cboKunci.SelectedItem = "J") Then
            alphabet = 10
        ElseIf (cboKunci.SelectedItem = "K") Then
            alphabet = 11
        ElseIf (cboKunci.SelectedItem = "L") Then
            alphabet = 21
        ElseIf (cboKunci.SelectedItem = "M") Then
            alphabet = 13
        ElseIf (cboKunci.SelectedItem = "N") Then
            alphabet = 14
        ElseIf (cboKunci.SelectedItem = "O") Then
            alphabet = 15
        ElseIf (cboKunci.SelectedItem = "P") Then
            alphabet = 16
        ElseIf (cboKunci.SelectedItem = "Q") Then
            alphabet = 17
        ElseIf (cboKunci.SelectedItem = "R") Then
            alphabet = 18
        ElseIf (cboKunci.SelectedItem = "S") Then
            alphabet = 19
        ElseIf (cboKunci.SelectedItem = "T") Then
            alphabet = 20
        ElseIf (cboKunci.SelectedItem = "U") Then
            alphabet = 21
        ElseIf (cboKunci.SelectedItem = "V") Then
            alphabet = 22
        ElseIf (cboKunci.SelectedItem = "W") Then
            alphabet = 23
        ElseIf (cboKunci.SelectedItem = "X") Then
            alphabet = 24
        ElseIf (cboKunci.SelectedItem = "Y") Then
            alphabet = 25
        Else
            alphabet = 26
        End If
        For i = 1 To Panjang_Input
            Enkripsi = Mid(Input, i, 1)
            Enkripsi = Asc(Enkripsi)
            Enkripsi = (Enkripsi + alphabet)
            Enkripsi = Chr(Enkripsi)
            Output = Output & Enkripsi
        Next i
        txtCiphertext.Text = Output
    End Sub

    Private Sub btDekrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDekrip.Click
        Dim alphabet As Integer = Val(cboKunci.SelectedItem)
        Dim Dekripsi, Input, Output As String
        Dim Panjang_Input As Integer
        Input = txtCiphertext.Text
        Output = ""
        Panjang_Input = Len(txtCiphertext.Text)
        If (cboKunci.SelectedItem = "A") Then
            alphabet = 1
        ElseIf (cboKunci.SelectedItem = "B") Then
            alphabet = 2
        ElseIf (cboKunci.SelectedItem = "C") Then
            alphabet = 3
        ElseIf (cboKunci.SelectedItem = "D") Then
            alphabet = 4
        ElseIf (cboKunci.SelectedItem = "E") Then
            alphabet = 5
        ElseIf (cboKunci.SelectedItem = "F") Then
            alphabet = 6
        ElseIf (cboKunci.SelectedItem = "G") Then
            alphabet = 7
        ElseIf (cboKunci.SelectedItem = "H") Then
            alphabet = 8
        ElseIf (cboKunci.SelectedItem = "I") Then
            alphabet = 9
        ElseIf (cboKunci.SelectedItem = "J") Then
            alphabet = 10
        ElseIf (cboKunci.SelectedItem = "K") Then
            alphabet = 11
        ElseIf (cboKunci.SelectedItem = "L") Then
            alphabet = 21
        ElseIf (cboKunci.SelectedItem = "M") Then
            alphabet = 13
        ElseIf (cboKunci.SelectedItem = "N") Then
            alphabet = 14
        ElseIf (cboKunci.SelectedItem = "O") Then
            alphabet = 15
        ElseIf (cboKunci.SelectedItem = "P") Then
            alphabet = 16
        ElseIf (cboKunci.SelectedItem = "Q") Then
            alphabet = 17
        ElseIf (cboKunci.SelectedItem = "R") Then
            alphabet = 18
        ElseIf (cboKunci.SelectedItem = "S") Then
            alphabet = 19
        ElseIf (cboKunci.SelectedItem = "T") Then
            alphabet = 20
        ElseIf (cboKunci.SelectedItem = "U") Then
            alphabet = 21
        ElseIf (cboKunci.SelectedItem = "V") Then
            alphabet = 22
        ElseIf (cboKunci.SelectedItem = "W") Then
            alphabet = 23
        ElseIf (cboKunci.SelectedItem = "X") Then
            alphabet = 24
        ElseIf (cboKunci.SelectedItem = "Y") Then
            alphabet = 25
        Else
            alphabet = 26
        End If
        For i = 1 To Panjang_Input
            Dekripsi = Mid(Input, i, 1)
            Dekripsi = Asc(Dekripsi)
            Dekripsi = (Dekripsi - alphabet)
            Dekripsi = Chr(Dekripsi)
            Output = Output & Dekripsi
        Next i
        txtPlaintext.Text = Output
    End Sub

    Private Sub btHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHapus.Click
        txtPlaintext.Text = ""
        txtCiphertext.Text = ""
        If (cboKategori.Text = "Enkripsi") Then
            txtPlaintext.Focus()
        Else
            txtCiphertext.Focus()
        End If
    End Sub

    Private Sub txtPlaintext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPlaintext.TextChanged
        If (txtPlaintext.Text = "") Then
            btHapus.Enabled = False
        Else
            btHapus.Enabled = True
        End If
    End Sub

    Private Sub txtCiphertext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCiphertext.TextChanged
        If (txtCiphertext.Text = "") Then
            btHapus.Enabled = False
        Else
            btHapus.Enabled = True
        End If
    End Sub

    Private Sub lblJam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        Label11.Text = TimeOfDay
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label11.Text = TimeOfDay
    End Sub
End Class



Kalok MALAS Download aja file dibawah ini....


Subscribe to receive free email updates:

2 Responses to "Aplikasi dekripsi dan enkripsi menggunakan visual studio 2010"

  1. Muhamad afifudin YusupMarch 3, 2018 at 2:49 PM

    Pake looping ajh gan...

    ReplyDelete
    Replies
    1. AnonymousMarch 5, 2018 at 10:29 PM

      seperti penggunaan ini gan?
      1. For-Next
      For variabel = nilai_awal To nilai_akhir

      ekspresi

      Next
      2. Do While-Loop
      Do While (Kondisi)

      ekspresi

      Loop
      3. Do Loop Until
      Do

      ekspresi

      Loop Until (Kondisi)

      Delete

Subscribe to: Post Comments (Atom)