SQLite merupakan data yang simple,baik dalam pembuatan dan pemakaiannya,namun tahukah anda bahwa ternyata database SQLite masih dapat dibuka dengan editor seperti notepad, dengan demikian orang yang tak memiliki hak pun dapat melihat data – data yang tersimpan didalam SQLite

ini adalah database SQLite yang belum terenkripsi

cara enkripsi sqlite dgn vb.net__supaya data tersebut tidak dapat dibaca maka kita harus mengenkripsinya database tersebut.

cara enkripsi sqlite dgn vb.net_data yang sudah terenkripsi

Nah saya akan share cara mengenkripsi database SQLite,membuka database yang terenkipsi dan mengembalikan database yang sudah terenkripsi dengan menggunakan Visual Basic 2008 (VB.net) dan pastikan juga sudah menginstall ADO.NET khusus database SQLite

A.Mengenkripsi database SQLite

  1. Pertama yang anda harus lakukan adalah membuat database SQLite terlebih dahulu anda bisa menggunakan SQLite Management Tool untuk membuatnya.
    Buat database lengkap dengan table, field serta record recordnya.Tempatkan database tersebut di direktori yang mudah diingat,misalkan saya menempatkannya di D:\
  2. Buka Visual Basic .NET buatlah Project baru ,tambahkan Reference System.Data.SQLite caranya klik Project >> Add Reference.. >> pilih Tab Browser pergi ke C:\Program Files\SQLite.NET\bin dan pilih System.Data.SQLite klik Open
    cara enkripsi sqlite dgn vb.net_menambah refensi
  3. Tekan F7 untuk masuk ke jendela code Visual Basic,tambahkan statement
    Imports System.Data.SQLite
    di dalam Class Form1 tambahkan code berikut:
        Dim cn As New SQLite.SQLiteConnection
        Dim pazzword As Byte() = {132, 198, 176, 142, 182}
        Private Sub enkripsi()
            cn = New SQLite.SQLiteConnection
            cn.ConnectionString = "Data Source = D:\data.sqlite;"
            cn.Open()
            cn.ChangePassword(pazzword)
            cn.Close()
           End Sub
    

    Pada event Form1 Load panggil prosedur Enkripsi:

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

    Sehingga kode keseluruhan menjadi:

    Imports System.Data.SQLite
    Public Class Form1
        Dim cn As New SQLite.SQLiteConnection
        Dim pazzword As Byte() = {132, 198, 176, 142, 182}
        Private Sub enkripsi()
            cn = New SQLite.SQLiteConnection
            cn.ConnectionString = "Data Source = D:\data.sqlite;"
            cn.Open()
            cn.ChangePassword(pazzword)
            cn.Close()
            MsgBox("data sudah terenkripsi", MsgBoxStyle.OkOnly, "SQLite")
    
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            enkripsi()
        End Sub
    End Class
    
  4. Jalankan Project anda, memang tidak terlihat apa apa,hentikan project anda dan coba buka database yang anda buat tadi dengan editor seperti notepad,
    maka datanya sudah terenkripsi dan tidak dapat dibaca lagi
    cara enkripsi sqlite dgn vb.net_data yang sudah terenkripsi 

B.Membuka Database SQLite yang terenkripsi

Kalau anda menjalankan lagi Project tadi maka akan tampil pesan seperti ini:

cara enkripsi sqlite dgn vb.net 03itu karena database tersebut tidak bisa dibuka oleh VB, dikarnakan file database terenkripsi

lalu bagaimana  membuka database tersebut??

yang perlu dilakukan hanyalah menghapus  penempatan cn.ChangePassword(pazzword) yang berada dibawah cn.open() dan mengganti cn.ChangePassword(pazzwordmenjadi cn.SetPassword(pazzword)

sehingga codenya menjadi:

Dim cn As New SQLite.SQLiteConnection
Dim pazzword As Byte() = {132, 198, 176, 142, 182}
Private Sub bukadata()
cn = New SQLite.SQLiteConnection
cn.ConnectionString = "Data Source = D:\data.sqlite;"
cn.SetPassword(pazzword)
cn.Open()
cn.Close()
End Sub

Pada event Form1 Load jangan lupa untuk memanggil prosedur bukadata

C.Mengembalikan database yang sudah terenkripsi (Decrypt)

Setelah mengenkripsi , membuka data yang terenkripsi maka selanjutnya adalah mengembalikan database SQLite yang sudah terenkripsi.

untuk cara ini hanyalah mengganti password database menjadi blank, Berikut kodenya:


Dim cn As New SQLite.SQLiteConnection
Dim pazzword As Byte() = {132, 198, 176, 142, 182}
Private Sub decrypt()
cn = New SQLite.SQLiteConnection
cn.ConnectionString = "Data Source = D:\data.sqlite;"
cn.SetPassword(pazzword)
cn.Open()
cn.ChangePassword("")

End Sub

*Catatan:

Perhatikan variabel berikut

Dim pazzword As Byte() = {132, 198, 176, 142, 182}

value data tidaklah harus 132, 198, 176, 142, 182 anda bisa mengubah sesuai keinginan yang penting value tersebut tidak lebih dari 255.

saya punya contoh program vb .net yang sudah menggunakan SQlite terenkripsi, silahkan buka databasenya kalo gag percaya😀 hehe

DOWNLOAD Contoh Program