membuat Kriptografi Vernam Dengan menggunakan VBNET 2008

Disini saya akan memposting hasil latihan yang telah saya pelajari dimesran.net tentang kriptografi
buat lah terlebih dahulu formnya seperti gember dibawah ini

senjutnya gantilah name dan teksnya sesuai dengan gambar ini

langkah selanjutnya isilah kodingnya sesuai dengan teks yang telah ditulis sebelumnya seperti dibawah ini


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub btnenskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenskripsi.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, 1, 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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class


langkah terakhir jika tekah selesai maka boca jalankan programnya dengan menekan tombol "F5" atau mrngklik ikon play pada menu bar
jika telah berhasil maka tampilannya akan seperti ini

tidak sulit bukan untuk mrmbuatnya? jika kita ada kemauan dan niat pasti kita bisa mengerjakannya walaupun itu sulat
demikianlah  postingan saya kali ini jangan lupa kunjungi blog saya dan juga mesran.net untuk mempelajari tentang dunia pemograman yang uptodate