TUGAS KRIPTOGRAFI

PERTAMA-TAMA BUAT DULU FORM MENU NYA:

TAMPILANNYA:

Public Class Form1

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

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub GronsfieldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfieldChiperToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

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

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

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

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

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

        Form6.MdiParent = Me

        Form6.Show()

    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click

        Form7.MdiParent = Me

        Form7.Show()

    End Sub

End Class

Public Class Form2

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.Click

        Dim jumlah As Double = Len(plaintext.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim bil As Integer

        For i = 1 To jumlah

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

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chipertext.Text = xkalimat

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

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

        Dim J As Integer

        Dim Jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As String

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

        Next i

        chipertext.Text = sPlain

    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

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

        End

    End Sub

End Class

 

Public Class Form4

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

        plaintext.Text = ""

        chipertext.Text = ""

        kunci.Text = ""

    End Sub

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

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

        End

    End Sub

End Class

 

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 Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.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)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        chipertext.Text = sPlain

    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

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

        End

    End Sub

End Class

Public Class Form6

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

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Public Class Form7

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Function Rc4(ByVal message As String, ByVal password As String) As String

        Dim s = Enumerable.Range(0, 256).ToArray

        Dim i, j As Integer

        For i = 0 To s.Length - 1

            j = (j + Asc(password(i Mod password.Length)) + s(i)) And 255

            Dim temp = s(i)

            s(i) = s(j)

            s(j) = temp

        Next

        i = 0

        j = 0

        Dim sb As New System.Text.StringBuilder(message.Length)

        For Each c As Char In message

            i = (i + 1) And 255

            j = (j + s(i)) And 255

            Dim temp = s(i)

            s(i) = s(j)

            s(j) = temp

            sb.Append(Chr(s((s(i) + s(j)) And 255) Xor Asc(c)))

        Next

        Return sb.ToString

    End Function

    Private Sub Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.Click

        chipertext.Text = Rc4(plaintext.Text, kunci.Text)

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class