melanjutkan enkripsi string selanjutnya, kali ini penulis akan membahas tentang proses dekripsinya, tanpa berlama lama langsung saja
1. buat 3 buah textboxt (textbox1, 2, 3)
2.sebuah button dekripsi
3. kemudian masukan source code berikut ke dalam button
Dim plain As String = ""
Dim Kunci As String = ""
Dim cipher As String = ""
Dim x As String = ""
Kunci = Val(TextBox2.Text)
cipher = TextBox1.Text
For i = 1 To Len(cipher)
x = Mid(cipher,i, 1)
x = Asc(x) - Kunci
plain= plain + Chr(x)
Next
TextBox3.Text = plain
End Sub
masukan cipertext ke dalam textbox1 kemudian masukan key yang sama pada saat anda melakukan proses enkripsi sebelumnya ,, klik button dekripsi, maka string akan dapat dibaca .
selesaiii :)
Tampilan
Wednesday, September 30, 2015
ENKRIPSI DEKRIPSI STRING SEDERHANA DENGAN METODE CAESAR CHIPER DI VB.NET 2010
Assalammualaikum programer muda, disini penulis akan menshare sedikit tentang Algoritma kunci simetris Caesar cipher untuk mengenkripsi dan mendekripsi string . berikut Source codenya
kali ini proses Enkripsinya terlebih dulu akan dibahas :)
Enkripsi
1. Pertama sediakan 3 buah textbox dengan nama Textbox1.text , textbox2.text , textbox3.text (sesuai selera :)
2. sediakan sebuah button dan beri nama Enkipsi
3. klik 2 kali button tersebut lalu isikan kode berikut !!
Dim plain as string=""
Dim key as string=""
Dim cipher as string=""
Dim x as String=""
plain=textbox1.text
key=val(textbox2.text)
for i = 1 to len(plain)
x=mid(plain,i,i)
x=Asc(x)+key
cipher=cipher+ chr(x)
next i
textbox3.text= cipher
setelah selesai , Run kan program dan masukan String yang akan di enkripsi dan masukan angka untuk keynya !!!
Selesai :)
kali ini proses Enkripsinya terlebih dulu akan dibahas :)
Enkripsi
1. Pertama sediakan 3 buah textbox dengan nama Textbox1.text , textbox2.text , textbox3.text (sesuai selera :)
2. sediakan sebuah button dan beri nama Enkipsi
3. klik 2 kali button tersebut lalu isikan kode berikut !!
Dim plain as string=""
Dim key as string=""
Dim cipher as string=""
Dim x as String=""
plain=textbox1.text
key=val(textbox2.text)
for i = 1 to len(plain)
x=mid(plain,i,i)
x=Asc(x)+key
cipher=cipher+ chr(x)
next i
textbox3.text= cipher
setelah selesai , Run kan program dan masukan String yang akan di enkripsi dan masukan angka untuk keynya !!!
Selesai :)
Subscribe to:
Posts (Atom)