LATIHAN KRIPTOGRAFI

LATIHAN KRIPTOGRAFI

OKE KALI INI SAYA AKAN MENCOBA MEMBERI ILMU PENGETAHUAN UNTUK ANDA YANG INGIN BELAJAR PEMROGRAMAN KRIPTOGRAFI DENGAN VB 2008/2010 JADI JANGAN BINGUNG YA GENK KALAU GUE BILANG VB 2010 KARNA ITU SAMA AJE... 

Berikut ini adalah design dan cara-cara penyelesaiannya 

1.  Tampilan Dari Menu Utama 

Desaignnya :

Dan Berikut ini adalah cara memanggil form-form yang akan ditampilkan dari menu Utama

Public Class Form1

    Private Sub PEMOGRAMANKRIPTOGRAFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMOGRAMANKRIPTOGRAFIToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub PEMOGRAMANKRIPTOGRAFIToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMOGRAMANKRIPTOGRAFIToolStripMenuItem1.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub KRIPTOGRAFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFIToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub KRIPTOGRAFIVEGENERIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFIVEGENERIToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

End Class

Hasilnya :

2.  Tampilan Dari Pemograman Kriptografi Caesar Chiper

     Designnya :

Cara Penyelesaian nya :

Public Class Form2

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

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plaintext.Text)

            x = Mid(plaintext.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        chipertext.Text = xkalimat

    End Sub

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

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plaintext.Text)

            x = Mid(plaintext.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        plaintext.Text = xkalimat

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Dim mia As Integer

        mia = MsgBox("anda mau keluar ?", MsgBoxStyle.YesNo)

        If mia = MsgBoxResult.Yes Then

            Me.Close()

        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub kkkriptogrfi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kkkriptogrfi.Click

        Me.Hide()

        kkkriptogrfi.Show()

    End Sub

End Class

Berikut ini hasil nya menggunakan Enkripsi :

3.  Cara penyelesaian Pemograman Kriptografi Vernam Chiper

    Designya :

Cara penyelesaiannya :

Public Class Form3

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

        Plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = "'"

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.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 = Plaintext.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

        chipertext.Text = splain

    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

    Private Sub Plaintext_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plaintext.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

Hasilnya Menggunakan Enkripsi :

4.  Cara Penyelesaian Pemograman Kriptografi Gronsfeld

  Designya :

Dan Berikut Ini cara penyelesaian nya :

Public Class Form4

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.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

        jum = Len(Text)

        splain = ""

        skey = kunci.Text

        skata = 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))

            nEnc = (nkata + nkunci) Mod 26

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

        Next i

        chipertext.Text = splain

    End Sub

End Class

Hasil Dari penyelesaian diatas :

5 . Cara penyelesaian Kriptografi Vigenere

 Designya :

Berikut Ini Adalah penyelesaiannya 

Public Class Form5

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.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

        jum = Len(Text)

        splain = ""

        skey = kunci.Text

        skata = 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))

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

            nEnc = ((nkata + nkunci) Mod 256)

            splain = splain & Chr((nEnc))

        Next i

        chipertext.Text = splain

    End Sub

End Class

Hasil dari cara penyelesaian diatas :

Demikianlah Bagian-bagian Kriptografi Dan cara-cara penyelesaiannya .