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:
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...
Post a Comment