Green Android

KRIPTOGRAFI                                     Coding Kriftografi caesar Public Class kriptografi_caesar     Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.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         chipe...

Vigenere Cipher Wahh, kita mengarah ke kriptografi dulu yah…:D, karna lumayan enak juga di pelajari jika kita paham untuk masalah ini. Vigenere Cipher , merupakan pengembangan dari Caesar Cipher merupakan metode menyandikan teks alfphabet dengan menggunakan sederetan sandi caesar berdasarkan huruf huruf pada kata kunci.  Jadi penyandian dengan metode ini juga sudah menggunakan kunci. Enkripsi (penyandian) dengan sandi Vigenere  dapat ditulis secara matematis, dengan menggunakan penjumlahan dan operasi  modulus, yaitu : dan dekripsi, yaitu : Keterangan: Ci adalah huruf ke-i pada teks tersandi, Pi adalah huruf ke-i pada teks terang, Ki adalah huruf ke-i pada kata kunci, dan mod adalah operasi modulus (sisa pembagian) Proses menyandikan tabel Vigenere, cukup sederhana apabila melihat berdasarkan tabel berikut ini : Contoh : Plainteks : SUMATERA Kunci :  UTARA Nah untuk semua plainteks SUMATERA di berikan kunci UTARA yang di...

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         daerah.Items.Add("MED")         daerah.Items.Add("BEL")         daerah.Items.Add("MAR")         daerah.Items.Add("BIN")         daerah.Items.Add("PAK")         pelanggan.Items.Add("TOK")         pelanggan.Items.Add("RUM")         pelanggan.Items.Add("SWA")         pelanggan.Items.Add("PAB")         nourut.Items.Add("100")         nourut.Items.Add("200")         nourut.Items.Add("300")       ...

Copy kode program dibawah ini lalu pastekan diarea kode VB STUDIO 2008 anda : Public Class Form1     Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click         kp.Text = ""         nama.Text = ""         tipe.Text = ""         harga.Text = ""         jp.Text = ""         tt.Text = ""         pembayaran.Text = ""         daerah.Text = ""         bb.Text = ""         pajak.Text = ""     End Sub     Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged         Dim x As String         x = Microsoft.VisualBasic.Right(kp.Text, 3)         Select Case x ...