tugas kiptografi
Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
CaesarChiperToolStripMenuItem.Click
Caeser_Chiper.MdiParent = Me
Caeser_Chiper.Show()
End Sub
Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
GronsfeldChiperToolStripMenuItem.Click
Grondfeld_Chiper.MdiParent = Me
Grondfeld_Chiper.Show()
End Sub
Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
VernamChiperToolStripMenuItem.Click
Vernam_Chiper.MdiParent = Me
Vernam_Chiper.Show()
End Sub
Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
VigenereChiperToolStripMenuItem.Click
Vegenere_Chiper.MdiParent = Me
Vegenere_Chiper.Show()
End Sub
Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DesChiperToolStripMenuItem.Click
Des_Chiper.MdiParent = Me
Des_Chiper.Show()
End Sub
Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
RC4.MdiParent = Me
RC4.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
KeluarToolStripMenuItem.Click
End
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles
MenuStrip1.ItemClicked
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
KeluarToolStripMenuItem1.Click
End
End Sub
End Class
Public Class Caeser_Chiper
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim jumlah As Double = Len(Plainteks.Text)
Dim x As String
Dim xkalimat As String = ""
Dim i As Double
Dim bil As Integer
For i = 1 To jumlah
x = Mid(Plainteks.Text, i, 1)
bil = Asc(x) + 3
x = Chr(bil)
xkalimat = xkalimat + x
Next i
Chiperteks.Text = xkalimat
End Sub
Private Sub Deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deskripsi.Click
Dim jumlah As Double = Len(Chiperteks.Text)
Dim x As String
Dim xkalimat As String = ""
Dim i As Double
Dim bil As Integer
For i = 1 To jumlah
x = Mid(Chiperteks.Text, i, 1)
bil = Asc(x) - 3
x = Chr(bil)
xkalimat = xkalimat + x
Next i
Plainteks.Text = xkalimat
End Sub
End Class
Tugas Penampilan
Powered by Blogger.
Related Post
10 The World's Biggest Mystery unsolved 10 The World's Biggest Mystery unsolved1. HUMAN CREATION:Charles Darwin once offered the theory that humans have evol…
kontroversi agama yang dianut RA Kartini Pembicaraan tentang Kartini seakan-akan tidak pernah habis-habisnya. Berbagai penulis di luar dan dalam negeri m…
Tahukan Anda Apa Yang Terjadi Pada Facebook Kita Selepas Kita Meninggal Assalaamualaikum Wr Wb.. Suatu peringatan sebenarnya bagi kita semua Mari kita renungkan bersama Pikirkan bersama.. …
israel palestina siapa yang sebenarnya dijajah . Sejarah ini berawal pada tahun 1934 hingga 1945, dimana pada tahun tersebut adalah tahun kekusaan penguasa yang …
dalam anime naruto inilah kadidat orang yang paling bersalah menyebabkan semua kekacauan didunia ninja. 1.tobirama senju(hokage ke-2) dia adalah pencipta jurus medis terlarang edo tensei. pada masa pemerintahan hokage …
Popular Posts
- Contoh Hipotesis Penelitian Perumusan Masalah Teori dan Variabel
- PENGERTIAN HADAS DAN NAJIS DAN MACAM-MACAMNYA
- Contoh Surat Undangan Maulid NABI MUHAMMAD SAW resmi
- Pengertian Ibadah dan Macam-Macam Ibadah Secara Lengkap
- Metode Eliminasi Gauss Dan Eliminasi Gauss-Jordan
- Teorema Bayes Dan Contoh Teorema Bayes
- ALASAN KITA HARUS BERIMAN KEPADA ALLAH DAN KEPADA MALAIKAT
- Macam-macam Tes Evaluasi Hasil Belajar dan pengeertian test dan macam-macam nya
- KUMPULAN SITUS DOWNLOAD GAME TERBARU WINDOWS PC PS2 ISO PS2 ISO PS1
Blog Archive
About Me
Copyright © 2014 Damai7 - All Rights Reserved
Template By Catatan Info
0 Komentar untuk "TUGAS KIPTOGRAFI"