TUGAS KRIPTOGRAFI

Download TUGAS KRIPTOGRAFI graphic type that can be scaled to use with the Silhouette Cameo or Cricut. An SVG's size can be increased or decreased without a loss of quality. All of our downloads include an image, Silhouette file, and SVG file. It should be everything you need for your next project. Our SVG files can be used on adhesive vinyl, heat transfer and t-shirt vinyl, or any other cutting surface

PERTAMA-TAMA BUAT DULU FORM MENU NYA:

TAMPILANNYA:

Public Class Form1

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesCaesarChiperToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub GronsfieldChiperToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesGronsfieldChiperToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesVernamChiperToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesVigenereChiperToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDesChiperToolStripMenuItem.Click

        Form6.MdiParent = Me

        Form6.Show()

    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesRC4ToolStripMenuItem.Click

        Form7.MdiParent = Me

        Form7.Show()

    End Sub

End Class

Public Class Form2

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

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

        Dimjumlah As Double= Len(plaintext.Text)

        Dim x As String

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

        End

    End Sub

End Class

Public Class Form3

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

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

        Dim J As Integer

        Dim Jum As Integer

        DimsKey As String

        DimnKata As Integer

        DimnKunci As String

        DimsKata As String

        DimsPlain As String= ""

        DimnEnc As Integer

        J = 0

        sKata = plaintext.Text

        Jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To Jum

            IfJ = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            EndIf

            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(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handlesplaintext.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dimtombol 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(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handleskunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

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

        End

    End Sub

End Class

 

Public Class Form4

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

        plaintext.Text = ""

        chipertext.Text = ""

        kunci.Text = ""

    End Sub

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

        Dim J As Integer

        Dim Jum As Integer

        DimsKey As String

        DimnKata As Integer

        DimnKunci As Integer

        DimsKata As String

        DimsPlain As String= ""

        DimnEnc As Integer

        J = 0

        sKata = plaintext.Text

        Jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To Jum

            IfJ = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            EndIf

            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(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handlesplaintext.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dimtombol 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(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handleskunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

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

        End

    End Sub

End Class

 

Public Class Form5

   

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

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

        Dim J As Integer

        Dim Jum As Integer

        DimsKey As String

        DimnKata As Integer

        DimnKunci As Integer

        DimsKata As String

        DimsPlain As String= ""

        DimnEnc As Integer

        J = 0

        sKata = plaintext.Text

        Jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To Jum

            IfJ = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            EndIf

            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(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handlesplaintext.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dimtombol 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(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handleskunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

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

        End

    End Sub

End Class

Public Class Form6

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

    End Sub

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

        End

    End Sub

End Class

Public Class Form7

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Function Rc4(ByValmessage As String, ByVal password AsString) 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

            Dimtemp = s(i)

            s(i) = s(j)

            s(j) = temp

        Next

        i = 0

        j = 0

        Dim sb As NewSystem.Text.StringBuilder(message.Length)

        For Each c As Char In message

            i = (i + 1) And 255

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

            Dimtemp = s(i)

            s(i) = s(j)

            s(j) = temp

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

        Next

        Returnsb.ToString

    End Function

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

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

    End Sub

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

        End

    End Sub

End Class

Download TUGAS KRIPTOGRAFI All SVG file downloads also come bundled with DXF, PNG, and EPS file formats. All designs come with a small business commercial license. These SVG cut files are great for use with Silhouette Cameo or Cricut and other Machine Tools.

DOWNLOAD SVG