基于ＡＤＯ的ＯＬＥ字段的加密功能的实现

摘 要：在visubal basic6.0中，利用微软的ado技术，讨论了如何把ole字段加密存储到access数据库中，以及如何从access中获取ole字段并解密的实现方法。

关键词：ado；ole字段；数据加密；visubal basic

0 前言

在开发mis或oa类的软件时，经常需要将外部图片或各类文件保存在数据库中，目前的关系数据库大都有一个大二进制字段，可以保存该类数据。将图片及文件以二进制方式存储在数据库中，可以考虑以下两种方法：一是使用ado的stream 对象的loadfromfile方法以及savetofile方法实现；二是使用ado的 recordset.field 对象的 getchunk 以及 appendchunk 方法实现。鉴于数据的安全性，需要将保存在ole字段的数据加密。

1 实现步骤

一个通用的方法是可以先将外部文件或图片加密，然后再保存到ole字段中，解密时反向操作即可，缺点是效率不高。对于使用ado的stream对象或ado的 recordset.field 对象的 getchunk、 appendchunk 保存数据的方法，由于在操作中使用了数组，可以直接将加密、解密算法在内存中直接操作，所以在效率及安全方面都比前者的方法要好。

2 appendchunk及getchunk方法简介

2.1 appendchunk方法

语法 ：object.appendchunk data； 对象data是变体型，包含追加到对象中的数据。WWw.11665.CoM使用 field 或 parameter 对象的 appendchunk 方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下，可以使用 appendchunk 方法对长整型值进行部分而非全部的操作。

在 field 对象上的第一个 appendchunk 调用将数据写入字段，覆盖任何现有的数据，随后的 appendchunk 调用则添加到现有数据。如果将数据追加到一个字段，然后设置或读取当前记录中另一个字段的值，ado 则认为已将数据追加到第一个字段。如果在第一个字段上再次调用 appendchunk 方法，那么 ado 将调用解释为新的 appendchunk 操作并覆盖现有数据。访问其他recordset 对象(并非第一个 recordset 对象的复制品)中的字段将不会破坏 appendchunk 操作。

2.2 getchunk方法

语法：variable = field.getchunk( size ) ；使用 field 对象的 getchunk 方法来检索其中的部分或全部长二进制或字符数据。在系统内存有限的情况下，可使用 getchunk 方法操作部分而非全部 long 值。

getchunk 调用返回的数据将被分配给 variable。如果 size 大于剩余的数据，getchunk 方法仅返回剩余的数据而不用空格填充 variable。如果该字段为空，getchunk 方法将返回 null 值。每个后续的 getchunk 调用将从上一次 getchunk 调用停止处开始检索数据。

3 ado stream简介

顾名思义，ado stream以流的方式来操作文件或记录。通过open 方法来打开 stream 对象来操作二进制或文本数据的流，通过read或write来读写流。用 savetofile 和 loadfromfile 方法保存和恢复文件中的数据。

4 关键代码分析

4.1 使用appendchunk将文件保存到ole字段：

public sub copyfiletofield(fld as adodb.field， sfname)

dim iosize as long

dim i as long， ifsize as long，ikey as byte

ikey = 2'密钥

dim a1() as byte， a2() as byte， a3() as byte '定义字节数组存放文件内容

ifsize = filelen(sfname)

open sfname for binary access read as #1

redim a2(ifsize) '放大数组

redim a3(ifsize)

dim j as long

dim llen as long

llen = ubound(a3)

get #1， ， a3()

for j = 0 to llen-1

a2(j) = a3(j) xor ikey'这里用简单的异或算法来加密

next

fld.appendchunk a2'写入ole字段

close #1

end sub

4.2 使用getchunk将ole字段保存为文件：

public sub copyfieldtofile(sfname as string， fld as adodb.field)

on error resume next

……

open sfname for binary access write lock write as #1

iosize = fld.actualsize

ichunks = iosize / isize '分块数目

irestsize = iosize mod isize '余下的部分

a1() = fld.getchunk(irestsize)

a2 = a1

llen = ubound(a1)

for j = 0 to llen-1

a2(j) = a1(j) xor ikey '再次异或计算就还原为原来的文件了

next

put #1， ， a2()

end if

……

next i

close #1

end sub

4.3 以流的方式保存文件到数据库中

public sub savefiletodb(f as string， fld as string)

dim istm as adodb.stream

dim ire as adodb.recordset

dim iconcstr as string

set istm = new adodb.stream

dim ifilesize as long

dim a1() as byte，a2() as byte

with istm

.type = adtypebinary'二进制模式

.open

.loadfromfile f

ifilesize = .size

.position = 0

a1 = .read ''读取流到字节数组

end with

istm.position = 0

a2 = a1

dim i as long

ifilesize = ubound(a1)

for i = 0 to ifilesize-1

a2(i) = a1(i) xor 2

next

istm.write a2

'数据库连接字符串

iconc = cnnstr

'打开保存文件的表

set ire = new adodb.recordset

istm.position = 0

with ire

.open “tbword”， iconc， adopenkeyset， adlockoptimistic

.fields(fld) = istm.read

.update

end with

'完成后关闭对象

ire.close

istm.close

end sub

4 以流的方式从数据库读取数据生成文件

public function readfilefromdb(f as string， fld as string) as string

……

set ire = new adodb.recordset

ire.open “tbword”， iconc， adopenkeyset， adlockreadonly

'保存到文件

set istm = new adodb.stream

with istm

.mode = admodereadwrite

.type = adtypebinary

.open

.write ire(fld)

.position = 0

a1 = ire(fld)

a2 = a1

dim i as long

ifilesize = ubound(a1)

for i = 0 to ifilesize

a2(i) = a1(i) xor 2

next

.write a2

.position = 0

.savetofile f， adsavecreateoverwrite'生成文件

end with

ire.close

istm.close

end function

5 结束语

ado的stream对象和 recordset.field 对象的 getchunk、 appendchunk 方法是操作数据库ole字段常用的两种方法。getchunk、 appendchunk方法相对来说要通用一些，在一些低版本的ado中，stream可能得不到很好的支持。限于篇幅，文中的代码略有删减。

参考文献

[1]魏新俊， 郭力平， microsoft access2.0/7.0[m].北京： 清华大学出版社， 1997.

[2]陈虹颐，何春.vb6.0中利用ado对象实现数据库编程[j].甘肃科技，2007，23(4).