Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Kamis, 23 Mei 2013 | 00:43 WIB | Dibaca : 4486 kali | Kategori : Prog VB.NET
Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Ok nih pagi hari ini saya akan menshare kan contoh penggunaan kriptografi untuk mengamankan data yang akan tersimpan ke dalam record yang terdapat pada database. Contoh berikut menggunakan Kriptografi Caesar, Sederhana, Mudah dan Terkenal.

Anda ingin tahu beda Tanpa Kriptografi dengan menggunakan Kriptografi? Lihat saja gambar berikut ini :

Tabel berikut ini tanpa kriptografi
Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Saya jamin anda pasti bisa dengan mudah memahami data diatas tersebut bukan?

coba anda pahami data pada 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 pada record database menggunakan program VB NET

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

Tabel : Nasabah

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

Simpan pada drive C:

Kemudian silahkan design form nasabah seperti tampilan berikut ini.

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Berikut listing program Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Imports System.Data.OleDb

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 pada 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 pada record database menggunakan 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 untuk melakukan Enkripsi dan Dekripsi dapat 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 pada record database menggunakan program VB NET. Semoga anda dapat memahaminya

   

Tag : Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET, program vb net, kriptografi pada vb net


Bila berita ini bermanfaat silahkan share Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Anda berada di halaman Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET, dan telah membaca artikel Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET. Artikel Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET bisa anda peroleh pada halaman http://www.mesran.web.id/berita-643-penerapan-kriptografi-pada-record-database-menggunakan-program-vb-net.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id