KRIPTOGRAFI

Ini adalah tugas postingan saya mengenai Kriptografi.
langsung saja yaaaaahhh...
1. Kriptografi Caesar
Desain Form

Kemudian inilah listing programnya:

Public Class Form1

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.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 Dekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper.Text)
            x = Mid(Chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Chiper.Text = xkalimat       
    End Sub
End Class

Setelah itu tekan F5 dan beginilah tampilan hasil programnya.

2. Kriptografi Vernam

Desain Form

Kemudian inilah listing programnya:

Public Class Form3

    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 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
End Class

Setelah itu tekan F5 dan hasil programnya adalah seperti ini.

3. Kriptografi Vegenere
Desain Form:

Kemudian inilah listing programnya.

Public Class Form5

    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 String
        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)) + 0
            nKunci = Asc(Mid(sKey, J, 1)) + 0
            nEnc = ((nKata + nKunci) Mod 256)
            sPlain = sPlain & Chr((nEnc))
        Next i
        Chiperteks.Text = sPlain
    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.Text = " "
        Chiperteks.Text = ""
        Kunci.Text = ""
    End Sub
End Class

Seperti inilah hasil tampilan programnya setelah ditekan F5:

4. Kriptografi Gronsfeld
Desain Form:

Kemudian inilah listing programnya:

Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.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 String
        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, i)) - 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 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
End Class

Setelah itu tekan F5 dan hasil programnya seperti ini:

Sekian lah postingan saya neh,,, semoga bermanfaat. Sekian dan trimakasih!!!!

Quis OnLine Latihan ListView Perhitungan Penjualan Barang

Ini jawaban Quis Online Pemograman Visual Basic.Net .
1. Desain Form

2. Listing Programnya adalah :
Public Class Latihan2

    Private Sub Latihan2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buatTabel()
        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim i As String
        i = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        If KodeBarang.Text = "TS001" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 4 GB"
            Harga.Text = "105000"
        ElseIf KodeBarang.Text = "TS002" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 2 GB"
            Harga.Text = "75000"
        ElseIf KodeBarang.Text = "VG001" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 4GB"
            Harga.Text = "90000"
        ElseIf KodeBarang.Text = "VG002" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 2GB"
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TotalHarga.Text = JumlahBeli.Text * Harga.Text
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

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

    Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TotalHarga.Text = Harga.Text * JumlahBeli.Text
        End If
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub
    Sub buatTabel()
        ListView1.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = (NoPembelian.Text)
        Lst.SubItems.Add(KodeBarang.Text)
        Lst.SubItems.Add(NamaBarang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JumlahBeli.Text)
        Lst.SubItems.Add(TotalHarga.Text)
        ListView1.Items.Add(Lst)
    End Sub

    Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
        IsiTabel()
    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub
End Class

3.Tampilan Hasil Program

Sekian Dan Trimakasih.

ARTI KEHIDUPAN

Kadang terlintas dipikiranku,
Apa sebenarnya arti kehidupan
ini
sesungguhnya?Setiap manusia
tentunya memilki kehidupannya masing-
masing.Semuanya memiliki arti
kehidupan yang berbeda,Seperti kamu
dan aku tentu berbeda tentang
pengertian hidup.Berbeda manusia
berbeda pula arti kehidupan
seseorang dan setiap manusia juga
mempunyai jalan masing-masing
untuk hidup.

CARA MENGEMBALIKAN FILE YANG DISEMBUNYIKAN VIRUS

Virus komputer semakin hari semakin banyak jenis dan variannya. Beberapa jenis virus komputer ada yang dibuat dengan tujuan untuk mencuri data atau file pemilik komputer, sekedar merusak sistem dan ada juga yang hanya sekedar iseng yang membuat pemilik komputer jengkel.

Beberapa hal yang biasa terjadi setelah kita berhasil membersihkan virus komputer adalah masih adanya sistem registry yang tidak atau belum bisa kembali secara normal yang salah satunya adalah berakibat adanya file atau folder yang disembunyikan atau di-hidden oleh virus.
Beberapa antivirus seperti SmadAV begitu kita selesai melakukkan scanning virus maka akan ada pilihan untuk mengembalikan atau menampilkan file atau folder yang telah disembunyikan oleh virus (misalnya virus shortcut). Namun bila ternyata tetap ada file atau folder yang masih tersembunyi, anda bisa coba mengembalikan sendiri dengan cara manual melalui Command Prompt atau CMD. Berikut ini caranya:

HUBUNGAN STATISTIK DENGAN TEKNIK INFORMATIKA

HUBUNGAN ILMU STATISTIKA DENGAN TEKNIK INFORMATIKA

Statistika adalah ilmu yang mempelajari bagaimana merencanakan, mengumpulkan, menganalisis, menginterpretasi, dan mempresentasikan data. Singkatnya, statistika adalah ilmu yang berkenaan dengan data.
Istilah ‘statistika’ (bahasa Inggris: statistics) berbeda dengan ‘statistik’ (statistic). Statistika merupakan ilmu yang berkenaan dengan data, sedang statistik adalah data, informasi, atau hasil penerapan algoritma statistika pada suatu data.
Statistika banyak diterapkan dalam berbagai disiplin ilmu, baik ilmu-ilmu alam (misalnya astronomi dan biologi maupun ilmu-ilmu sosial (termasuk sosiologi dan psikologi), maupun di bidang bisnis, ekonomi, dan industri). Statistika juga digunakan dalam pemerintahan untuk berbagai macam tujuan; sensus penduduk merupakan salah satu prosedur yang paling dikenal. Aplikasi statistika lainnya yang sekarang popular adalah prosedur jajak pendapat atau polling (misalnya dilakukan sebelum pemilihan umum), serta jajak cepat (perhitungan cepat hasil pemilu) atau quick count. Di bidang komputasi, statistika dapat pula diterapkan dalam pengenalan pola maupun kecerdasan buatan.

ORGANISASI KOMPUTER

Pengertian Organisasi Komputer Dan Arsitektur Komputer

Pengertian Organisasi Komputer adalah bagian yang terkait erat dengan unit-unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturnya. Contoh aspek operasionalnya adalah teknologi hardware, perangkat antar muka atau interface, teknologi memori, sistem memori, dan sinyal-sinyal kontrol.

Pengertian Arsitektur Komputer adalah lebih cendrung dikategorikan pada kajian atribut-atribut sistem komputer yang terkait dengan seorang programmer. Contoh : set instruksi, aritmatika yang digunakan teknik pengalamatan, mekanisme I/O.
Bagian Utama Pada Sistem Komputer

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

Tugas Belajar Bahasa Pemograman

1. Desainlah Formnya seperti gambar di bawah ini :

2. ketiklah listing berikut ini :

Public Class Form_Nilai

    Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeDosen.Items.Add("001312")
        KodeDosen.Items.Add("001654")
        KodeMataKuliah.Items.Add("001")
        KodeMataKuliah.Items.Add("002")
        NPM.Items.Add("12110639")
        NPM.Items.Add("12116780")
        NPM.Items.Add("12113412")
        Dim i As Integer
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiTugas.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiUTS.Items.Add(i)
        Next i
        For i = 1 To 100
            NilaiUAS.Items.Add(i)
        Next i
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NPM.Text = ""
        Nama.Text = " "
        Jenjang.Text = ""
        Jurusan.Text = ""
        NamaDosen.Text = ""
        MataKuliah.Text = " "
        KodeMataKuliah.Text = ""
        KodeDosen.Text = ""
        Keterangan.Text = ""
        NilaiKehadiran.Text = " "
        NilaiTugas.Text = " "
        NilaiUTS.Text = " "
        NilaiAkhir.Text = " "
        NilaiUAS.Text = " "
        NilaiHuruf.Text = ""
    End Sub

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

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Anda Lulus"
        Else
            Keterangan.Text = "Anda Gagal"
        End If
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim z As String
        z = KodeDosen.Text
        If z = "001312" Then
            NamaDosen.Text = "Mesran S.Kom,M.Kom"
        ElseIf z = "001654" Then
            NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
        End If
    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
        Dim p As String
        p = KodeMataKuliah.Text
        If p = "001" Then
            MataKuliah.Text = "Pemograman Visual Basic"
        ElseIf p = "002" Then
            MataKuliah.Text = "Matematika Diskrit"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim a As String
        a = NPM.Text
        If NPM.Text = "12110639" Then
            Nama.Text = "Sondang R. Sitohang"
        ElseIf NPM.Text = "12116780" Then
            Nama.Text = "Yanti"
        ElseIf NPM.Text = "12113412" Then
            Nama.Text = "Murni"
        End If
    End Sub
End Class

3. Tekan F5, dan hasilnya seperti gambar dibawah ini :

Sekian postingan tugas saya ini....