Anda ingin tahu beda Tanpa Kriptografi dengan menggunakan Kriptografi? Lihat saja gambar berikut ini :
Tabel berikut ini tanpa kriptografi
Saya jamin anda pasti bisa dengan
coba anda pahami data pada gambar berikut.
Tabel tersebut diatas setelah memakai kriptografi
Bagaimana? ingin tahu cara membuatnya? silahkan ikuti penerapan kriptografi pada record database menggunakan program
Terlebih dahulu buatlah database Nasabah.MDB dengan struktur tabel seperti berikut ini :
Tabel : Nasabah
Field Tipe Size
------------------------------
Kode
Nama
Alamat Text 100
Telp Text 15
Simpan pada drive C:
Kemudian silahkan
Berikut listing program Penerapan Kriptografi Pada Record Database Menggunakan Program
Public Class Form1
Public DB As OleDbConnection
Public CMD As OleDbCommand
Public
Public DS As New DataSet
Public
Function ENCCaesar(ByVal
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
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 TombolBaru()
btnBaru.Enabled = True
btnSimpan.Enabled =
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
"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.
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.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
Screen Pertama
Sewaktu data disearching maka record asli masih nampak, tanpa dilakukan Dekripsi
Screen Kedua
Setelah di Dekripsikan maka akan terlihat record aslinya.
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
Post a Comment