Tugas KRIPTOGRAFI

1. Menu awal

Desain menu awal program.

 

Gambar(1) Menu

 

Berikut ini adalah listing programnya :

Public Class Form1

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub CaesarChToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChToolStripMenuItem.Click

        caesar_chiper.Show()

    End Sub

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

        vernam_chiper.Show()

    End Sub

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

        vigenere_chiper.Show()

    End Sub

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

        des_chiper.Show()

    End Sub

End Class

2. Kriptografi Caesar Chiper

Desain program

 

        Gambar(2)Caesar Cipher

Berikut ini adalah listing programnya :

Public Class caesar_chiper

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        Dim jumlah As Double = Len(plaintext.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End

    End Sub

    Private Sub btnkeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class

3.Kriptografi Vernam Cipher

Desain awal program :
 

                        Gambar(3)Vernam Cipher

Berikut ini adalah listing programnnya :

Public Class vernam_chiper

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class

A4.  Kriptografi Vigenere Cipher

  Desain awal :

                   Gambar(4)Vigenere Cipher

Berikut ini syntaxnya :

Public Class vigenere_chiper

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

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

    End Sub

    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String

        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

        jum = Len(Teks)

        sPlain = ""

        sKey = Kunci

        sKata = Teks

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Enkripsi = sPlain

    End Function

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

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

    End Sub

End Class

5. Kriptografi Autokey chiper 

 desain awal 

 

                                                         Gambar(5)Autokey Cipher

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Function btn_AutokeyEncipher(ByVal strPlaintext As String, ByRef strKey As String) As String

        Dim i As Long

        Dim j As Long

        Dim c1 As Integer

        Dim c2 As Integer

        Dim strPlaintext2 As String

        Dim strKey2 As String

        Dim strCiphertext As String

        Dim strCiphertext2 As String

        Dim diffKeyLen As Integer

        Dim pAlphabet As Integer

        Dim cAlphabet As Integer

        Dim nShift As Integer

        '1. Hilangkan semua karakter yang bukan alfabet dari strPlaintext

        ' dan simpan sebagai strPlaintext2

        strPlaintext2 = ""

        For i = 1 To strPlaintext.Length

            c1 = Asc(Mid(strPlaintext, i, 1))

            If (c1 >= 65 And c1 <= 90) Then

                strPlaintext2 = strPlaintext2 & Chr(c1)

            End If

        Next i

        '2. Hilangkan semua karakter yang bukan alfabet dari strKey

        ' dan simpan sebagai strKey2

        strKey2 = ""

        For i = 1 To strKey.Length

            c1 = Asc(Mid(strKey, i, 1))

            If (c1 >= 65 And c1 <= 90) Then

                strKey2 = strKey2 & Chr(c1)

            End If

        Next i

        '3. Susun kunci baru strKey2 berdasarkan kunci awal strKey kemudian

        ' ditambah plaintext

        'perbedaan antara panjang plaintext dan kunci

        diffKeyLen = strPlaintext2.Length - strKey2.Length

        For i = 1 To diffKeyLen

            'c1 = Asc(Mid(strPlaintext2, i, 1))

            strKey2 = strKey2 & Mid(strPlaintext2, i, 1)

        Next i

        '4. Geser masing-masing huruf pada plaintext

        ' dengan huruf yang terkait pada key

        strCiphertext = ""

        For i = 1 To strPlaintext2.Length

            c1 = Asc(Mid$(strPlaintext2, i, 1))

            nShift = Asc(Mid$(strKey2, i, 1)) - 65

            If ((c1 >= 65) And (c1 <= 90)) Then

                pAlphabet = c1 - 65 ' get the alphabet sequence

                cAlphabet = (pAlphabet + nShift) Mod 26 ' shifted alphabet

                c1 = cAlphabet + 65 ' get character in 65 ... 90

            End If

            strCiphertext = strCiphertext & Chr(c1)

        Next i

        '5. Susun strCiphertext sesuai dengan urutan strPlaintext

        strCiphertext2 = ""

        strKey = ""

        j = 1

        For i = 1 To strPlaintext.Length

            c1 = Asc(Mid$(strPlaintext, i, 1))

            If ((c1 >= 65) And (c1 <= 90)) Then

                strCiphertext2 = strCiphertext2 & Mid(strCiphertext, j, 1)

                strKey = strKey & Mid(strKey2, j, 1)

                j = j + 1

            Else

                strCiphertext2 = strCiphertext2 & Chr(c1)

                strKey = strKey & " "

            End If

        Next i

        Return strCiphertext2

    End Function

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Encipher.Click

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

    End Sub

End Class

6. kritografi Des chiper 

desain program :

                          Gambar (6) Des chiper 

berikut listing programnya :

Public Class Des_chiper

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

        plain.Text = ""

        chip.Text = ""

    End Sub

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

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(chip.Text)

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

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        plain.Text = xkalimat

    End Sub

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

        plain.Text = ""

        chip.Text = ""

    End Sub

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

        Me.Close()

    End Sub

End Class

 

Read More

Sabayon Linux

Sabayon Linux atau Sabayon (sebelumnya bernama RR4 Linux dan R64 Linux) adalah distribusi Linux berbasis Gentoo yang dibuat oleh Fabio Erculiani dan Tim Pengembang Sabayon. Sabayon memiliki filosofi "Out of the box" dengan menyertakan berbagai jenis aplikasi yang sudah dikonfigurasi dan siap pakai untuk para pengguna sehingga bisa siap untuk digunakan. Nama Sabayon diambil dari salah satu hidangan Italia, Zabaione.





Sabayon didesain dengan antarmuka yang mudah, sistem deteksi perangkat keras yang baik dan koleksi perangkat lunak mutakhir terpasang secara bawaan; dengan berbagai tambahan yang bisa dipasang melalui gudang perangkat lunak yang tersedia. Sabayon tersedia baik untuk arsitektur komputer x86 (32-bit) dan AMD64 (64-bit). Terdapat versi SpinBase yang datang tanpa antarmuka grafis X server, dengan sistem yang ringan dan cepat serta cocok untuk di-kustomisasi.
Sabayon menggunakan komponen inti seperti apa yang digunakan distribusi Gentoo Linux, termasuk OpenRC dan baselayout2. Semua konfigurasi khas Gentoo, seperti etc-update dan eselect bisa digunakan dengan baik pada distribusi ini. Sabayon menyertakan alat untuk melakukan konfigurasi secara otomatis terhadap berbagai komponen sistem seperti OpenGL. Sabayon juga menyertakan perangkat lunak penggerak (driver) untuk kartu grafis nVIDIA dan ATI.

Read More

SliTaz

SliTaz GNU/Linux adalah suatu proyek software community-based yang diawali pada 2006 oleh Christophe Lincoln, merupakan suatu Distribusi Linux dengan root filesystem sekitar 100 MB dan mempunyai ISO image berukuran kurang-lebih 30 MB.
Pada April 2008, salah satu distribusi Linux Desktop terkecil ini telah tersedia.
SliTaz dapat boot baik dari CD atau dari USB flash drive, dalam suatu desktop Openbox yang berjalan pada Xvesa, dan memakai BusyBox untuk semua fungsi utamanya.
Distro ini memiliki fungsi yg bagus sebagai desktop dan rescue software dan dapat dijalankan sepenuhnya dalam RAM (jika ukuran memori mencukupi) atau diinstalkan pada hard drive.




Setelah dikembangkan oleh komunitas selama 1 tahun, SliTaz 2.0 diluncurkan pada 16 April 2009.
SliTaz memiliki banyak kesamaan tujuan dengan Damn Small Linux, tetapi dengan ukuran lebih kecil dan berbasis kernel Linux yang lebih baru yaitu 2.6.25.
SliTaz GNU/Linux adalah distro mini dan live CD yang diciptakan untuk dapat berjalan baik di komputer dengan RAM 128 Mb.SliTaz menggunakan BusyBox, Linux kernel dan GNU Software terbaru. Ia bekerja dengan Syslinux dan menyediakan lebih dari 200 perintah Linux, Lighttpd Web Server, SQLite database, rescue tools, IRC client, SSH client dan server dari Dropbear, X window system, JWM (Joe's Window Manager), gFTP, Geany IDE, Mozilla Firefox, AlsaPlayer, Gparted, sound file editor, dan banyak lagi. Lebih dari 1400 paket lainnya. Image ISO SliTaz cukup hanya dengan menggunakan 30 Mb CD dan hanya memerlukan tempat 80 Mb di hardisk.

Read More

Selamat Datang Kali Linux! Selamat Tinggal Backtrack!

Kali Linux tampaknya saat ini sedang menjadi buah bibir di kalangan pecinta linux seluruh dunia. Bukannya kenapa-kenapa, karena distro ini dulunya adalah distro Backtrack yang terkenal itu. Para pengembang Backtrack memutuskan untuk mengganti nama distronya menjadi Kali Linux di versi terbarunya ini untuk memfokuskan Kali Linux sebagai distro berbasis industri untuk percobaan penetrasi (penetration testing). Jadi Kali Linux ini akan dijadikan sebagai standarisasi distro Linux yang digunakan untuk percobaan penetrasi



Saya pun tidak ketinggalan untuk mencoba distro yang sangat populer dikalangan para hacker ini. Setelah saya install di mesin saya (masih dualboot dengan Ubuntu 12.04 LTS), semuanya berjalan sempurna. Instalasi berlangsung cepat dan semua hardware laptop saya mampu terbaca dengan baik. Instalasi modem pun sangat mudah. Untuk modem venus fast2 milik saya, hanya perlu diotak-atik sedikit saja langsung jalan. Tak perlu wvdial, langsung lewat network-manager pun bisa! Perangkat ethernet dan wireless juga langsung terinstall dengan mantap. Dan yang tak kalah penting, semua fitur Backtrack, ada disini. 300 lebih tools-tools hacking dan pentest semuanya lengkap persis dengan milik Backtrack. Bahkan digadang-gadang bakalan lebih powerful dari pendahulunya, dikarenakan sekarang Kali Linux sudah benar-benar utuh berbasis Debian.

Dengan berbasis Debian Wheezy versi terbaru dari Debian, tentunya akan membuat Kali Linux menjadi distro yang sangat handal dan tangguh. Mengapa? Kali Linux akan mendapatkan singkronisasi repository hingga 4 kali dalam sehari sehingga membuat Kali Linux akan selalu up to date khususnya dalam perbaikan-perbaikan security dan update paket-paket terbaru yang disediakan Debian. Lihat disini untuk mengetahui hubungan Kali Linux dengan Debian.

Read More

5 OS Asli Buatan Indonesia

1. BlankOn

BlanOn adalah distribusi Linux yang dikembangkan oleh Yayasan Penggerak Linux Indonesia (YPLI) dan Tim Pengembang BlankOn. Distribusi ini dirancang sesuai dengan kebutuhan pengguna komputer umum di Indonesia.

Linux BlankOn dikembangkan secara terbuka dan bersama-sama untuk menghasilkan distro Linux khas Indonesia, khususnya untuk dunia pendidikan, perkantoran dan pemerintahan.

Linux BlankOn merupakan bagian dari gerakan Proyek BlankOn yang memiliki cakupan yang lebih luas lagi. Gerakan ini bertujuan untuk mengembangkan kompetensi sumber daya manusia Indonesia dalam konteks perangkat lunak bebas dan terbuka.

Rilis BlankOn versi terakhir saat ini adalah BlankOn 8.0 Rote.

Saat ini, BlankOn mungkin salah satu linux yang paling konsisten. Tahun depan (sekitar Agustus 2013). Saya sendiri sudah pernah mencoba OS ini, dan terbukti sangat ringan stabil. Untuk Blankon Linux 8.0 (Rote) saya tidak menggunakan lagi, karena ada masalah di booting yang sering error. Overall Blankon Linux ini sudah sangat bagus dan sudah sering masuk 100 besar Linux Dunia.

Read More

Review Distro Linux Islami Sabily

Buat anda seorang muslim yang ingin menggunakan Sistem Operasi bernuansa islami dapat menggunakan Distro Linux yang satu ini yaitu Sabily. Berikut ini tampilannya dengan warna hijau yang mendominasi.




Sabily sendiri merupakan turunan dari distro linux yang sudah ada sebelumnya yaitu Ubuntu. Pada awalnya dirilis dengan nama Ubuntu Moslem Edition (Ubuntu ME) yang dirilis pada bulan oktober 2007 dan mulai berubah nama menjadi Sabily pada bulan Mei 2009 sejak versi 9.04.

Read More

Linux Blankon Buatan Anak Negeri

Kata “Linux” saat ini semakin banyak didengar oleh pecinta Teknologi Informasi dan Komunikasi (TIK) di seluruh dunia termasuk di Indonesia. Saat ini, Linux telah menjadi sistem operasi alternatif yang banyak digunakan berbagai kalangan, seperti kalangan bisnis, pendidikan, dan pemerintahan. Hal ini disebabkan karena Linux bersifat terbuka dan merdeka. Siapapun bisa mengembangkannya dan menggunakannya secara bebas.

Read More

MENGENAL BAHASA PEMROGRAMAN BUATAN ANAK NEGERI

Bagi anda Pecinta IT pastinya anda pernah mendengar ataupun mengenal beberapa bahasa pemrograman, C, C++,C#, VB, Pascal, Java, PHP dll. bahasa pemrograman tersebut semuanya dibuat dalam bahasa inggris oleh orang luar. apakah kalian pernah berfikir "suatu saat saya akan membuat bahasa pemrograman sendiri" tapi anda jangan berkecil hati dulu, " ah mana mungkin". Di dunia ini tidak ada yang tidak mungkin, jika orang lain bisa melakukan, kini telah terbukti. bahwa bahasa pemrogram baru telah di ciptakan oleh orang-orang indonesia, bangsa indonesia. mungkin ada belom pernah mendengar, bahasa pemrograman buatan orang indonesia.

Read More

Pemrograman JAVA

Java adalah sebuah teknologi yang diperkenalkan oleh Sun Microsystems pada pertengahan tahun 1990. Menurut definisi dari Sun, Java adalah nama untuk sekumpulan teknologi untuk membuat dan menjalankan perangkat lunak pada komputer standalone ataupun pada lingkungan jaringan. Kita lebih menyukai menyebut Java sebagai sebuah teknologi dibanding hanya sebuah bahasa pemrograman, karena Java lebih lengkap dibanding sebuah bahasa pemrograman konvensional. Teknologi Java memiliki tiga komponen penting, yaitu:

·         Programming-language specification

·         Application-programming interface

·         Virtual-machine specification

Read More

Windows Vista

Windows Vista adalah sistem operasi yang dirilis dalam beberapa variasi yang dikembangkan oleh Microsoft untuk digunakan pada komputer pribadi, termasuk rumah dan bisnis desktop, laptop, tablet PC, dan PC media center. Sebelum pengumuman pada 22 Juli 2005, Windows Vista dikenal dengan codename nya "Longhorn" . Pembangunan selesai pada tanggal 8 November 2006 dan selama tiga bulan setelah dirilis pada tahap untuk perangkat keras komputer dan produsen perangkat lunak, bisnis pelanggan dan saluran ritel. Pada tanggal 30 Januari 2007 itu dirilis di seluruh dunia [5] dan dibuat tersedia untuk pembelian dan download dari situs Microsoft [6]. Rilis Windows Vista datang lebih dari lima tahun setelah pengenalan dari pendahulunya, Windows XP, waktu terpanjang rentang antara rilis berturut-turut desktop Microsoft sistem operasi Windows. Hal digantikan oleh Windows 7, yang dirilis untuk manufaktur pada tanggal 22 Juli 2009 dan dirilis di seluruh dunia untuk ritel pada

Read More