Cara enkripsi database SQLite dengan VB.Net

Sumber : http://puncakdunia.wordpress.com/2012/05/25/cara-enkripsi-database-sqlite-dengan-vb-net/#more-126

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

supaya data tersebut tidak dapat dibaca maka kita harus mengenkripsinya database tersebut.

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
   
3. Tekan F7 untuk masuk ke jendela code Visual Basic,tambahkan statement
   Imports System.Data.SQLite
   di dalam Class Form1 tambahkan code berikut:

   1	Dim cn As New SQLite.SQLiteConnection

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

   3	Private Sub enkripsi()

   4	cn = New SQLite.SQLiteConnection

   5	cn.ConnectionString = "Data Source = D:\data.sqlite;"

   6

   cn.Open()

   7	cn.ChangePassword(pazzword)

   8	cn.Close()

   9

   End Sub

   Pada event Form1 Load panggil prosedur Enkripsi:

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

   2	enkripsi()

   3

   End Sub

   Sehingga kode keseluruhan menjadi:

   01	Imports System.Data.SQLite

   02	Public Class Form1

   03	Dim cn As New SQLite.SQLiteConnection

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

   05	Private Sub enkripsi()

   06	cn = New SQLite.SQLiteConnection

   07	cn.ConnectionString = "Data Source = D:\data.sqlite;"

   08

   cn.Open()

   09	cn.ChangePassword(pazzword)

   10	cn.Close()

   11	MsgBox("data sudah terenkripsi", MsgBoxStyle.OkOnly, "SQLite")

   12

   13

   End Sub

   14

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

   16	enkripsi()

   17

   End Sub

   18

   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
    

B.Membuka Database SQLite yang terenkripsi

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

itu 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(pazzword)  menjadi cn.SetPassword(pazzword)

sehingga codenya menjadi:

1	Dim cn As New SQLite.SQLiteConnection

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

3	Private Sub bukadata()

4	cn = New SQLite.SQLiteConnection

5	cn.ConnectionString = "Data Source = D:\data.sqlite;"

6	cn.SetPassword(pazzword)

7

cn.Open()

8	cn.Close()

9

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:

01	Dim cn As New SQLite.SQLiteConnection

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

03	Private Sub decrypt()

04	cn = New SQLite.SQLiteConnection

05	cn.ConnectionString = "Data Source = D:\data.sqlite;"

06	cn.SetPassword(pazzword)

07

cn.Open()

08	cn.ChangePassword("")

09

10

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