KRIPTOGRAFI
Design Form Seperti Gambar Di Bawah Ini ;
LISTING PROGRAM ==>
Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
KriptografiCaesarToolStripMenuItem.Click
Form2.MdiParent = Me
Form2.Show()
End Sub
Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
KriptografiVernamToolStripMenuItem.Click
Form3.MdiParent = Me
Form3.Show()
End Sub
Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
KriptografiGronslendToolStripMenuItem.Click
Form4.MdiParent = Me
Form4.Show()
End Sub
Private Sub KriptografiVigenerToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
KriptografiVigenerToolStripMenuItem.Click
Form5.MdiParent = Me
Form5.Show()
End Sub
End Class
1.KRIPTOGRAFI CAESAR
LISTING PROGRAM ==>
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 Btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekripsi.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 = x
