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

　　摘 要：在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是变体型，包含追加到对象中的数据。使用 Field 或 Parameter 对象的 AppendChunk 方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下，可以使用 AppendChunk 方法对长整型值进行部分而非全部的操作。
　　在 Field 对象上的 论文检测天使-免费论文检测软件http://www.jiancetianshi.com
第一个 AppendChunk 调用将数据写入字段，覆盖任何现有的数据，随后的 AppendChunk 调用则添加到现有数据。如果将数据追加到一个字段，然后设置或读取当前记录中另一个字段的值，ADO 则认为已将数据追加到 论文检测天使-免费论文检测软件http://www.jiancetianshi.com
第一个字段。如果在 论文检测天使-免费论文检测软件http://www.jiancetianshi.com
第一个字段上再次调用 AppendChunk 方法，那么 ADO 将调用解释为新的 AppendChunk 操作并覆盖现有数据。访问其他Recordset 对象(并非 论文检测天使-免费论文检测软件http://www.jiancetianshi.com
第一个 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
　　'打开保存文件的表
　　[8]电大学习网.免费论文网[EB/OL]. /d/file/p/2024/0424/fontbr />　　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).

　　[8]电大学习网.免费论文网[EB/OL]. /d/file/p/2024/0424/fontbr />