Membuat Kriptografi Dari Visual Basic 2008

salam anak bangsa-, pada hari ini saya akan mempostingkan aplikasi membuat  “Kriptografi” dengan Visual Basic 2008. Sebelumnya saya akan menjelaskan sedikit apa itu Kriptografi. Kriptografi adalah penambahan beberapa huruf, angka dan simbol-simbol tertentu kedalam sebuah text, dengan tujuan orang lain tidak dapat membaca pesan yang anda kirimkan ke sahabat anda, dimana sahabat anda juga mengerti pesan tersebut.

Langsung saja, saya akan membuat 4 Kriptografi yaitu : Kriptografi Caesar, Kriptografi Vernam, Kriptografi Gronsfeld, dan Kroptografi Vigenore.

Pertama Buatlah 5 Form pada VB 2008.

(+)Pada Form 1 kita buat itu menjadi induknya, seperti berikut ini 

Untuk membuat “File” dan “About” tersebut gunakanlah  Menustrip yang terdapat pada toolbox.

Setelah itu masukkan code berikut ini ke form 1 :

Public Class Form1

    Private Sub GronsferToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles GronsferToolStripMenuItem.Click

        Form2.Show()

    End Sub

    Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles CaesarToolStripMenuItem.Click

        Form3.Show()

    End Sub

    Private Sub VigenoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles VigenoreToolStripMenuItem.Click

        Form4.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles ExitToolStripMenuItem.Click

        End

    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles AboutToolStripMenuItem.Click

    End Sub

    Private Sub VernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles VernamToolStripMenuItem.Click

        Form5.Show()

    End Sub

End Class  

(+)Pada Form 2, Buatlah 3 label, 3 textbox, dan 3 button yang masing-Masing sebagai Berikut :

Lalu Masukkan Code Berikut ini di Form2 :

Public Class Form2

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

        plaintext.Text = ""

        kunci.Text = ""

        chippertext.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles enkripsi.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)) - 26

            nkunci = Asc(Mid(skey, J, 1)) - 10

            nenc = ((nkata + nkunci) Mod 26)

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

        Next i

        chippertext.Text = splain

    End Sub

    Private Sub plaintext_KeyPress(ByVal sender As Object, ByVal e AsSystem.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 AsSystem.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 48) And (tombol <= 57)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        plaintext.Text = ""

        kunci.Text = ""

        chippertext.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

(+)Pada Form3, Buatlah desain 2 label, 2 textbox, dan 4 button yang masing-Masing sebagai Berikut :

Lalu Masukkan Code berikut ini di Form3 :

Public Class Form3

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

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plain.Text)

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

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        chiper.Text = xkalimat

    End Sub

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

        Dim x As String = ""

        Dim xenkripsi As String = ""

        For i = 1 To Len(chiper.Text)

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

            x = Chr(Asc(x) - 3)

            xenkripsi = xenkripsi + x

        Next

        chiper.Text = xenkripsi

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        plain.Text = ""

        chiper.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

(+)Pada Form4 buatlah desain sepeti bentuk form2, Hasilnya seperti berikut :

Lalu masukkan Code berikut ini di dalam form4 :

Public Class Form4

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

        plaintext.Text = ""

        kunci.Text = ""

        chippertext.Text = ""

    End Sub

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

        chippertext.Text = splain

    End Sub

    Private Sub plaintext_KeyPress(ByVal sender As Object, ByVal e AsSystem.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 AsSystem.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 32) And (tombol <= 47)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        plaintext.Text = ""

        kunci.Text = ""

        chippertext.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

Pada Form5, buat juga desain seperti 2 dan 4, dan hasilnya seperti ini :

Lalu masukkan lah code ini kedalamnya :

Public Class Form5

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

        plaintext.Text = ""

        kunci.Text = ""

        chippertext.Text = ""

    End Sub

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

        chippertext.Text = splain

    End Sub

    Private Sub plaintext_KeyPress(ByVal sender As Object, ByVal e AsSystem.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 AsSystem.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 Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        chippertext.Text = ""

        kunci.Text = ""

        plaintext.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

Nah, Akhirnya selesai juga. Sekarang Compile lah aplikasi itu dengan menekan F5

Maka Hasil dari yang kita buat tersebut sebagai berikut ini :

Foto Saksi Bisu Perjuangan Rakyat Aceh (GAM) Menuju Perdamaian

Nanggroe Aceh -

Pemberontakan di Aceh dikobarkan oleh Gerakan Aceh Merdeka (GAM) untuk
memperoleh kemerdekaan dari Indonesia antara tahun 1976 hingga tahun 2005. Sejarah
Aceh mencatat hujan peluru di Aceh mulai deras menerpa Aceh ketika presiden Megawati
mengesahkan Operasi Militer yang dilakukan TNI dan Polri pada tahun 2003 sampai 2004,
beserta kehancuran yang disebabkan oleh gempa bumi Samudra Hindia 2004 menyebabkan diadakannya
persetujuan perdamaian dan berakhirnya pemberontakan. Amnesty International merilis laporan Time To Face The Past pada April 2013 setelah pemerintah Indonesia dianggap gagal menjalankan kewajibannya
sesuai perjanjian damai 2005. Laporan tersebut memperingatkan bahwa kekerasan baru akan terjadi jika
masalah ini tidak diselesaikan. Inilah foto sejarah Aceh era
konflik antara GAM dan RI:

Ini adalah foto pasukan khusus
atau pasukan elit Gerakan Aceh
Merdeka yang sedang
melakukan latihan di hutan Aceh
lengkap dengan seragam dan
baret serta senjata tempur jenis
AK dan lainnya.

Ini adalah foto Panglima GAM
Abdullah Syafi`i sebelum
meninggal dalam penyerbuan
pasukan Raider di pedalaman
Aceh gampong Sukon Cubo,
Pidie Jaya pada tanggal 24 bulan

Pasukan Polri yang sedang
bersiap-siap melakukan
penyisiran ke wilayah Aceh yang
akan dijadikan tempat introgasi.

Dalam foto ini tampak
perempuan Aceh berada
dibawah todongan senjata
pasukan TNI dan menunggu
dengan cemas terhadap nasib
keluarganya.

Ini adalah foto pasukan TNI
yang sedang bersiaga di salah
satu ruas jalan di Aceh untuk
mengantisipasi serangan pasukan
GAM.

Ini adalah tragedi simpang
KKA yang menyebabkan
puluhan masyarakat Aceh
meninggal dibawah terjangan
peluru pasukan TNI yang
menembak secara membabi buta
kearah masyarakat Aceh Utara
yang melakukan demo.

Kuburan massal korban perang
konflik Aceh, dalam catatan
sejarah Aceh banyak ditemukan
kuburan massal di Aceh pasca
konflik dan ketika konflik
berlangsung.

Dalam foto sejarah Aceh era
konflik antara GAM dan RI ini
tampak seorang pria meninggal
secara mengenaskan dengan
tangan terikat dan kepala
digantung dibatang pohon
pinang.

Tidak hanya para lelaki saja yang
berjuang pasukan wanita pun
ikut mengisi sejarah Aceh dengan
nama pasukan Inong Balee.
Pasukan wanita ini berani
bertempur karena jiwa mereka
yang tidak rela anak dan suami
atau ibu ayah mereka dibantai
begitu ganas oleh pasukan TNI/
Polri yang melakukan
penindasan di Aceh.

Perang Aceh antara pasukan
GAM dan RI yang berada disalah
satu lokasi di Aceh. Tampak
dalam foto ini tidak hanya anak
muda saja yang menjadi bagian
dari perang ini tapi juga
teungku-teungku di Aceh yang
ikut berjuang.

Dalam foto ini tampak seorang
ibu dengan tangan terikat
sedang menatap mayat-mayat
yang tergeletak kaku didepannya
dan dikelilingi oleh pasukan TNI
yang bersenjata lengkap.

da pasukan laskar cut nyak dhien, rela berkorban demi terangkat martabat negri atjeh tercinta.

mareka yang mengadu nasib di aceh di masa darurat meliter , mareka juga turut berdoa semoga aceh cepat damai, akhirnya allah mengabulkan doa-doa kita.

Tampak dalam foto ini seorang
anggota pasukan Inong Balee
yang merupakan bagian dari
pasukan tempur wanita Gerakan
Aceh Merdeka (GAM) berada
dalam hutan Aceh.

Tsunami Aceh pada 2004 silam
yang menghempas Aceh ikut
mengubur cita-cita masyarakat
Aceh untuk merdeka. Setelah
musibah tsunami ini pihak GAM
dan RI berdamai di Helsinki
Finlandia dan menghasilkan
MoU sebagai nota kesepahaman
antara GAM dan RI.Setelah

musibah tsunami ini pihak GAM
dan RI berdamai di Helsinki
Finlandia dan menghasilkan
MoU sebagai nota kesepahaman
antara GAM dan RI.detik-detik penandatanganan MOU di HELSINKI, berakhirlah pertumpahan darah di tanah rencong. Sekarang Aceh di nahkodai oleh putranya sendiri, mari membangun Aceh dengan arif dan bijaksana.mesran.net