Rabu, 15 Januari 2014

Membuat Kriptografi Dari VB 2008

Baiklah pada hari ini saya akan mempostingkan aplikasi membuat  “Kriptografi” dengan Visual Basic 2008.
. 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
        MsgBox("Applikasi ini Buatan Reminton F.I.Purba")
    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 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 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 seperti tampilan 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 :

Diposting oleh di Tidak ada komentar:

Minggu, 08 Desember 2013

kuis visual



Public Class form1

    Sub buattable()
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Harga M3", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 120, HorizontalAlignment.Center)
    End Sub

    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = NM.Text
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(HM.Text)
        lst.SubItems.Add(HM.Text)
        lst.SubItems.Add(JP.Text)
        lst.SubItems.Add(TT.Text)
        lst.SubItems.Add(Pembayaran.Text)
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(BB.Text)
        lst.SubItems.Add(Pajak.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call buattable()
        KP.Items.Add("PAB-MED-100")
        KP.Items.Add("TOK-BEL-101")
        KP.Items.Add("SWA-MED-102")
    End Sub

    Private Sub JP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JP.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TT.Text = Val(BB.Text) + (HM.Text * JP.Text)
            Pajak.Text = 0.01 * TT.Text
            Pembayaran.Text = Val(TT.Text) + Val(Pajak.Text)

        End If

    End Sub

    Private Sub JP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JP.TextChanged

    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)
        Select Case x
            Case "100" : NM.Text = "Bagas sahril"
            Case "101" : NM.Text = "Annisa"
            Case "102" : NM.Text = "Sengkono"
        End Select
        x = Microsoft.VisualBasic.Left(KP.Text, 3)
        Select Case x
            Case "Tok"
                HM.Text = 250
                BB.Text = 15000
                Tipe.Text = "toko"
            Case "RUM"
                HM.Text = 150
                BB.Text = 10000
                Tipe.Text = "rumah"
            Case "PAB"
                HM.Text = 25000
                BB.Text = 25000
                Tipe.Text = "pabrik"
            Case "SWA"
                HM.Text = 20000
                BB.Text = 60000
                Tipe.Text = "swalayan"
        End Select
        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        Select Case x
            Case "MED" : Daerah.Text = "Medan"
            Case "BEL" : Daerah.Text = "Belawan"
            Case Else : Daerah.Text = "_"

        End Select
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        KP.Text = ""
        NM.Text = ""
        Tipe.Text = ""
        HM.Text = ""
        JP.Text = ""
        TT.Text = ""
        Pembayaran.Text = ""
        Daerah.Text = ""
        BB.Text = ""
        Pajak.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Close()

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        Call isitable()
    End Sub
End Class




Diposting oleh di Tidak ada komentar:

Kamis, 28 November 2013

fashion sepatu

Trend Model Sepatu ARL Ariel Noah Terbaru – Ariel, begitu biasa dia disapa, seorang vokalis papan atas bersama group band-nya Noah. Siapa yang tidak kenal dengan vokalis flamboyan satu ini? Dengan wajah tampan, didukung dengan gaya menarik dan aksi panggungnya yang menghibur membuat namanya semakin berkibar di jagat musik tanah air.
Sepatu Ariel 300x199 Trend Model Sepatu ARL Ariel Noah Terbaru
Ariel Noah
Baru-baru ini Ariel Noah mendalami bisnis fashion dengan merilis brand sepatu ARL by Hardware Footwear. Saat ditanya tentang brand sepatu miliknya ini dia menjawab “Saya memang suka dengan sepatu dan mengkoleksi banyak sepatu. Saya sudah lama pengen punya toko sepatu sendiri,” ujar Ariel saat melaunching toko sepatu ‘ARL by Hardware‘ di Jl. Dago no.94, Bandung ini.
Jenis sepatu ini diperuntukan bagi pria, tapi dalam waktu dekat akan dibuatkan sepatu casual untuk wanita. Harga sepatu ARL by Hardware sendiri dibanderol mulai dari 200rb-an sampai 800rb-an, jadi bagi Anda yang ingin memilikinya tidak perlu merogoh kocek sampai jutaan untuk memakai Sepatu ARL Ariel Noah ini.
Sepatu ARL Ariel Noah ini kini sudah dapat Anda miliki di Toko Sepatu maupun online shop yang berkerjasama dengan brand ARL ini, atau bisa datang langsung ke Toko Resminya di Bandung. Jika Anda adalah salah satu Sahabat Noah sudah pasti Anda ingin memilikinya juga kan? Nah, berikut ini Info Fashion Terbaru akan berikan beberapa foto Model Sepatu ARL Ariel Noah Keren yang kami ambil dari beberapa sumber.
Sepatu ARL 300x194 Trend Model Sepatu ARL Ariel Noah Terbaru
Trend Sepatu ARL Ariel Noah
ARL 300x158 Trend Model Sepatu ARL Ariel Noah Terbaru
Sepatu ARL Ariel Noah
Sepatu Ariel ARL 300x180 Trend Model Sepatu ARL Ariel Noah Terbaru
Model Sepatu ARL Ariel Noah
Brand sepatu yang ide awalnya didapat ketika di atas panggung ini memadukan karakter yang unik dan penampilan prima bagi para pemakainya di atas panggung. Namun ternyata butuh proses panjang untuk menciptakan sebuah sepatu yang tidak hanya nyaman di kaki tetapi juga membuat nyaman para pemakainya.
Demikian tadi informasi tentang Trend Model Sepatu ARL Ariel Noah Terbaru yang bisa kami sajikan, semoga dengan membacanya dapat bermanfaat dan jadi sumber inspirasi bagi Anda yang ingin membeli Sepatu Model ARL Ariel Noah ini. Anda juga dapat membaca artikel kami yang lain tentang Ariel Noah yaitu Fashion Style Terbaru Ala Ariel Noah.

Pengunjung Lain Juga Suka:

Pembaca Yang Baik Selalu Meninggalkan Komentar

Diposting oleh di Tidak ada komentar:
Langganan: Komentar (Atom)