Kamis, 16 Januari 2014

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, ByValAs 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, ByValAs 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 ObjectByVal 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 ObjectByVal 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 ObjectByVal 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 ObjectByVal 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 ObjectByVal 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 ObjectByVal 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 :








Jumat, 03 Januari 2014

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
damai-mou




Asal Mula Nama Aceh dan Bahasa Aceh


Semua orang kenal Aceh. Provinsi yang terletak di ujung Pulau Sumatera ini sangat dikenal dengan adat istiadat dan kekayaan alamnya. Konon katanya provinsi ini pun dikenal sebagai provinsi yang masyarakatnya sangat taat beribadah. Benarkah itu? Silakan Anda teliti sendiri!
Sebenarnya banyak hal yang belum diketahui dari Aceh. Provinsi ini seolah menyimpan misteri yang tampaknya tak akan habis diungkap sampai dengan akhir zaman nanti. Banyak orang ingin menyingkap misteri tentang Aceh. Bukan hanya masyarakat Aceh itu sendiri, melainkan juga masyarakat luar Aceh. Mereka tampaknya sangat tertarik untuk mengetahui lebih banyak tentang Aceh. Bukti dari ketertarikan mereka tentang Aceh adalah adanya semacam usaha untuk mengungkap misteri-misteri tentang Aceh itu.
Salah satu misteri yang tampaknya belum terpecahkan sampai dengan sekarang adalah perihal asal mula nama Aceh. Konon katanya nama Aceh merupakan singkatan dari Arab, Cina, Endia (India), Hindia Belanda. Akan tetapi, singkatan-singkatan ini tampaknya tidak memiliki sumber yang jelas.
Sebenarnya berkaitan dengan nama Aceh ini banyak ahli yang telah melakukan penelitian. Salah satu ahli yang tertarik meneliti tentang Aceh adalah Denis Lombard.
Berkaitan dengan nama Aceh, Lombard menyebutkan bahwa nama Aceh baru disebut dengan pasti sekali dalam Suma Oriental yang dikarang di Malaka sekitar tahun 1950 oleh Tomé Pires yang berkebangsaan Portugis. Lombard selanjutnya mengatakan bahwa kata Aceh dieja Achei. Beberapa tahun kemudian, dalam buku yang ditulis oleh Barros yang berjudul Da Asia disebutkan bahwa pengejaan kata Aceh dengan Acheitelah mengalami perubahan yang berbentuk adanya penyengauan bunyi pada akhir kata, yaitu Achem. Penyengauan bunyi ini juga terdapat dalam naskah-naskah Eropa abad 16, 17, dan 18. Di dalam naskah-naskah Eropa pada abad-abad ini kata Acehdieja Achin dan Atchin.
Dalam sistem transkripsi ilmiah yang dikemukakan oleh L.C. Damais, kata Aceh ditulisAcih. Lombard mengungkapkan bahwa penulisan kata Aceh dengan Acih adalah penulisan yang sangat tepat jika ditinjau secara ilmiah. Dalam hal ini, Lombard memberikan alasan sebagai berikut.
Sesuai dengan sistem tranksripsi ilmiah yang dikemukakan oleh L.C. Damais, penulisan kata Acehlebih tepat ditulis Acih. Tulisan ini memang yang paling baik mengungkapkan ucapannya dewasa ini. Setiap fonem dicatat dengan satu huruf saja, dan huruf lebih baik daripada huruf untuk mencatat huruf hidup kedua yang ucapannya sangat mendekati /i/….
Selanjutnya, sekitar akhir abad ke-19, menjelang peperangan yang bakal menumpahkan darah di seluruh bagian utara Sumatra, nama tanah Aceh dipakai untuk menunjukkan seluruh daerah yag membentang dari ujung utara pulau itu sampai dengan suatu garis khayal yang menghubungkan Tamiang di pantai Timur dengan Barus di Pantai Barat. Menurut Snouck Hurgronje, penduduknya membandingkan bentuk wilayah mereka yang kira-kira menyerupai segi tiga itu dengan bentuk jeuèe(tampah tradisional).
Selain misteri tentang nama Aceh, provinsi ini juga juga masih menyimpan misteri perihal asal mula bahasa Aceh. Banyak peneliti yang telah melakukan penelitian. Hasil penelitian mereka menyebutkan bahwa bahasa Aceh ada kaitannya dengan bahasa-bahasa Campa yang sampai sekarang masih digunakan di Vietnam, Kamboja, dan Hainan di Cina. Adanya hubungan bahasa Aceh dengan bahasa-bahasa Campa yang ada di Vietnam, Kamboja, dan Hainan di Cina tampaknya cukup beralasan. Berdasarkan catatan sejarah, seorang pangeran dari Campa, Šah Pu Liaŋ (liŋ) diusir dari ibukotanya oleh bangsa Vietnam. Ia lalu mencari perlindungan di Aceh, lalu membentuk wangsa baru (Lombard, 2007:62). Tentu saja pembentukan wangsa baru ini sangat berpengaruh terhadap pemakaian bahasa Aceh sebagai alat komunikasi mereka.
Ada juga para ahli yang menyebutkan bahwa bahasa Aceh ada kaitannya dengan bahasa-bahasa daerah yang ada di Indonesia, seperti bahasa Arab, Melayu, Indonesia, Sanskrit, Persia, Tamil, Belanda, Portugis, Inggris dan dari bahasa Mon-Khmer di Asia Tenggara.
Penjelasan di atas membuktikan bahwa Aceh sebetulnya sejak dulu telah memiliki hubungan dengan bangsa-bangsa luar. Hal ini tentu saja tak dapat dipungkiri apalagi jika kita mengingat Aceh yang pada masa Sultan Iskandar Muda pernah mencapai puncak kejayaannya.mesran.net