Berikut ini merupakan Program sederhana dari Algoritma Kriptografi Klasik kunci Simetri Vigenere Chiper , penulis coba mengimplementasikan kedalam VB.net 2010.
Vigenere Chiper di Vb.net 2010
Berikut Source Codenya :
Public Class Vigenere
Private Sub Vigenere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
teksasli.Text = ""
tekshasil.Text = ""
kunci.Text = ""
End Sub
Private Sub btnenkrip_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkrip.Click
Dim k As Integer ' penampung panjang kunci
Dim pjKalimat As Integer 'penampung untuk panjang kalimat asli
Dim sKey As String 'penampung kunci
Dim nKalimat As Integer 'penampung setiap karakter dalam kalimat
Dim nKunci As Integer 'penampung setiap karakter dalam kunci
Dim pKalimat As String 'penampung isi dari kalimat asli
Dim sChiper As String = "" 'penampung hasil dari proses enkripsi
Dim nEnc As Integer 'penampung proses enkripsi
k = 0
pKalimat = teksasli.Text
pjKalimat = Len(pKalimat)
sKey = kunci.Text
For i = 1 To pjKalimat
If k = Len(sKey) Then
k = 1
Else
k = k + 1
End If
nKalimat = Asc(Mid(pKalimat, i, 1)) + 0 'mengambil karakter ke i sebanyak 1 karakter dari kalimat asli (bentuk Ascii)
nKunci = Asc(Mid(sKey, k, 1)) + 0 'mengambil karakter ke i sebanyak 1 karakter dari kunci (bentuk Ascii)
nEnc = ((nKalimat + nKunci) Mod 256) 'proses Enkripsi
sChiper = sChiper & Chr((nEnc)) 'merubah hasil enkripsi yang berbentuk Ascii ke Character
Next i
tekshasil.Text = sChiper 'menampilkan hasil enkripsi
End Sub
End Class
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
