PEMOGRAMAN KRIPTOGRAFI

LISTING PROGRAM

1.FORM MENU

Public Class Menu   

    Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click         

End    

End Sub     

Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click        

Kriptografi_Caesar.Show()     

End Sub    

 Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click  

       Kriptografi_Vernam_Chiper.Show()     

End Sub    

Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click

         Kriptografi_Gronsfeld.Show()    

End Sub     

Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click       

        Kriptografi_Viginere.Show()    

 End Sub 

End Class

2.FORM KRIPTOGRAFI CAESAR

Public Class Kriptografi_Caesar

    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(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

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

    End Sub
End Class

3.FORM KRIPTOGRAFI VERNAM

Public Class Kriptografi_Vernam_Chiper  

  

 Private Sub Form3_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) Handles plainteks.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 plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged     

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 kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged    

  End Sub 

End Class 

4.FORM KRIPTOGRAFI GRONSFELD

Public Class Kriptografi_Gronsfeld

    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 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

    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
End Class

5.FORM KRIPTOGRAFI VIGINERE

Public Class Kriptografi_Viginere     

   Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click         

   Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text)     

End Sub     

Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String         

    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(Teks)         

    sPlain = ""         

    sKey = Kunci         

    skata = Teks         

 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         

Enkripsi = sPlain    

 End Function     

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

  End Sub 

End Class  

6.HASIL PRINT OUT