Cara Membuat Program Kriptografi

 Cara Membuat Program Kriptografi

Oke kali ini saya akan memberi tahu bagaimana cara membuat kriptografi dengan visual basic 2008

Oke langsung aja yaaa…

Yang pertama anda perlu menyiapkan 5 from

Dan anda bisa contoh from punya saya…..di bawah ini…..

 

 

Oke…  pada from yang pertama anda perlu mengubah isMdContainernya menjadi true pada propertisnya dan memngubah windows Satatenya menjadi Maximaize

Setelah itu anda bisa copy paste codingnya di bawah ini …

Yang ini untuk coding from yang pertama

PublicClass Form1

PrivateSub PEMOGRAMANKRIPTOGRAFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMOGRAMANKRIPTOGRAFIToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

EndSub

PrivateSub PEMOGRAMANKRIPTOGRAFIToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMOGRAMANKRIPTOGRAFIToolStripMenuItem1.Click

        Form3.MdiParent = Me

        Form3.Show()

EndSub

PrivateSub KRIPTOGRAFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFIToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

EndSub

PrivateSub KRIPTOGRAFIVEGENERIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFIVEGENERIToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

EndSub

PrivateSub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

EndSub

EndClass

Setalah itu coding from2

PublicClass Form2

PrivateSub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

Dim x AsString = ""

Dim xkalimat AsString = ""

For i = 1 To Len(plaintext.Text)

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

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

Next

        chipertext.Text = xkalimat

EndSub

PrivateSub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.Click

Dim x AsString = ""

Dim xkalimat AsString = ""

For i = 1 To Len(plaintext.Text)

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

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

Next

        plaintext.Text = xkalimat

EndSub

PrivateSub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Dim lia AsInteger

        lia = MsgBox("anda mau keluar ?", MsgBoxStyle.YesNo)

If lia = MsgBoxResult.Yes Then

Me.Close()

EndIf

EndSub

PrivateSub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        plaintext.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub kkkriptogrfi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kkkriptogrfi.Click

Me.Hide()

        kkkriptogrfi.Show()

EndSub

EndClass

Setalah itu coding from3

PublicClass Form3

PrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        Plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = "'"

EndSub

PrivateSub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

Dim j AsInteger

Dim jum AsInteger

Dim skey AsString

Dim nkata AsInteger

Dim nkunci AsInteger

Dim skata AsString

Dim splain AsString = ""

Dim nEnc AsInteger

        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

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

EndSub

PrivateSub kunci_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

Dim tombol AsInteger = Asc(e.KeyChar)

IfNot (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

EndIf

EndSub

PrivateSub Plaintext_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plaintext.KeyPress

        e.KeyChar = UCase(e.KeyChar)

Dim tombol AsInteger = Asc(e.KeyChar)

IfNot (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

EndIf

EndSub

EndClass

Setalah itu coding from4

PublicClass Form4

PrivateSub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

Dim j AsInteger

Dim jum AsInteger

Dim skey AsString

Dim nkata AsInteger

Dim nkunci AsInteger

Dim skata AsString

Dim splain AsString

Dim nEnc AsInteger

        j = 0

        jum = Len(Text)

        splain = ""

        skey = kunci.Text

        skata = Text

For i = 1 To jum

If j = Len(skey) Then

                j = 1

Else

                j = j + 1

EndIf

            nkata = Asc(Mid(skata, i, 1)) - 65

            nkunci = Asc(Mid(skey, j, 1))

            nEnc = (nkata + nkunci) Mod 26

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

Next i

        chipertext.Text = splain

EndSub

EndClass

Setalah itu coding from5

PublicClass Form5

PrivateSub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

Dim j AsInteger

Dim jum AsInteger

Dim skey AsString

Dim nkata AsInteger

Dim nkunci AsInteger

Dim skata AsString

Dim splain AsString

Dim nEnc AsInteger

        j = 0

        jum = Len(Text)

        splain = ""

        skey = kunci.Text

        skata = Text

For i = 1 To jum

If j = Len(skey) Then

                j = 1

Else

                j = j + 1

EndIf

            nkata = Asc(Mid(skata, i, 1))

            nkunci = Asc(Mid(skey, j, 1))

            nEnc = ((nkata + nkunci) Mod 256)

            splain = splain & Chr((nEnc))

Next i

        chipertext.Text = splain

EndSub

EndClass

End lihat Hasilnya...............