Listing Program
Public Class Form1
Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
Dim x As String = ""
Dim xkalimat As String = ""
For i = 1 To Len(Plain.Text)
x = Mid(Plain.Text, i, i)
x = Chr(Asc(x) + 3)
xkalimat = xkalimat + x
Next
Chiper.Text = xkalimat
End Sub
Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click
Dim x As String = ""
Dim xkalimat As String = ""
For i = 1 To Len(Chiper.Text)
x = Mid(Chiper.Text, i, i)
x = Chr(Asc(x) - 3)
xkalimat = xkalimat + x
Next
Plain.Text = xkalimat
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Selamat mencoba ya teman-teman..,,
semoga berhasil :)
