programer skripsi tesis tugas akhir
-

Contoh Program Source Code   /

Kriptografi Sandi Caesar Visual Basic

Posted on 06.56
Join with us

Kriptografi Sandi Caesar

Sandi Caesar atau sandi geser merupakan algoritma simestris yg paling sederhana dlm memahami sekelumit kecil tentang Kriptografi. Ini merupakan teknik enkripsi paling sederhana namun terkenal.

Nama Sandi Caesar diambil dari Julius Caesar, yg menurut buku Suetonius Kehidupan Duabelas Caesar, memakai sandi ini dg geseran tiga, unt mengirim pesan yg mengandung rahasia / taktik militer.
Jika ia memiliki suatu rahasia yg akan disampaikan, ia menuliskannya dlm sandi, dg mengganti urutan abjad, sehingga tak satu kata pun dpt dimengerti. Jika ada yg ingin membaca pesan-pesan ini, ia harus mengganti huruf keempat dlm alfabet, yaitu D, unt A, & seterusnya unt huruf-huruf lain. - Suetonius, Kehidupan Julius Caesar 
Keponakan Caesar, Augustus juga memakai skema sandi Caesar, namun dg geseran satu ke kanan, dg sedikit perbedaan.
Jika ia hendak menulis sandi, ia menuliskan B unt A, C unt B, & seterusnya, serta AA unt Z. — Suetonius, Kehidupan Augustus 88.
Juga terdapat bukti bahwa Julius Caesar juga memakai sistem yg lebih rumit. Penulis Aulus Gellius, merujuk pd sebuah risalah (yang sekarang hilang) dlm sandi-sandinya.

Bahkan terdapat suatu risalah yg ditulis secara cerdas oleh ahli tatabahasa Probus tentang arti rahasia dari huruf-huruf yg menyusun surat-surat Caesar — Aulus Gellius,


Masih belum diketahui seberapa efektif sandi Caesar pd waktu itu, namun kemungkinan besar sandi tersebut cukup aman, karena amat sedikit dari musuh Caesar yg dpt membaca, apalagi yg dpt memecahkan sandi. Tidak ada catatan tentang ditemukannya solusi unt memecahkan sandi Caesar pd zaman itu. Catatan tertua tentang pemecahan sandi substitusi monoalfabetik seperti sandi Caesar adalah pd abad ke-9, oleh kebudayaan Arab Muslim yg menemukan analisis frekuensi.

Dalam kriptografi, sandi Caesar, / sandi geser, kode Caesar / Geseran Caesar adalah salah satu teknik enkripsi paling sederhana & paling terkenal. Sandi ini termasuk sandi substitusi dimana setiap huruf pd teks terang (plaintext) digantikan oleh huruf lain yg memiliki selisih posisi tertentu dlm alfabet. Misalnya, jika memakai geseran 3, W akan menjadi Z, I menjadi L, & K menjadi N sehingga teks terang "wiki" akan menjadi "ZLNL" pd teks tersandi. Nama Caesar diambil dari Julius Caesar, jenderal, konsul, & diktator Romawi yg memakai sandi ini unt berkomunikasi dg para panglimanya.

Langkah enkripsi oleh sandi Caesar sering dijadikan bagian dari penyandian yg lebih rumit, seperti sandi Vigenère, & masih memiliki aplikasi modern pd sistem ROT13. Pada saat ini, seperti halnya sandi substitusi alfabet tunggal lainnya, sandi Caesar dpt dg mudah dipecahkan & praktis tidak memberikan kerahasiaan bagi pemakainya.

Contoh :

Cara kerja sandi ini dpt diilustrasikan dg membariskan dua set alfabet; alfabet sandi disusun dg cara menggeser alfabet biasa ke kanan / ke kiri dg angka tertentu (angka ini disebut kunci). Misalnya sandi Caesar dg kunci 3, adalah sebagai berikut:
Alfabet Biasa:   ABCDEFGHIJKLMNOPQRSTUVWXYZ
Alfabet Sandi:   DEFGHIJKLMNOPQRSTUVWXYZABC
Untuk menyandikan sebuah pesan, cukup mencari setiap huruf yg hendak disandikan di alfabet biasa, lalu tuliskan huruf yg sesuai pd alfabet sandi. Untuk memecahkan sandi tersebut gunakan cara sebaliknya. Contoh penyandian sebuah pesan adalah sebagai berikut.
teks terang:   kirim pasukan ke sayap kiri
teks tersandi: NLULP SDVXNDQ NH VDBDS NLUL
Cara kerjanya cukup gampang, tinggal menggeser deretan huruf sebanyak 3 posisi, seperti gambar di bawah ini. Cukup mudah bukan?


 Kriptografi Sandi Caesar Visual Basic
Kriptografi Sandi Caesar Visual Basic

Proses penyandian (enkripsi) dpt secara matematis memakai operasi modulus dg mengubah huruf-huruf menjadi angka, A = 0, B = 1,..., Z = 25. Sandi (E_n)  dari "huruf" x dg geseran n secara matematis dituliskan dg,

E_n(x) = (x + n) \mod {26}.

Sedangkan pd proses pemecahan kode (dekripsi), hasil dekripsi (D_n) adalah

D_n(x) = (x - n) \mod {26}.

Setiap huruf yg sama digantikan oleh huruf yg sama di sepanjang pesan, sehingga sandi Caesar digolongkan kepada, substitusi monoalfabetik, yg berlawanan dg substitusi polialfabetik.




Rumus unt Enkripsi Caesar yaitu :

C = P + 3 mod 26

Sedangkan unt Dekripsinya :

P = C - 3 mod 26

Diketahui :
C = Cipherteks
P = Plainteks

Gampang bukan.

Designlah seperti gambar Kriptografi Caesar di bawah.





Berikut listing programnya.





Public Class Form1
    Private Sub btnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkripsi.Click        Dim x As String        Dim bil As Integer        Cipher.Text = ""        For i = 1 To Len(Plain.Text)            x = Microsoft.VisualBasic.Mid(Plain.Text, i, 1)            bil = Asc(x)            bil = bil + 3            x = Chr(bil)            Cipher.Text = Cipher.Text & x        Next    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Plain.Text = ""        Cipher.Text = ""
    End Sub
End ClassEnd Class





Penerapan Kriptografi Pada Record Database


Anda ingin tahu beda Tanpa Kriptografi dg memakai Kriptografi? Lihat saja gambar berikut ini :

Tabel berikut ini tanpa kriptografi

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Saya jamin kalian pasti bisa dg mudah memahami data diatas tersebut bukan? 

coba kalian pahami data pd gambar berikut.

Penerapan 

Kriptografi Pada Record Database Menggunakan Program VB NET

Tabel tersebut diatas setelah memakai kriptografi

Bagaimana? ingin tahu cara membuatnya? silahkan ikuti penerapan kriptografi pd record database memakai program VB NET

Terlebih dahulu buatlah database Nasabah.MDB dg struktur tabel seperti berikut ini :

Tabel : Nasabah

Field    Tipe  Size
------------------------------
Kode    Text    5    
Nama    Text    50
Alamat    Text    100
Telp    Text    15

Simpan pd drive C:

Kemudian silahkan design form nasabah seperti tampilan berikut ini.

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET



Public Class Form1

    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Public SQL As String

    Function ENCCaesar(ByVal Plain As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Plain)
            x = Mid(Plain, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        ENCCaesar = xkalimat
    End Function

    Function DECCaesar(ByVal Chiper As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper)
            x = Mid(Chiper, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        DECCaesar = xkalimat
    End Function

    Public Sub OPENDB()
        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:Nasabah.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub TombolBaru()
        btnBaru.Enabled = True
        btnSimpan.Enabled = False
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
    End Sub

    Sub TombolEdit()
        btnBaru.Enabled = False
        btnSimpan.Enabled = False
        btnEdit.Enabled = True
        btnHapus.Enabled = True
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub TombolSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub HapusForm()
        Kode.Text = ""
        Nama.Text = ""
        Alamat.Text = ""
        Telp.Text = ""
        Call TombolBaru()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OPENDB()
        Call HapusForm()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        SQL = "INSERT INTO Nasabah(Kode, Nama, Alamat, Telp)" & _
                  "Values (`" & Kode.Text & "`,`" & _
                                ENCCaesar(Nama.Text) & "`,`" & _
                                ENCCaesar(Alamat.Text) & "`,`" & _
                                ENCCaesar(Telp.Text) & "`)"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        SQL = "UPDATE Nasabah SET Nama=`" & ENCCaesar(Nama.Text) & "`, " & _
                                    " Alamat=`" & ENCCaesar(Alamat.Text) & "`, " & _
                                    " Telp=`" & ENCCaesar(Telp.Text) & "` " & _
                                    " Where Kode=`" & Kode.Text & "`"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "DELETE FROM Nasabah Where Kode=`" & Kode.Text & "`"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        Call HapusForm()
        Kode.Focus()
    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
        ` Gunakan T pd SELEC
            SQL = "SELEC * FROM Nasabah Where Kode=`" & Kode.Text & "`"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                Nama.Text = DECCaesar(DR("Nama"))
                Alamat.Text = DECCaesar(DR("Alamat"))
                Telp.Text = DECCaesar(DR("Telp"))
                Call TombolEdit()
                MsgBox("Data Ini Sudah Tersimpan Pada Tabel Nasabah !")
            Else
                xkode = Kode.Text
                Call HapusForm()
                Kode.Text = xkode
                Call TombolSimpan()
            End If
            DR.Close()
            Nama.Focus()
        End If
    End Sub

End Class


Hasil Program penerapan kriptografi pd record database memakai program VB NET.

Screen Pertama
Sewaktu data disearching maka record asli masih nampak, tanpa dilakukan Dekripsi

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Screen Kedua
Setelah di Dekripsikan maka akan terlihat record aslinya.
Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET


Adapun fungsi unt melakukan Enkripsi & Dekripsi dpt dilihat berikut ini :

Saat melakukan Enkripsi



Function ENCCaesar(ByVal Plain As String) As String

        Dim x As String = ""

        Dim xkalimat As String = ""
        For i = 1 To Len(Plain)
            x = Mid(Plain, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        ENCCaesar = xkalimat
End Function


Lihat pemakaiannya disini.
      




  SQL = "INSERT INTO Nasabah(Kode, Nama, Alamat, Telp)" & _
                  "Values (`" & Kode.Text & "`,`" & _
                                ENCCaesar(Nama.Text) & "`,`" & _
                                ENCCaesar(Alamat.Text) & "`,`" & _
                                ENCCaesar(Telp.Text) & "`)"
serta
        SQL = "UPDATE Nasabah SET Nama=`" & ENCCaesar(Nama.Text) & "`, " & _
                                    " Alamat=`" & ENCCaesar(Alamat.Text) & "`, " & _
                                    " Telp=`" & ENCCaesar(Telp.Text) & "` " & _
                                    " Where Kode=`" & Kode.Text & "`"


Saat melakukan Dekripsi





    Function DECCaesar(ByVal Chiper As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper)
            x = Mid(Chiper, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        DECCaesar = xkalimat
    End Function


dan lihat pemakaiannya disini.


        Nama.Text = DECCaesar(DR("Nama"))
        Alamat.Text = DECCaesar(DR("Alamat"))
        Telp.Text = DECCaesar(DR("Telp"))



Demikianlah pembahasan penerapan kriptografi pd record database memakai program VB NET. Semoga kalian dpt memahaminya



Kriptografi Sandi Caesar

Sandi Caesar atau sandi geser merupakan algoritma simestris yg paling sederhana dlm memahami sekelumit kecil tentang Kriptografi. Ini merupakan teknik enkripsi paling sederhana namun terkenal.

Nama Sandi Caesar diambil dari Julius Caesar, yg menurut buku Suetonius Kehidupan Duabelas Caesar, memakai sandi ini dg geseran tiga, unt mengirim pesan yg mengandung rahasia / taktik militer.
Jika ia memiliki suatu rahasia yg akan disampaikan, ia menuliskannya dlm sandi, dg mengganti urutan abjad, sehingga tak satu kata pun dpt dimengerti. Jika ada yg ingin membaca pesan-pesan ini, ia harus mengganti huruf keempat dlm alfabet, yaitu D, unt A, & seterusnya unt huruf-huruf lain. - Suetonius, Kehidupan Julius Caesar 
Keponakan Caesar, Augustus juga memakai skema sandi Caesar, namun dg geseran satu ke kanan, dg sedikit perbedaan.
Jika ia hendak menulis sandi, ia menuliskan B unt A, C unt B, & seterusnya, serta AA unt Z. — Suetonius, Kehidupan Augustus 88.
Juga terdapat bukti bahwa Julius Caesar juga memakai sistem yg lebih rumit. Penulis Aulus Gellius, merujuk pd sebuah risalah (yang sekarang hilang) dlm sandi-sandinya.

Bahkan terdapat suatu risalah yg ditulis secara cerdas oleh ahli tatabahasa Probus tentang arti rahasia dari huruf-huruf yg menyusun surat-surat Caesar — Aulus Gellius,


Masih belum diketahui seberapa efektif sandi Caesar pd waktu itu, namun kemungkinan besar sandi tersebut cukup aman, karena amat sedikit dari musuh Caesar yg dpt membaca, apalagi yg dpt memecahkan sandi. Tidak ada catatan tentang ditemukannya solusi unt memecahkan sandi Caesar pd zaman itu. Catatan tertua tentang pemecahan sandi substitusi monoalfabetik seperti sandi Caesar adalah pd abad ke-9, oleh kebudayaan Arab Muslim yg menemukan analisis frekuensi.

Dalam kriptografi, sandi Caesar, / sandi geser, kode Caesar / Geseran Caesar adalah salah satu teknik enkripsi paling sederhana & paling terkenal. Sandi ini termasuk sandi substitusi dimana setiap huruf pd teks terang (plaintext) digantikan oleh huruf lain yg memiliki selisih posisi tertentu dlm alfabet. Misalnya, jika memakai geseran 3, W akan menjadi Z, I menjadi L, & K menjadi N sehingga teks terang "wiki" akan menjadi "ZLNL" pd teks tersandi. Nama Caesar diambil dari Julius Caesar, jenderal, konsul, & diktator Romawi yg memakai sandi ini unt berkomunikasi dg para panglimanya.

Langkah enkripsi oleh sandi Caesar sering dijadikan bagian dari penyandian yg lebih rumit, seperti sandi Vigenère, & masih memiliki aplikasi modern pd sistem ROT13. Pada saat ini, seperti halnya sandi substitusi alfabet tunggal lainnya, sandi Caesar dpt dg mudah dipecahkan & praktis tidak memberikan kerahasiaan bagi pemakainya.

Contoh :

Cara kerja sandi ini dpt diilustrasikan dg membariskan dua set alfabet; alfabet sandi disusun dg cara menggeser alfabet biasa ke kanan / ke kiri dg angka tertentu (angka ini disebut kunci). Misalnya sandi Caesar dg kunci 3, adalah sebagai berikut:
Alfabet Biasa:   ABCDEFGHIJKLMNOPQRSTUVWXYZ
Alfabet Sandi:   DEFGHIJKLMNOPQRSTUVWXYZABC
Untuk menyandikan sebuah pesan, cukup mencari setiap huruf yg hendak disandikan di alfabet biasa, lalu tuliskan huruf yg sesuai pd alfabet sandi. Untuk memecahkan sandi tersebut gunakan cara sebaliknya. Contoh penyandian sebuah pesan adalah sebagai berikut.
teks terang:   kirim pasukan ke sayap kiri
teks tersandi: NLULP SDVXNDQ NH VDBDS NLUL
Cara kerjanya cukup gampang, tinggal menggeser deretan huruf sebanyak 3 posisi, seperti gambar di bawah ini. Cukup mudah bukan?


 Kriptografi Sandi Caesar Visual Basic
Kriptografi Sandi Caesar Visual Basic

Proses penyandian (enkripsi) dpt secara matematis memakai operasi modulus dg mengubah huruf-huruf menjadi angka, A = 0, B = 1,..., Z = 25. Sandi (E_n)  dari "huruf" x dg geseran n secara matematis dituliskan dg,

E_n(x) = (x + n) \mod {26}.

Sedangkan pd proses pemecahan kode (dekripsi), hasil dekripsi (D_n) adalah

D_n(x) = (x - n) \mod {26}.

Setiap huruf yg sama digantikan oleh huruf yg sama di sepanjang pesan, sehingga sandi Caesar digolongkan kepada, substitusi monoalfabetik, yg berlawanan dg substitusi polialfabetik.




Rumus unt Enkripsi Caesar yaitu :

C = P + 3 mod 26

Sedangkan unt Dekripsinya :

P = C - 3 mod 26

Diketahui :
C = Cipherteks
P = Plainteks

Gampang bukan.

Designlah seperti gambar Kriptografi Caesar di bawah.





Berikut listing programnya.





Public Class Form1
    Private Sub btnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkripsi.Click        Dim x As String        Dim bil As Integer        Cipher.Text = ""        For i = 1 To Len(Plain.Text)            x = Microsoft.VisualBasic.Mid(Plain.Text, i, 1)            bil = Asc(x)            bil = bil + 3            x = Chr(bil)            Cipher.Text = Cipher.Text & x        Next    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Plain.Text = ""        Cipher.Text = ""
    End Sub
End ClassEnd Class





Penerapan Kriptografi Pada Record Database


Anda ingin tahu beda Tanpa Kriptografi dg memakai Kriptografi? Lihat saja gambar berikut ini :

Tabel berikut ini tanpa kriptografi

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Saya jamin kalian pasti bisa dg mudah memahami data diatas tersebut bukan? 

coba kalian pahami data pd gambar berikut.

Penerapan 

Kriptografi Pada Record Database Menggunakan Program VB NET

Tabel tersebut diatas setelah memakai kriptografi

Bagaimana? ingin tahu cara membuatnya? silahkan ikuti penerapan kriptografi pd record database memakai program VB NET

Terlebih dahulu buatlah database Nasabah.MDB dg struktur tabel seperti berikut ini :

Tabel : Nasabah

Field    Tipe  Size
------------------------------
Kode    Text    5    
Nama    Text    50
Alamat    Text    100
Telp    Text    15

Simpan pd drive C:

Kemudian silahkan design form nasabah seperti tampilan berikut ini.

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET



Public Class Form1

    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Public SQL As String

    Function ENCCaesar(ByVal Plain As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Plain)
            x = Mid(Plain, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        ENCCaesar = xkalimat
    End Function

    Function DECCaesar(ByVal Chiper As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper)
            x = Mid(Chiper, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        DECCaesar = xkalimat
    End Function

    Public Sub OPENDB()
        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:Nasabah.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub TombolBaru()
        btnBaru.Enabled = True
        btnSimpan.Enabled = False
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
    End Sub

    Sub TombolEdit()
        btnBaru.Enabled = False
        btnSimpan.Enabled = False
        btnEdit.Enabled = True
        btnHapus.Enabled = True
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub TombolSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub HapusForm()
        Kode.Text = ""
        Nama.Text = ""
        Alamat.Text = ""
        Telp.Text = ""
        Call TombolBaru()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OPENDB()
        Call HapusForm()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        SQL = "INSERT INTO Nasabah(Kode, Nama, Alamat, Telp)" & _
                  "Values (`" & Kode.Text & "`,`" & _
                                ENCCaesar(Nama.Text) & "`,`" & _
                                ENCCaesar(Alamat.Text) & "`,`" & _
                                ENCCaesar(Telp.Text) & "`)"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        SQL = "UPDATE Nasabah SET Nama=`" & ENCCaesar(Nama.Text) & "`, " & _
                                    " Alamat=`" & ENCCaesar(Alamat.Text) & "`, " & _
                                    " Telp=`" & ENCCaesar(Telp.Text) & "` " & _
                                    " Where Kode=`" & Kode.Text & "`"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "DELETE FROM Nasabah Where Kode=`" & Kode.Text & "`"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        Call HapusForm()
        Kode.Focus()
    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
        ` Gunakan T pd SELEC
            SQL = "SELEC * FROM Nasabah Where Kode=`" & Kode.Text & "`"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                Nama.Text = DECCaesar(DR("Nama"))
                Alamat.Text = DECCaesar(DR("Alamat"))
                Telp.Text = DECCaesar(DR("Telp"))
                Call TombolEdit()
                MsgBox("Data Ini Sudah Tersimpan Pada Tabel Nasabah !")
            Else
                xkode = Kode.Text
                Call HapusForm()
                Kode.Text = xkode
                Call TombolSimpan()
            End If
            DR.Close()
            Nama.Focus()
        End If
    End Sub

End Class


Hasil Program penerapan kriptografi pd record database memakai program VB NET.

Screen Pertama
Sewaktu data disearching maka record asli masih nampak, tanpa dilakukan Dekripsi

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Screen Kedua
Setelah di Dekripsikan maka akan terlihat record aslinya.
Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET


Adapun fungsi unt melakukan Enkripsi & Dekripsi dpt dilihat berikut ini :

Saat melakukan Enkripsi



Function ENCCaesar(ByVal Plain As String) As String

        Dim x As String = ""

        Dim xkalimat As String = ""
        For i = 1 To Len(Plain)
            x = Mid(Plain, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        ENCCaesar = xkalimat
End Function


Lihat pemakaiannya disini.
      




  SQL = "INSERT INTO Nasabah(Kode, Nama, Alamat, Telp)" & _
                  "Values (`" & Kode.Text & "`,`" & _
                                ENCCaesar(Nama.Text) & "`,`" & _
                                ENCCaesar(Alamat.Text) & "`,`" & _
                                ENCCaesar(Telp.Text) & "`)"
serta
        SQL = "UPDATE Nasabah SET Nama=`" & ENCCaesar(Nama.Text) & "`, " & _
                                    " Alamat=`" & ENCCaesar(Alamat.Text) & "`, " & _
                                    " Telp=`" & ENCCaesar(Telp.Text) & "` " & _
                                    " Where Kode=`" & Kode.Text & "`"


Saat melakukan Dekripsi





    Function DECCaesar(ByVal Chiper As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper)
            x = Mid(Chiper, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        DECCaesar = xkalimat
    End Function


dan lihat pemakaiannya disini.


        Nama.Text = DECCaesar(DR("Nama"))
        Alamat.Text = DECCaesar(DR("Alamat"))
        Telp.Text = DECCaesar(DR("Telp"))



Demikianlah pembahasan penerapan kriptografi pd record database memakai program VB NET. Semoga kalian dpt memahaminya


Contoh Program Kriptografi Sandi Caesar Visual Basic

Source Code Kriptografi Sandi Caesar Visual Basic

Source Code Tutorial belajar Gratis download Flow Chart PDF ZIP RAR DOC Java C# Visual Basic VB PHP Matlab C++ Penerapan implementasi metode algoritma pemrograman

Tutorial belajar Kriptografi Sandi Caesar Visual Basic

VB PHP Matlab C++ Penerapan implementasi metode algoritma pemrograman Source Code Tutorial belajar Gratis download Flow Chart PDF ZIP RAR DOC Java C# Visual Basic

Gratis download Kriptografi Sandi Caesar Visual Basic

Chart PDF ZIP RAR DOC Java C# Visual Basic VB PHP Matlab C++ Penerapan implementasi metode algoritma pemrograman Source Code Tutorial belajar Gratis download Flow

Penerapan implementasi Kriptografi Sandi Caesar Visual Basic Kriptografi Sandi Caesar Visual Basic

Posted by: Project-G Contoh Program Kriptografi Sandi Caesar Visual Basic Updated at : 06.56
Jika Anda perlu source code terkait dengan artikel di atas atau ada yang ingin di tanyakan anda bisa melakukan konsultasi gratis kepada kami, melalui form di bawah. Hasil konsultasi akan di kirimkan ke email Anda. Kami mohon supportnya dengan mengklik beberapa tombol berikut :


Contoh Program Kriptografi Sandi Caesar Visual Basic

perhatian

Informasi Penting Untuk Mahasiswa !

Kami menawarkan layanan jasa konsultan bimbingan pembuatan program untuk Tesis Skripsi dan Tugas Akhir Informatika, Komputer, Elektro dan Teknik lainnya yang bidang minatnya mengarah ke teknologi informasi. BASED PROJECT :Mobile Development (Java, Adobe, AS3, Android, BB, iOS, WPhone dll), Web & Desktop Development (.Net, C#, MATLAB, PHP, Delphi, Visual Basic dll). BONUS : Di bimbing untuk penguasaan materi dan coding dan revisi.
detail
Label: , , , ,
Konsultasi gratis