Program Kriptografi
ketikkan coding dibawah ini :
Public Class Form1
Private Sub btn_enkripsi_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_enkripsi.Click
Dim x As String = ""
Dim w As String = ""
For i =
1 To Len(plain.Text)
x = Mid(plain.Text, i, i)
x = Chr(Asc(x) + 3)
w = w + x
Next
chiper.Text = w
End Sub
Private Sub btn_deskripsi_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_deskripsi.Click
Dim x As String = ""
Dim n As String = ""
For i =
1 To Len(chiper.Text)
x = Mid(chiper.Text, i, i)
x = Chr(Asc(x) - 3)
n = n + x
Next
plain.Text = n
End Sub
Private Sub btn_keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
Tidak ada komentar:
Posting Komentar