pemograman kriptografi

Listing Program Form Menu Public Class Menu Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click End End Sub Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click Kriptografi_Caesar.Show() End Sub Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click Kriptografi_Vernam_Chiper.Show() End Sub Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click Kriptografi_Gronsfeld.Show() End Sub Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click Kriptografi_Viginere.Show() End Sub End Class Form Kriptografi Caesar Public Class Kriptografi_Caesar 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(plainteks.Text) x = Mid(plainteks.Text, i, i) x = Chr(Asc(x) + 3) xkalimat = xkalimat + x Next Chiperteks.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(plainteks.Text) x = Mid(plainteks.Text, i, i) x = Chr(Asc(x) - 3) xkalimat = xkalimat + x Next Chiperteks.Text = xkalimat End Sub Private Sub Kriptografi_Caesar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Form Kriptografi Vernam Public Class Kriptografi_Vernam_Chiper Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load plainteks.Text = "" kunci.Text = "" chiperteks.Text = "" End Sub Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click Dim j As Integer Dim jum As Integer Dim sKey As String Dim nKata As Integer Dim nKunci As Integer Dim sKata As String Dim sPlain As String = "" Dim nEnc As Integer j = 0 sKata = plainteks.Text jum = Len(sKata) sKey = kunci.Text For i = 1 To jum If j = Len(sKey) Then j = 1 Else j = j + 1 End If nKata = Asc(Mid(sKata, i, 1)) - 65 nKunci = Asc(Mid(sKey, j, 1)) - 65 nEnc = ((nKata + nKunci) Mod 26) sPlain = sPlain & Chr((nEnc) + 65) Next i chiperteks.Text = sPlain End Sub Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress e.KeyChar = UCase(e.KeyChar) Dim tombol As Integer = Asc(e.KeyChar) If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then e.Handled = True End If End Sub Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged End Sub Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress e.KeyChar = UCase(e.KeyChar) Dim tombol As Integer = Asc(e.KeyChar) If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then e.Handled = True End If End Sub Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged End Sub End Class Form Kriptografi Gronsfeld Public Class Kriptografi_Gronsfeld Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load plainteks.Text = "" kunci.Text = "" chiperteks.Text = "" End Sub Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True End Sub Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True End Sub Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click Dim j As Integer Dim jum As Integer Dim sKey As String Dim nKata As Integer Dim nKunci As Integer Dim sKata As String Dim sPlain As String = "" Dim nEnc As Integer j = 0 sKata = plainteks.Text jum = Len(sKata) sKey = kunci.Text For i = 1 To jum If j = Len(sKey) Then j = 1 Else j = j + 1 End If nKata = Asc(Mid(sKata, i, 1)) - 65 nKunci = Asc(Mid(sKey, j, 1)) - 48 nEnc = ((nKata + nKunci) Mod 26) sPlain = sPlain & Chr((nEnc) + 65) Next i chiperteks.Text = sPlain End Sub End Class Form Kriptografi Viginere Public Class Kriptografi_Viginere Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text) End Sub Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String Dim j As Integer Dim jum As Integer Dim sKey As String Dim nKata As Integer Dim nKunci As Integer Dim sKata As String Dim sPlain As String Dim nEnc As Integer j = 0 jum = Len(Teks) sPlain = "" sKey = Kunci sKata = Teks For i = 1 To jum If j = Len(sKey) Then j = 1 Else j = j + 1 End If nKata = Asc(Mid(sKata, i, 1)) nKunci = Asc(Mid(sKey, j, 1)) nEnc = ((nKata + nKunci) Mod 256) sPlain = sPlain & Chr((nEnc)) Next i Enkripsi = sPlain End Function Private Sub Kriptografi_Viginere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

»»  READMORE...

REVIEW MESRAN.NET

saya adalah salah satu mahasiswi di Stmik.Budidarma, sesuai dengan jurusan perkuliahan yang saya ambil,saya banyak mempelajari tentang ilmu pemrograman diantaranya: java,java script,pascal,php,vb.net Dan masih banyak lagi yang lainya.
dalam hal mempelajari ilmu pemrograman saya tidak bisa belajar hanya dalam waktu perkuliahan saja,saya mencoba mempelajari semua itu di rumah,dan saya sangat beruntung karna menemukan sebuah website yaitu Mesran.net yang mana didalamnya banyak terdapat apa yang saya cari mulai dari informasi terkini,ilmu pemrograman,sampai saya juga bisa dengan mudah men-download software-software yang saya butuhkan.
tidak hanya itu Mesran.net juaga banyak menginformasikan tentang workshop-workshop pemrograman buat mahasiswa yang baru pemula, atau yang lagi bingung buat nentuin judul T.A dan Skripsi di mesran.net juga tersedia lengkap.
jadi buat teman-teman yang lagi bingung atau bosan buka situs yang itu-itu aja mendingan langsung aja kunjuning website mesran.net.
saya yakin selain menambah ilmu, disana juga anda akan menemukan wawasan yang lebih luas lagi tentang ilmu-ilmu pemrograman khususnya....
sekian dulu ya ulasan saya tentang mesran.net semoga bermanfaat bagi kalian semua yang ingin menambah ilmu pemrogramannya.:-) 

yg terhormat kepada master blogger kita pak mesran.net..

saya sangat berterima kasih kepada pak mesran,..
karena dngan adanya blogger mesran.net ini saya bisa mempelajari banyak hal...

»»  READMORE...