Selamat mencari informasi menarik dari blog saya

Pemograman Kriptografi

Posted by Unknown Friday, January 17, 2014 2 comments
Listing Program


Form Menu


Public Class Menu

    Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click
        End
    End Sub

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
        Kriptografi_Caesar.Show()
    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
        Kriptografi_Vernam_Chiper.Show()
    End Sub

    Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click
        Kriptografi_Gronsfeld.Show()
    End Sub

    Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click
        Kriptografi_Viginere.Show()
    End Sub
End Class

Form Kriptografi Caesar




Public Class Kriptografi_Caesar

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

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

    End Sub
End Class


Form Kriptografi Vernam

Public Class Kriptografi_Vernam_Chiper

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.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 = plainteks.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
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.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 plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    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 kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub
End Class

Form Kriptografi Gronsfeld



Public Class Kriptografi_Gronsfeld

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    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 = plainteks.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)) - 48

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub
End Class


Form Kriptografi Viginere



Public Class Kriptografi_Viginere

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.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 Kriptografi_Viginere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Hasil Printout


 
Read More..

Belajar Pemrograman di Mesran[dot]Net Part II

Posted by Unknown Tuesday, January 7, 2014 0 comments
www.mesran.net
Setelah menjadi artikel top yang paling banyak di view pada Belajar Pemrograman di tahun lalu, kini saya akan kembali menampilkan part II nya dengan judul yang berbeda dengan tambahan sedikit bahasa inggris( memakai kata Part II), gaul kan, ya), walau tidak akan terlalu banyak tambahan tutur kata yang terketik disini. Anda yang ingin mengenal pemilik mesran[dot] dapat melihat disini .kalau tidak ya sudah, tidak masalah.

Kembali pada topik pembicaraan utama, 
Media pembelajaran yang baik, saat ini sulit sekali didapat. Kita mahasiswa pasti tentu memilliki pengalaman berbeda antara cara mengajar guru di Sekolah, dengan cara mengajar dosen. 70% kita mahasiswa aktif di kampus, berbeda dengan yang sudah-sudah 70% Guru kita menyuapi kita dengan ilmu nya.
Saran saya dari dulu hendaknya, dalam mengambil sistem belajar jangan menggunakan Satuan SKS(Sistem Kebut Semalam) karena orang sakit jiwa saja belum tentu jiwa nya tenang apalagi kita,.
 
Kita sebagai mahluk ciptaan tertinggi ada baiknya dapat menggunakan waktu kita lebih bijak lagi, media pembelajaran online merupakan cara terbaik bagi kita yang ingin menambah wawasan selain membaca buku-buku setebal brankas besi yang ada pada Perpustakaan milik kampus anda masing2. Karena Topik kita pada kali ini membahas pemrograman, maka Mesran[dot] inilah saran saya, kepada saudara/i ku yang ingin lulus cita-citanya menjadi seorang Programmer. Kenapa tidak? karena didalamya kita dapat menjumpai Pembelajaran VB.net, Pemograman C/C++, Pascal dan masih banyak lagi yang lainnya.

Tenang saja Mesran[dot]Net menyajikan kualitas KW("iki opo?"), tidak akan membuat anda loading lama(Lola) dalam Pemrograman, sebaliknya anda akan memiliki akses kecepatan pemahaman berpikir melebihi ukuran berpikir kapasaitas Ghz layaknya processor core i8("Lebay mang dah keluar core i8"). 

Bagi anda yang ingin mengaktifkan fitur Login Member, syaratnya cukup mudah, anda jika anda akan segera tamat, buruan daftarkan diri anda pada Staff admin lalu meregistrasikan diri anda disini. nah untuk anda2 yang juga sama seperti saya, duduk di bangku perkuliahan, buruan urus surat transferan nya(" hehheh tidak dipaksa").

Yah seperti yang saya ujarkan di kata sambutan sebelumnya, tidak banyak ulasan yang akan saya berikan disini, lengkapnya anda dapat melihat di artikel saya yang sebelumnya( cek disini ) . 

"Belajar itu bukan hanya sekedar buku ataupun penjelasan2 dari pengajar, semua kehidupan ini adalah pembelajaran tinggal anda sendiri yang menentukannya, apakah ingin diteliti(mana tw gila) atau meneliti " .

akhir kata, saya Erixon Andrianus pamit mohon undur diri dari hadapan anda.


Salam Programming..
Read More..

Online Visitor

bloggersumut.net

Kategori

Blogumulus by Roy Tanck and Amanda Fazani

Statistik Pengunjung

Sahabat Erixon

Site Info



Flag Counter