让unidac支持加密的sqlite

sqlite是一款优秀的单文件数据库软件，只需一个dll就就完全包含数据库引擎的功能，而且可以嵌入至其它程序中，完全不用额外的设定。其特性如下：
* 支持ACID (Atomic, Consistent, Isolated, Durable) 交易。
* 零组态设定(Zero-configuration)，无须管理者的设定及管理。
* 支持大部分SQL92的语法。
* 数据库存在于一个单一的文件中。
* 数据库系统所在机器的字节顺序(Byte order)无关。
* 支援大小至2 TB (2^41 bytes)。
* 极小的内存需求:小于3万行的C语言程序代码。小于250KB的程序空间。
* 大部分的数据库操作皆快于一般流行的数据库系统。
* 简单易用的API。
* 支援TCL。也有其它语言的支持可用。
* 注释详细的程序代码，以及超过90%的测试。
* 链接库自己包含完整的功能，无须其它额外的程序或链接库。
* 程序代码版权为public domain。任何用途皆可免费使用。

不过sqlite开源版是不支持加密的，只留有接口，没有进行实现，不过开源界从来不缺乏雷锋，于是有了wxsqlite工程，wxsqlite是 sqlite的wxWidgets c++实现接口，顺便用aes加密算法实现了sqlite的加密功能，与sqlite 100%兼容，实在是赞！

我常用的数据库连接组件是unidac，最新的3.x版本已经支持sqlite，不过也没有实现加密函数定义，于是自已动手帮它加上，我用的版本是3.0.0.6。

\UniProviders\SQLite\LiteCallUni.pas是调用接口定义

// functions下面加上以下代码：

^?Download download.txt

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

_sqlite3_key = function( pDb: Tsqlite3; // Database handle pKey: PAnsiChar; // Database PassWord (UTF-8) nKey: Integer // Database sizeofpassword ): integer; {$IFNDEF CLR}cdecl;{$ENDIF}   _sqlite3_rekey = function(//If the current database is not encrypted, this routine will encrypt it. If pNew==0 or nNew==0, the database is decrypted. pDb: Tsqlite3; // Database handle pNew: PAnsiChar; // Database New PassWord (UTF-8) nNew: Integer // Database sizeofnewpassword ): integer; {$IFNDEF CLR}cdecl;{$ENDIF} ...........................   var 下面加   sqlite3_key: _sqlite3_key; sqlite3_rekey: _sqlite3_rekey; ........................................   procedure InitFunctions; begin {$IFDEF CLR}下面加 sqlite3_key := {$IFNDEF UNIDACPRO}LiteCallCLR{$ELSE}LiteCallCLRUni{$ENDIF}.sqlite3_key; sqlite3_rekey := {$IFNDEF UNIDACPRO}LiteCallCLR{$ELSE}LiteCallCLRUni{$ENDIF}.sqlite3_rekey; ...................   {$ELSE}下面加 sqlite3_key := GetProc('sqlite3_key'); sqlite3_rekey := GetProc('sqlite3_rekey');   ..................................   initialization LockInit := TCriticalSection.Create;   {$IFNDEF CLR}下面加 sqlite3_key := @NotLink; sqlite3_rekey := @NotLink;   ..................................   \UniProviders\SQLite\LiteClassesUni.pas是引擎调用接口实现   Check(sqlite3_open(PAnsiChar(UTF8Encode(FDatabase)), FSQLite)); 下面加：   if Pos('ChangePassword',FUsername)=1 then begin if Copy(FUsername,16,Length(FUsername))<>'' then SQLite3_key(FSQLite,PAnsiChar(Copy(FUsername,16,Length(FUsername))),SizeOf(FUsername)); if FPassword<>'' then SQLite3_rekey(FSQLite,PAnsiChar(FPassword),SizeOf(FPassword)); end else if FUsername='ClearPassword' then begin if FPassword<>'' then SQLite3_key(FSQLite,PAnsiChar(FPassword),SizeOf(FPassword)); SQLite3_rekey(FSQLite,0,0); end else if FPassword<>'' then Check(SQLite3_key(FSQLite,PAnsiChar(FPassword),SizeOf(FPassword)));         测试加密，解密正常。

转载务必注明出处 : http://www.cbrother.com/html/1977.html