Program Kriptografi Viginere VBNET 2008

Disini saya akan menjelaskan cara membuat program Kriptografi Viginere menggunakan VBNET 2008
Berikut langkah langkahnya
1. buatlah form baru  file>new project>ok
2. selanjutnya desainlah form tersebut sesuai dengan gembar sperti dibawah ini

3. selanjutnya gantilah mane serta teksnya sesuai dengan coding agar menghindari terjadinya masalah eror pada saat menjalankannya

4. isikan kodingnya sesuai dengan dibawah ini
Public Class Form5

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        chipertekx.Text = Enkripsi(plainteks.Text, Kunci.Text)
    End Sub
    Function Enkripsi(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

        Enkripsi = sPlain

    End Function



    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        chipertekx.Text = ""
        kunc.Text = ""

    End Sub
End Class
5. jika telah selesai mengidi codingnya maka selanjutnya coba jalankan program tersebut dengan cara menekan tombol "F5"

6. jika berhasil maka tampilannya akan seperti ini

Demikianlah cara membuat program Kriptografi Viginere