Dekripsi pada Vigenere Cipher

September 10, 2009 at 2:32 am 3 comments

Artikel ini kelanjutan dari vigenere cipher posting saya sebelumnya, untuk dekripsinya desainnya saya tambahkan sebagai berikut :

vigenere3

saya tambahkan tombol cmdDekripsi dan  txtplain1 untuk menampilkan hasil dekripsi dan text yang sudah dienkripsi. Sedangkan coding untuk cmdDekripsi adalah sebagai berikut :

Private Sub cmdDekripsi_Click()
panjangcipher = Len(Trim(txtcipher.Text))
panjangkunci = Len(Trim(txtkunci.Text))
j = 1
For x = 1 To panjangcipher
karcipher = Mid(txtcipher.Text, x, 1)
karkunci = Mid(txtkunci.Text, j, 1)
If karcipher = ” ” Then
hasil = hasil + ” ”
j = j – 1
Else
Adovigenere.RecordSource = “select * from tblvigenere where kunci = ‘” + karkunci + “‘”
Adovigenere.Refresh
For y = 1 To 26
sql = Adovigenere.Recordset.Fields(y)
If (sql = karcipher) Then
cetak = Chr(y + 64)
hasil = hasil + cetak
End If
Next y
End If
If j = panjangkunci Then
j = 1
Else
j = j + 1
End If
Next x
txtplain1.Text = hasil
End Sub

Oke akhirnya selamat mencoba. Semoga jadi ya?

Entry filed under: Enkripsi. Tags: .

Vigenere Cipher Mengurutkan data dengan metode BubbleSort

3 Comments Add your own

  • 1. saryono  |  October 11, 2009 at 1:49 pm

    waduh…nyasar pak..?ketemu calon dosenku…yang ternyata kakk kelas di SMK N 2 Kebumen…..

    Reply
  • 2. edy  |  December 6, 2009 at 6:55 pm

    bos klu ingin modifikasi dengan penambahan angka dan karakter2 ascii gmn ya..
    mksh

    Reply
  • 3. edy  |  December 7, 2009 at 7:47 pm

    kalau mo nambahin angka & karakter2 gmn ya??
    klu tabelnya dimodifikasi lagi ga perlu panamabhan source code lagi?
    makasih..

    Reply

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


September 2009
M T W T F S S
« Aug   Oct »
 123456
78910111213
14151617181920
21222324252627
282930  

%d bloggers like this: