Metode Vigenere Pada Kriptografy.docx

METODE VIGENERE PADA KRIPTOGRAFY

Hasil Adapun langkah-langkah untuk membuat program kriptografy dengan metode Vigenere adalah sebagai berikut 1. Desain form seperti gambar dibawah ini

2. Setelah selesai desain formnya ketikkan coding dibawah ini Public Class Form1 Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click Chipertext.Text = Enkripsi(Plaintext.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 End Class

Anda juga dapat melihat rumahnya http://mesran.net semoga bermanfaat buat kita semua