KRIPTOGRAFI

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Buatlah terlebih dahulu designya seperti gambar yang di atas.

setelah itu silahkan buat coding programnya

 

Public Class Form1

   

    Private Sub en_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles en.Click

        Dim s As String = ""

        Dim skalimat As String = ""

        For p = 1 To Len(plain.Text)

            s = Mid(plain.Text, p, p)

            s = Chr(Asc(s) + 3)

            skalimat = skalimat + s

        Next

        chiper.Text = skalimat

    End Sub

    Private Sub des_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles des.Click

        Dim s As String = ""

        Dim skalimat As String = ""

        For p = 1 To Len(chiper.Text)

            s = Mid(chiper.Text, p, p)

            s = Chr(Asc(s) - 3)

            skalimat = skalimat + s

        Next

        plain.Text = skalimat

    End Sub

    Private Sub plain_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plain.TextChanged

    End Sub

End Class

sehinggah hasilnya seperti