kriptografi

KRIPTOGRAFI

Public Class Form2

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()

    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
        form3.MdiParent = Me
        form3.Show()
    End Sub

    Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click
        form4.MdiParent = Me
        form4.Show()


    End Sub

    Private Sub KriptografiVigenareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVigenareToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Close()

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

kriptografi caesar

Public Class Form1

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plain.Text)
            x = Mid(plain.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x


        Next
        chiper.Text = xkalimat
    End Sub

    Private Sub Btndiskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndiskripsi.Click
        Dim X As String = ""
        Dim XKALIMAT As String = ""

        For i = 1 To Len(chiper.Text)
            X = Mid(chiper.Text, i, i)
            X = Chr(Asc(X) - 3)
            XKALIMAT = XKALIMAT + X
        Next
        plain.Text = XKALIMAT
    End Sub
End Class

Kriptografi Vernam

Public Class form3

    Private Sub onetimepad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        plainteks.Text = ""

        kunci.Text = ""

        chiperteks.Text = ""

    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim skey As String

        Dim nkata As Integer

        Dim nkunci As Integer

        Dim skata As String

        Dim splain As String = ""

        Dim nenc As Integer

        j = 0

        skata = plainteks.Text

        jum = Len(skata)

        skey = kunci.Text

        For i = 1 To jum

            If j = Len(skey) Then

                j = 1

            Else

                j = j + 1

            End If

            nkata = Asc(Mid(skata, i, 1)) - 65

            nkunci = Asc(Mid(skey, j, 1)) - 65

            nenc = ((nkata + nkunci) Mod 26)

            splain = splain & Chr((nenc) + 65)

        Next i

        chiperteks.Text = splain

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

        End If

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class

KRIPTOGRAFI GRONSFELD

Public Class form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        plainteks.Text = ""

        kunci.Text = ""

        chiperteks.Text = ""

    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        j = 0

        sKata = plainteks.Text

        jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 48

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

        Next i

        chiperteks.Text = sPlain

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress

        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

    End Sub

End Class

KRIPTOGRAFI VIGENARE

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        chiperteks.Text = ""
        kunci.Text = ""
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        Dim J As Integer
        Dim Jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As Integer
        J = 0
        sKata = plainteks.Text
        Jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To Jum
            If J = Len(sKey) Then
                J = 1
            Else
                J = J + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) + 0
            nKunci = Asc(Mid(sKey, J, 1)) + 0
            nEnc = ((nKata + nKunci) Mod 256)
            sPlain = sPlain & Chr((nEnc))
        Next i
        chiperteks.Text = sPlain
    End Sub
End Class

Silahkan dicoba ya.....

thank you :)

Nilai mahasiswa

Public Class form1
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "11113400"
                nama.Text = "widi"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
                btnproses.BackColor = Color.Orange
                btnkeluar.BackColor = Color.Silver
                btnhapus.BackColor = Color.Gray

            Case "14111001"
                nama.Text = "sesar yks"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
                btnproses.BackColor = Color.SaddleBrown
                btnkeluar.BackColor = Color.Magenta
                btnhapus.BackColor = Color.Salmon


            Case "12133011"

                nama.Text = "purnama"
                jenjang.Text = "D1"
                jurusan.Text = "design Grafis"
                btnproses.BackColor = Color.SlateBlue
                btnkeluar.BackColor = Color.Gold
        End Select

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged
        If kd.Text = "123" Then
            nd.Text = "mesran M.Kom"
        ElseIf kd.Text = "456" Then
            nd.Text = "M.syahrizal M.Kom"
        Else
            nd.Text = "M.Syahrizal M.Kom"
        End If


    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nuts.Text + 0.45 * nuas.Text

        Dim a As Integer
        a = na.Text
        Select Case a
            Case Is >= 50
                ket.Text = "lulus"
            Case Is <= 50
                ket.Text = "gagal"
        End Select

        If na.Text >= 80 Then
            nh.Text = "A"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
        ElseIf na.Text <= 50 Then
            nh.Text = "E"
        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        NPM.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kd.Text = ""
        nd.Text = ""
        kmk.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        na.Text = ""
        nh.Text = ""
        ket.Text = ""


    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmk.SelectedIndexChanged
        Select Case kmk.Text
            Case "CM1"
                matakuliah.Text = "matriks"
            Case "CM0"
                matakuliah.Text = "visual basic"
            Case Else
                matakuliah.Text = "struktur data"
        End Select


    End Sub



    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("11113400")
        NPM.Items.Add("14111001")
        NPM.Items.Add("12133011")


        kd.Items.Add("M2")
        kd.Items.Add("M3")
        kd.Items.Add("M4")

        kmk.Items.Add("cm1")
        kmk.Items.Add("cm0")
        kmk.Items.Add("cm3")


        nk.Items.Add("40")
        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")


        nt.Items.Add("40")
        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")

        nuts.Items.Add("40")
        nuts.Items.Add("50")
        nuts.Items.Add("60")
        nuts.Items.Add("70")
        nuts.Items.Add("80")
        nuts.Items.Add("90")

        nuas.Items.Add("40")
        nuas.Items.Add("50")
        nuas.Items.Add("60")
        nuas.Items.Add("70")
        nuas.Items.Add("80")
        nuas.Items.Add("90")

    End Sub


End Class