Tampilan Menu Utama Kriptopgrafi
List Programnya :
Public Class Form1
Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CaesarChiperToolStripMenuItem.Click
Caesar.Show()
End Sub
Private Sub VernamChiper_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles VernamChiper.Click
Vernam.Show()
End Sub
Private Sub VigenereChiper_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles VigenereChiper.Click
Vigenere.Show()
End Sub
Private Sub DesChiper_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles DesChiperr.Click
RC4.Show()
End Sub
Private Sub GronsfeldChiper_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles GronsfeldChiper.Click
DesChiper.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KeluarToolStripMenuItem1.Click
Dim i As MsgBoxResult
i = MsgBox("Apa
anda ingin keluar?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Perhatian")
If i =
MsgBoxResult.Yes Then
Close()
End If
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
