PEMOGRAMAN KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )

PEMOGRAMAN KRIPTOGRAFI

( Caesar ,Vernam, Gronsfled,Vigenere )

Public Class Form1

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

Form2.MdiParent = Me

Form2.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 KriptografiVigenereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVigenereToolStripMenuItem.Click

Form5.MdiParent = Me

Form5.Show()

End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Close()

End Sub

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

Me.Close()

End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Kemudian, bagian-bagian dari pada menu tersebut :

1. Kriptografi Caesar

Listing Program :

Public Class Form2

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, 1)

x = Chr(Asc(x) + 3)

xkalimat = xkalimat + x

Chiper.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(Chiper.Text)

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

x = Chr(Asc(x) + 3)

xkalimat = xkalimat + x

Plain.Text = xkalimat

End Sub

Tampilannya :

2. Kriptografi Vernam

Listing Program :

Public Class Form3

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

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

nEnc = ((nkata + nKunci) Mod 26)

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

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 >= 61) 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 Chiperteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chiperteks.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 >= 61) And (tombol <= 90)) Or (tombol = 80)) Then

e.Handled = True

End If

End Sub

Tampilannya :

3. Kriptografi Gronsfeld

Listing Program :

Public Class Form4
    Private Sub Gronsfeld_Chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Input.Text = ""
        hasil.Text = ""
    End Sub

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        Dim ind As Integer
        Dim huruf, kalimat As String
        Dim jumlah(25) As Integer
        kalimat = (Input.Text).ToUpper
        For x = 1 To Microsoft.VisualBasic.Len(kalimat)
            huruf = kalimat.Substring(x - 1, 1)
            If (huruf >= "A") And (huruf <= "Z") Then
                ind = Asc(huruf) - 65
                jumlah(ind) += 1
            End If
        Next
        hasil.Text = ""
        For i As Integer = 0 To 25
            huruf = Chr(i + 65)
            If jumlah(i) > 0 Then
                hasil.Text = hasil.Text & huruf & " = " & jumlah(i) & vbCrLf
            End If
        Next
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Tampilannya :

4. Kriptografi ViGenere

Listing Program :

Public Class Form5

Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

ChiperTeks.Text = Enkripsi(PlainTeks.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

End Class

Tampilannya :

PEMOGRAMAN KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )

4/ 5

Oleh Vald Blog

Vald Blog 4:58 PM Komentar

Monday, January 20, 2014