Membuat Program Aplikasi Kriptografi Vigenere Pada Vb.net

Assalamu'alaikum. Wr. Wb...

Sahabat Rienie, kali saya akan berbagi Artikel tentang Membuat Program Aplikasi Kriptografi Vigenere Pada Vb.net.  Aplikasi Vigenere merupakan perkembangan dari Kriptografi vernam dan Kriptografi Gronsfield, dimana pada kriptografi ini, pada PlainTeks dan Kunci menggunakan Angka & Huruf.

Berikut adalah Tampilan Aplikasi Kriptografi Vinegere:

Berikut adalah Listing Program Aplikasi Kriptografi Vigenere:

Public Class Kriptografi_Vegenere

    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 Button_Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Enkripsi.Click
        Chiper_teks.Text = enkripsi(plain_teks.Text, Kunci.Text)
    End Sub
End Class

Demikianlah Artikel saya tentang Membuat Program Aplikasi Kriptografi Vigenere Pada Vb.net. Semoga artikel ini bisa bermanfaat bagi para pembaca.

Wassalamu'alaikum. Wr. Wb...