PENGGUNAAN KRIPTOGRAFI PADA VB NET

1.      Caesar chiper

 

 

Listing programnya :

Public Class Form1

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

        ceaserchiper.MdiParent = Me

        ceaserchiper.Show()

    End Sub

    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

        gronsfeldchiper.MdiParent = Me

        gronsfeldchiper.Show()

    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

        vernamchiper.MdiParent = Me

        vernamchiper.Show()

    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

        vigenerechiper.MdiParent = Me

        vigenerechiper.Show()

    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click

        DesChiper.MdiParent = Me

        DesChiper.Show()

    End Sub

    Private Sub Rc4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rc4ToolStripMenuItem.Click

        RC4.MdiParent = Me

        RC4.Show()

    End Sub

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

        End

    End Sub

End Class

Public Class ceaserchiper

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil nya :

2.      Gronsfeld chiper

Public Class gronsfeldchiper

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

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil ny :

3.      Vernam chiper

Public Class vernamchiper

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

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil ny :

4.      Vigenere chiper

Public Class vigenerechiper

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

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil ny :

5.      Des Chiper

Public Class deschiper

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

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil nya :

6.      RC4

Public Class rc4

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

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

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

End Class

Hasil nya :