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
SISTEM SIMPAN PINJAM PADA KOPERASI SERBA USAHA “TUNAS JAYA” DENGAN PROGRAM APLIKASI VISUAL BASIC 6.0 Semoga Tugas Akhir Atau TA dan Juga Kerja Praktek S1 ini bermanfaat bagi anda, untuk di jadikan referensi untuk menger…
WEBSITE HEWAN LANGKA YANG ADA DI INDONESIA DENGAN MENGGUNAKAN MACROMEDIA DREAMWEAVER MX Semoga Tugas Akhir Atau TA dan Juga Kerja Praktek S1 ini bermanfaat bagi anda, untuk di jadikan referensi untuk menger…
WEB DESIGN SISTEM INFORMASI CV. ZOOM COMPUTER PALEMBANG SEBAGAI MEDIA PERIKLANAN DAN PEMESANAN BARANG Semoga Tugas Akhir Atau TA dan Juga Kerja Praktek S1 ini bermanfaat bagi anda, untuk di jadikan referensi untuk menger…
SISTEM UJIAN MASUK SISWA BARU SEKOLAH TARUNA MANDIRI MENGGUNAKAN PHP DAN MySQL Semoga Tugas Akhir Atau TA dan Juga Kerja Praktek S1 ini bermanfaat bagi anda, untuk di jadikan referensi untuk menger…
SISTEM SEKURITI BERBASIS PC DENGAN MENGGUNAKAN WEBCAM DAN SENSOR CAHAYA Semoga Tugas Akhir Atau TA dan Juga Kerja Praktek S1 ini bermanfaat bagi anda, untuk di jadikan referensi untuk mengerj…
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"