Enkripsi Tabel Ms Access Menggunakan Visual Basic

Enkripsi Tabel Ms Access Menggunakan Visual Basic.  Pasti anda pernah membuat sebuah aplikasi dengan menggunakan database MS Access, apakah tabel untuk akses ke aplikasi tersebut sudah di enkripsi ? supaya tidak sembarangan orang mengetahui user name dan password untuk login ke aplikasi tersebut. Tapi kebanyakan aplikasi yang dibuat tabelnya tidak di enkripsi, jika seseorang tidak bisa login ke aplikasi tersebut dapat dengan mudah membuka databasenya dengan cara membuka tabel untuk login, di situ dapat menemukan user dan passwordnya. Dan aplikasi yang kita buat dapat dengan mudah di buka oleh sembarang orang. Pada postingan sebelumnya saya pernah membahas cara menggunakan enkripsi MD5 pada database MySQL.

Dalam postingan ini akan membahas cara enkripsi tabel ms access sehingga tidak dengan mudah aplikasi kita dibobol. Dengan cara menambakan beberapa karakter setiap karakter yang kita inputkan ke dalam textbox. pada tutorial Enkripsi Tabel Ms Access Menggunakan Visual Basic ini saya akan memberi contoh pada penggunaan input data user yang meliputi input user name dan password, kita akan mengenkripsi kedua field tersebut. Berikut langkah-langkahnya:

Pertama buatlah sebuah database dari ms access silahkan beri nama test.mdb atau yang lain sesuai selera kemudian buatlah sebuah tabel dengan nama pengguna dengan dua field yaitu nama dan pass.seperti gambar berikut ini.

Tampilkan Gambar

Kedua bukalah visual basic 6 dan desainlah sebuah form siapkan 3 textbox dan dua commandbutton seperti form berikut ini

Tampilkan Gambar

Ketiga yaitu penulisan koding. Jika sudah selesai silahkan ketik koding seperti berikut ini jangan sampai ada yang salah ketik.

Buatlah sebuah modul dengan cara klik menu project- add modul lalu ketikan kode berikut ini

Public Conn As New ADODB.Connection
Public RsUser As ADODB.Recordset
Public sNama As String
Public sPassword As String

Public Sub Buka()
    Set Conn = New ADODB.Connection
    Set RsUser = New ADODB.Recordset
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"
End Sub

Ketikan kode ini pada text1 sebagi inputan nama

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 Then
        'untuk mengubah huruf kecil menjadi besar
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        'enkripsi dengan menambah karakter keyascii 29 karakter
        sNama = sNama & Chr(KeyAscii + 29)
    End If
End Sub

Lalu ketikan kode di bawah ini pada Text2

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 Then
        'untuk mengubah huruf kecil menjadi besar
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        'enkripsi dengan menambah karakter keyascii 45 karakter
        sPassword = sPassword & Chr(KeyAscii + 45)
    End If
End Sub

Kemudian tulislah kode ini pada commandbutton yang digunakan untuk menyimpan data

Private Sub Command1_Click()
    Call Buka
    If Text2.Text <> Text3.Text Then
        pesan = MsgBox("Pasword Tidak Sama, Ulangi Lagi...!", vbCritical, "Perhatian")
        Exit Sub
    Else
        Dim SQLAdd As String
        SQLAdd = " INSERT Into pengguna (nama,pass)values('" & sNama & "','" & sPassword & "')"
        Conn.Execute SQLAdd
        MsgBox "Penambahan User Baru Berhasil....", vbInformation, "Informasi..."
    End If
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
End Sub

Jika sudah silahkan dijalankan dan diisi datanya. jika berhasil maka tabelnya jika dibuka hasilnya seperti berikut ini. semoga bermanfaat

Tampilkan Gambar

Jika menginngnkan source codenya silahkan download link dibawah ini. dalam source code tersebut sudah ada form untuk login ke menu utama dengan menggunakan tabel yang telah dienkripsi.

Download

Tags:
Enkripsi, Enkripsi Tabel Ms Access Menggunakan Visual Basic, Enkripsi MD5, database,Pengamanan database, Password Login, enkripsi tabel, enkripsi database