Komputer Program: Beberapa Contoh Program Kriptografi

Komputer Program: Beberapa Contoh Program Kriptografi:                                                        Beberapa Contoh Program Kriptografi ...

Beberapa Contoh Program Kriptografi

                                  

                    Beberapa Contoh Program Kriptografi

Pengertian Kriptografi - Secara etimologi (ilmu asal usul kata), kata kriptografi berasal dari gabungan dua kata dalam bahasa Yunani yaitu “kriptos” dan “graphia”. Kata kriptos digunakan untuk mendeskripsikan sesuatu yang disembunyikan, rahasia atau misterius. Sedangkan kata graphia berarti tulisan. Kriptografi didefinisikan sebagai ilmu dan pelajaran untuk tulisan rahasia dengan pertimbangan bahwa komunikasi dan data dapat dikodekan untuk mencegah dari mata-mata atau orang lain yang ingin mengetahui isinya, dengan menggunakan kode-kode dan aturan-aturan tertentu dan metode lainnya sehingga hanya orang yang berhak yang dapat mengetahui isi pesan sebenarnya. 

1.Caesar Chiper

Dibawah ini Listing programnya Untuk form menu :

Public Class Form1

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click

        Caesar_Chiper.Show()

        Me.Hide()

    End Sub

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

        Vigenera.Show()

        Me.Hide()

    End Sub

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

        Vernam.Show()

        Me.Hide()

    End Sub

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

        Des_Chiper.Show()

        Me.Hide()

    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click

    End Sub

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

        Me.Close()

    End Sub

End Class

Dan ini untuk listing program caesar chiper :

Public Class Caesar_Chiper

    Private Sub Btn_Enkrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Enkrip.Click

        Dim jumlah As Double = Len(Chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(Chiperteks.Text, i, 1)

            bil = Asc(x) + 1

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        Plainteks.Text = xkalimat

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        End

    End Sub

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

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

End Class

2. Gronsfeld Chiper

 

3.Vernam Chiper 

Dibawah ini Listing programnya :

Public Class Vernam

    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 Btn_Enkrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Enkrip.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 Btn_kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Btn_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 Vernam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        End

    End Sub

End Class

4.Vegenere Chiper

Listing programnya :

Public Class Vigenera

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.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 Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        End

    End Sub

    Private Sub Btn_kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Btn_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

End Class

5.Des Chiper

Listing programnya :

Public Class Des_Chiper

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        End

    End Sub

    Private Sub Btn_Deskrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Deskrip.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(Chiperteks.Text)

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

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        Plainteks.Text = xkalimat

    End Sub

End Class

Demikianlah pemograman kriftografi beserta designnya :

Penggunaan Listview Pada Visual Basic Net 2008

Des 24

Posted byhttp://aguslumbantoruan.blogspot.com/ 

Listview digunakan untuk menampung beberapa/banyak data sekaligus ke dalam suatu komponen dan bisa di proses secara keseluruhan.
Dengan menggunakan listview data bisa tertampung semua. Namun kelemahan listview yaitu jika project berhenti maka data data yang di listview akan hilang, karna sifat listveiw ini non volatile.
berikut program Penggunaan Listview Pada Visual Basic Net 2008
Design form berikut ini

Ketikkan listing program berikut ini
Public Class Form1
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
‘Untuk Keluar dari program
End
End Sub
Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
‘Membersihkan isian NIP, Nama, Golongan dan Gaji
NIP.Text = “”
Nama.Text = “”
Golongan.Text = “”
Gaji.Text = “”
‘Untuk memfocuskan NIP
NIP.Focus()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Mengisikan data ke Combo NIP
NIP.Items.Add(“4021001″)
NIP.Items.Add(“4021002″)
NIP.Items.Add(“4021003″)
NIP.Items.Add(“4021004″)
‘Mengisikan data ke Combo Golongan
Golongan.Items.Add(“IIIA”)
Golongan.Items.Add(“IIIB”)
Golongan.Items.Add(“IIIC”)
Golongan.Items.Add(“IVA”)
Call BuatTabel() ‘ untuk memaggil sub BuatTabel()
End Sub
Sub BuatTabel()
‘membuat colom pada listview
LV.Columns.Add(“NIP”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Golongan”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Gaji Rp.”, 90, HorizontalAlignment.Right)
‘menjadikan listview detail artinnya nampak sebagai baris dan kolom
LV.View = View.Details
‘menampilkan garis sebagai pembatas baris dan kolom
LV.GridLines = True
‘untuk membuat seluruh satu baris tersorot saat di klik
LV.FullRowSelect = True
End Sub
Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan NIP
Select Case NIP.Text
Case “4021001″ : Nama.Text = “Aldyan”
Case “4021002″ : Nama.Text = “Mesran”
Case “4021003″ : Nama.Text = “Surya Darma Nasution”
Case “4021004″ : Nama.Text = “Azanuddin”
Case Else
Nama.Text = “” ‘Apabila tidak ada yang sama
End Select
End Sub
Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan Golongan
Select Case Golongan.Text
Case “IIIA” : Gaji.Text = 1500000
Case “IIIB” : Gaji.Text = 1750000
Case “IIIC” : Gaji.Text = 1900000
Case “IVA” : Gaji.Text = 2500000
Case Else
Gaji.Text = 0 ‘Apabila tidak ada yang sama
End Select
End Sub
Private Sub btnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsi.Click
‘mendefinisikan variabel listviewitem dengan nama lst
Dim lst As New ListViewItem
‘memasukkan NIP ke teks listview
lst.Text = NIP.Text
‘memasukkan Nama, Golongan dan Gaji sebagai Subitems dari listview
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Golongan.Text)
lst.SubItems.Add(Gaji.Text)
‘memasukkan ke listviewitem di listview
LV.Items.Add(lst)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘menghapus semua isi yang ada di listview
LV.Items.Clear()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
‘menghapus isian listview yang tersorot
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
Demikianlah artikel Penggunaan Listview Pada Visual Basic Net 2008, semoga dapat membantu anda dalam belajar bahasa pemrograman.
Tag : Penggunaan Listview Pada Visual Basic Net 2008, Komponen listview, belajar bahasa pemrograman, bahasa pemrograman , bahasa pemrograman visual basic net, tempat download program
Bila bermanfaat silahkan share Penggunaan Listview Pada Visual Basic Net 2008 ini dengan teman anda, Terima kasih sebelumnya

Latihan pemograman visual Basic

Latihan pemograman visual Basic

bentuk desainnya :

bentuk sintaxnya:

Public Class Form1

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

        npm.Items.Add("12110785")

        npm.Items.Add("12110413")

        npm.Items.Add("12110991")

        Me.Text = " FORM NILAI "

        Me.BackColor = Color.Blue

        

        kdosen.Items.Add("05")

        kdosen.Items.Add("06")

        kdosen.Items.Add("07")

        kode_mt.Items.Add("005")

        kode_mt.Items.Add("006")

        kode_mt.Items.Add("007")

        nk.Items.Add("40")

        nk.Items.Add("50")

        nk.Items.Add("60")

        nk.Items.Add("70")

        nk.Items.Add("80")

        nk.Items.Add("90")

        nt.Items.Add("40")

        nt.Items.Add("50")

        nt.Items.Add("60")

        nt.Items.Add("70")

        nt.Items.Add("80")

        nt.Items.Add("90")

        nu.Items.Add("40")

        nu.Items.Add("50")

        nu.Items.Add("60")

        nu.Items.Add("70")

        nu.Items.Add("80")

        nu.Items.Add("90")

        nuas.Items.Add("40")

        nuas.Items.Add("50")

        nuas.Items.Add("60")

        nuas.Items.Add("70")

        nuas.Items.Add("80")

        nuas.Items.Add("90")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110480"

                nama.Text = "Andi Jost"

                jenjang.Text = "S1"

                jurusan.Text = "Tehnik Informatika"

                proses.BackColor = Color.Gray

                hapus.BackColor = Color.Gold

                keluar.BackColor = Color.GreenYellow

               

            Case "12110431"

                nama.Text = "Alexander"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

                proses.BackColor = Color.Gray

                hapus.BackColor = Color.Gainsboro

                keluar.BackColor = Color.Green

                

            Case Else

                nama.Text = "Agus Roberto"

                jenjang.Text = "D1"

                jurusan.Text = "design Grafis"

                proses.BackColor = Color.Honeydew

                hapus.BackColor = Color.IndianRed

                keluar.BackColor = Color.Gainsboro

       

        End Select

    End Sub

Tampilan hasil visual basiec :

Tugas : Mesran.net