Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008

Berikut ini merupakan pembelajaran atas Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008.

Lumayan terkenal juga, karna sudah menggunakan kunci, namun masih tergolong klasik. Silahkah anda pelajari programnya.🙂

Design Form Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008 berikut :
w

Ketik listing program berikut :

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

Demikianlah artikel Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008 , semoga bermanfaat saat belajar bahasa pemrograman.

Tag : Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008, kriptografi vigenere, belajar kriptografi, belajar bahasa pemrograman, bahasa pemrograman

Bila bermanfaat silahkan share Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008 ini dengan teman anda, Terima kasih sebelumnya

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s