• Registered: 2014-02-17
  • Posts: 375

Topic: How To Show WorkShop "FULL DB Encryption" ???

From Post "FULL DB Encryption"
http://myvisualdatabase.com/forum/viewtopic.php?id=2270

1. You should delete sqlite.db file from your project.

2. Put PRAGMA key="password" to between begin end. in your script project.
example:

begin
    SQLExecute('PRAGMA key = ''passphrase'';');
end.


3. Save the project.
4. Copy your sqlite.dll to the project folder.
5. Run your project from the project folder. (if you run the project from MVD, your file sqlite.dll will be replaced original version)

I try but not have effect help to record video or project  for example ???
Thank You Very Much

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To Show WorkShop "FULL DB Encryption" ???

First you should download this sqlite.dll file and replace it in the folder My Visual Database and in the project folder
http://myvisualdatabase.com/forum/viewt … 243#p13243



Also how you check to there is no effect?

Dmitry.
  • Registered: 2014-02-17
  • Posts: 375

Re: How To Show WorkShop "FULL DB Encryption" ???

No Effect or i try wrong ???

please attach Example for download ???

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To Show WorkShop "FULL DB Encryption" ???

prahousefamily wrote:

No Effect or i try wrong ???

please attach Example for download ???

Please attach your project, I will check it.

Dmitry.
  • Registered: 2014-02-17
  • Posts: 375

Re: How To Show WorkShop "FULL DB Encryption" ???

Dmitry. Help me please show 
how to "FULL DB Encryption" Step By Step

I will to lock sqlite.db by script  " SQLExecute('PRAGMA key = ''passphrase'';'); "
have application.exe by compile MVD open  only

and lock database client etc  cannot open it

Thank You Very much

Post's attachments

Attachment icon Example FULL DB Encryption.zip 4.27 kb, 414 downloads since 2016-09-30 

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To Show WorkShop "FULL DB Encryption" ???

prahousefamily
Only after SQLExecute('PRAGMA key = ''aaa'';'); you can use another sql queries.
Fixed script:


var
    SqliteTr: TDBXSqliteTransaction;
    i: integer;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    SQLExecute(
    ' DROP TABLE IF EXISTS "main"."user" ; ');
    SQLExecute(
    ' CREATE TABLE "main"."user" ( '+
    ' "id"  INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, '+
    ' "user"  TEXT,"password"  TEXT, '+
    ' CONSTRAINT "user_uniq" UNIQUE ("user" ASC) ON CONFLICT REPLACE);'
    );
    SqliteTr := BeginSQLiteTransaction;
    for i:= 1 to 1000 do SQLExecute('INSERT INTO user (user,password) VALUES(''user'+inttostr(i)+''','''+
    StrToMD5(inttostr(i))+''')');
    CommitSQLiteTransaction(SqliteTr);
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid1.dbSQL := 'select * from sqlite_master;';
    Form1.TableGrid1.dbSQLExecute ;
    Form1.TableGrid2.dbSQL := 'select * from user;';
    Form1.TableGrid2.dbSQLExecute ;
end;


begin
    SQLExecute('PRAGMA key = ''aaa'';');
end.
Dmitry.