KRIPTOPGRAFI VB.NET

Tampilan awal

 

Listprogram di atas

Public Class Form1

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

        Caesar.Show()

    End Sub

    Private Sub VernamChiper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiper.Click

        Vernam.Show()

    End Sub

    Private Sub VigenereChiper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiper.Click

        Vigenere.Show()

    End Sub

    Private Sub DesChiper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperr.Click

        RC4.Show()

    End Sub

    Private Sub GronsfeldChiper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiper.Click

        DesChiper.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

        Dim i As MsgBoxResult

        i = MsgBox("Apa anda ingin keluar?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Perhatian")

        If i = MsgBoxResult.Yes Then

            Close()

        End If

    End Sub

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

    End Sub

End Class

Tampialn Caesar Chiper

List program Caesar chiper

Caesar Chiper

Public Class Caesar

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.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 hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

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

        End

    End Sub

End Class

Tampilan Gronsfeld Jadi Des Chiper

List program Gronsfeld Jadi Des Chiper

Public Class gronsfeld

    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(chipertext.Text)

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

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        plaintext.Text = xkalimat

    End Sub

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

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

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

        plaintext.Text = ""

        chipertext.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

  Tampilan Vernam chiper

List program verna chiper

Public Class Vernam

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.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

        chipertext.Text = sPlain

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.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

Tampilan vigenere chiper

List program vigenere chiper

Public Class Vigenere

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

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

    End Sub

    Function Eenkripsi(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

        Eenkripsi = sPlain

    End Function

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

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

    End Sub

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

        Me.Close()

    End Sub

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

    End Sub

End Class

Tampilan deschiper jadi Rc4

List program deschipr jadi Rc4

Public Class DesChiper

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

        plaintext.Text = ""

        chipertext.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(chipertext.Text)

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

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        plaintext.Text = xkalimat

    End Sub

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

        plaintext.Text = ""

        chipertext.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

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

http://www.mesran.net/quiz.html

Pemakaian Listrik

Listing Program :

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

End Sub

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

End Sub

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

End Sub

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

End Sub

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("Pelanngan", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Tipe pelanggan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Biaya beban", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Harga per KWH", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Meter bulan ini", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Meter bulan lalu", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah pemkaian", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Tagihan", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Total tagihan", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Pelanggan.Text

        Lst.SubItems.Add(Tipepel.Text)

        Lst.SubItems.Add(Biaya.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Meterbulanini.Text)

        Lst.SubItems.Add(Meterbulanlalu.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Tagihan.Text)

        Lst.SubItems.Add(Pajak.Text)

        Lst.SubItems.Add(Total.Text)

        Lst.SubItems.Add(Pembayaran.Text)

        LV.Items.Add(Lst)

    End Sub

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

        BuatTabel()

        Pelanggan.Items.Add("MEDAN")

        Pelanggan.Items.Add("BELAWAN")

        Pelanggan.Items.Add("AKSARA")

        Pelanggan.Items.Add("MRENDAL")

        Pelanggan.Items.Add("BINJAI")

        Pelanggan.Items.Add("LUBUK PAKAM")

        Tipepel.Items.Add("TOKO")

        Tipepel.Items.Add("RUMAH")

        Tipepel.Items.Add("SWALAYAN")

        Tipepel.Items.Add("PABRIK")

    End Sub

    Private Sub PAB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipepel.SelectedIndexChanged

        Select Case Tipepel.Text

            Case "TOKO" : Biaya.Text = 150000

            Case "RUMAH" : Biaya.Text = 50000

            Case "SWALAYAN" : Biaya.Text = 400000

            Case "PABRIK" : Biaya.Text = 1000000

        End Select

        Select Case Tipepel.Text

            Case "TOKO" : Harga.Text = 500

            Case "RUMAH" : Harga.Text = 200

            Case "SWALAYAN" : Harga.Text = 1500

            Case "PABRIK" : Harga.Text = 10000

        End Select

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Total.Text = Val(Biaya.Text) + Val(Harga.Text) * Val(Jumlah.Text)

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        IsiTabel()

    End Sub

    Private Sub BtnHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdata.Click

        LV.Items.Remove(LV.SelectedItems(0))

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

        Jumlah.Text = Meterbulanini.Text - Meterbulanlalu.Text

    End Sub

    Private Sub Pembayaran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pembayaran.TextChanged

        Public Class btn_besar_pakai

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

        BuatTabel()

        daerah.Items.Add("MED")

        daerah.Items.Add("BEL")

        daerah.Items.Add("TEM")

        daerah.Items.Add("PAK")

        daerah.Items.Add("MAR")

        daerah.Items.Add("BIN")

        Tipe_pelanggan.Items.Add("TOK")

        Tipe_pelanggan.Items.Add("RUM")

        Tipe_pelanggan.Items.Add("SWA")

        Tipe_pelanggan.Items.Add("PAB")

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("ID PELANGGAN", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)

        lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Center)

        lv.Columns.Add("BIAYA BEBAN", 180, HorizontalAlignment.Left)

        lv.Columns.Add("HARGA PER KWH", 180, HorizontalAlignment.Left)

        lv.Columns.Add("METER BULAN INI", 180, HorizontalAlignment.Left)

        lv.Columns.Add("METER BULAN LALU", 180, HorizontalAlignment.Left)

        lv.Columns.Add("BESAR PEMAKAIAN", 180, HorizontalAlignment.Left)

        lv.Columns.Add("BESAR TAGIHAN", 180, HorizontalAlignment.Left)

        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = id_pelanggan.Text

        lst.SubItems.Add(NAMA.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        IsiTabel()

        id_pelanggan.Text = " "

        nama.Text = " "

    End Sub

    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged

    End Sub

    Private Sub Tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe_pelanggan.SelectedIndexChanged

        If Tipe_pelanggan.Text = "TOK" Then

            biaya_beban.Text = 150000

            harga_kwh.Text = 500

        ElseIf Tipe_pelanggan.Text = "RUM" Then

            biaya_beban.Text = 50000

            harga_kwh.Text = 200

        ElseIf Tipe_pelanggan.Text = "SWA" Then

            biaya_beban.Text = 400000

            harga_kwh.Text = 1500

        ElseIf Tipe_pelanggan.Text = "PAB" Then

            biaya_beban.Text = 1000000

            harga_kwh.Text = 10000

        End If

    End Sub

    Private Sub tagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tagihan.TextChanged

        Tagihan.Text = Biaya.Text + Harga.Text * Jumlah.Text

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Jumlah.Text = Meterbulanini.Text - Meterbulanini.Text

    End Sub

    Private Sub btn_tagihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tagihan.Click

        Tagihan.Text = Biaya.Text + Harga.Text * Jumlah.Text

    End Sub

    Private Sub btn_pajak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajak.Click

        Pajak.Text = 0.015 * Tagihan.Text

    End Sub

    Private Sub Bayar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pembayaran.Click

        Pembayaran.Text = Tagihan.Text + Pajak.Text

    End Sub

End Class

Hasil Program

Demikian Postingan saya
Nama : Tita arianti
NPM  : 1111059