Program Enkripsi Vernam (One Time Pad) Menggunakan VB Net

Written By Mesran on Kamis, 13 Juni 2013 | 09.09

Sebelumnya saya sudah membahas mengenai Kriptografi Vernam Chiper (One Time Pad), dan pada artikel ini saya akan memberikan program pembelajaran dari pemakaian kriptografi vernam tersebut.

Pada program saya mendesain hanya karakter saja yang bisa di terima.

Design dahulu form program enkripsi vernam (one time pad) menggunakan vb net, berikut ini

 

Berikut listing  program enkripsi vernam (one time pad) menggunakan vb net

Public Class OneTimePad

    Private Sub OneTimePad_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

Silahkan anda tekan F5, dan isikan data berikut :
Plainteks : SAYANGAKUCINTAKAMU
Kunci : ALDYAN
Chiperteks: SLBYNTAVXAIATLNYMH

Hasil form program enkripsi vernam (one time pad) menggunakan vb net

Bagaimana asik bukan program enkripsi vernam (one time pad) menggunakan vb net?

Nah, untuk sedikit mereview, yuk kita intip sejumlah perguruan tinggi yang dinobatkan sebagai kampus terlaris 2011 menurut Majalah Campus Indonesia. Penilaian ini berdasarkan jumlah peserta terbanyak yang mengikuti Jalur Bidik Misi.

1. Universitas Pendidikan Indonesia (UPI)
Jalur Bidik Misi yang diselenggarakan oleh universitas yang terletak di Kota Bandung ini menarik perhatian sebanyak 4.091 pendaftar.

2. Universitas Indonesia (UI)
Salah satu perguruan tinggi negeri (PTN) favorit yang terletak di kawasan Depok ini diminati oleh 3.987 pendaftar beasiswa Bidik Misi dan menempatkannya di urutan kedua setelah UPI.

3. Universitas Gadjah Mada (UGM)
Kampus yang terletak di Kota Pelajar, Yogyakarta ini diminati sebanyak 3.949 pendaftar.

4. Universitas Negeri Semarang (Unnes)
Sejumlah 3.708 orang mendaftar untuk mengikuti beasiswa Bidik Misi. Untuk mengatasi banyaknya peminat, Unnes menyelenggarakan program Bidik Misi sebanyak dua kali dengan total kuota sebesar 1.450.

5. Universitas Negeri Surabaya (Unesa)
Sebanyak 3.506 pelajar mendaftar untuk mengikuti program Bidik Misi di kampus tersebut.

6. Universitas Negeri Yogyakarta (UNY)
Sejumlah 3.422 orang mendaftar dalam program beasiswa Bidik Misi UNY.

7. Universitas Negeri Malang (UM)
Program Bidik Misi ini cukup diminati oleh masyarakat, terbukti dengan jumlah pendaftar yang mencapai 2.993 orang.

8. Universitas Padjajaran (Unpad)
Kampus yang juga terletak di Kota Kembang, Bandung ini menempati posisi delapan dalam jumlah pendaftar program Bidik Misi, yakni 2.978 orang.

9. Universitas Brawijaya (UB) Malang
Universitas yang terkenal dengan Fakultas Kedokterannya ini diminati oleh sebanyak 2.598 pendaftar.

10. Institut Pertanian Bogor (IPB)
Terletak di Kota Hujan, universitas ini diminati oleh 2.544 pendaftar.

 

Nahh ..
bagaimana dengan kampus kamu ..
apakah masuk kategori favoritkah ?? :)