ＯＬＥ字段加密功能
前言：本站为你精心整理了ＯＬＥ字段加密功能范文，希望能为你的创作提供参考价值，我们的客服老师可以帮助你提供个性化的参考范文，欢迎咨询。
摘要：在VisubalBasic6.0中，利用微软的ADO技术，讨论了如何把OLE字段加密存储到ACCESS数据库中，以及如何从ACCESS中获取OLE字段并解密的实现方法。
关键词：ADO；OLE字段；数据加密；VisubalBasic
0前言
在开发MIS或OA类的软件时，经常需要将外部图片或各类文件保存在数据库中，目前的关系数据库大都有一个大二进制字段，可以保存该类数据。将图片及文件以二进制方式存储在数据库中，可以考虑以下两种方法：一是使用ADO的Stream对象的LoadFromFile方法以及SaveToFile方法实现；二是使用ADO的Recordset.Field对象的GetChunk以及AppendChunk方法实现。鉴于数据的安全性，需要将保存在OLE字段的数据加密。
1实现步骤
一个通用的方法是可以先将外部文件或图片加密，然后再保存到OLE字段中，解密时反向操作即可，缺点是效率不高。对于使用ADO的Stream对象或ADO的Recordset.Field对象的GetChunk、AppendChunk保存数据的方法，由于在操作中使用了数组，可以直接将加密、解密算法在内存中直接操作，所以在效率及安全方面都比前者的方法要好。
2AppendChunk及Getchunk方法简介
2.1AppendChunk方法
语法：Object.AppendChunkData；对象Data是变体型，包含追加到对象中的数据。使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下，可以使用AppendChunk方法对长整型值进行部分而非全部的操作。
在Field对象上的第一个AppendChunk调用将数据写入字段，覆盖任何现有的数据，随后的AppendChunk调用则添加到现有数据。如果将数据追加到一个字段，然后设置或读取当前记录中另一个字段的值，ADO则认为已将数据追加到第一个字段。如果在第一个字段上再次调用AppendChunk方法，那么ADO将调用解释为新的AppendChunk操作并覆盖现有数据。访问其他Recordset对象(并非第一个Recordset对象的复制品)中的字段将不会破坏AppendChunk操作。
2.2Getchunk方法
语法：variable=field.GetChunk(Size)；使用Field对象的GetChunk方法来检索其中的部分或全部长二进制或字符数据。在系统内存有限的情况下，可使用GetChunk方法操作部分而非全部Long值。
GetChunk调用返回的数据将被分配给Variable。如果Size大于剩余的数据，GetChunk方法仅返回剩余的数据而不用空格填充Variable。如果该字段为空，GetChunk方法将返回Null值。每个后续的GetChunk调用将从上一次GetChunk调用停止处开始检索数据。
3ADOStream简介
顾名思义，ADOStream以流的方式来操作文件或记录。通过Open方法来打开Stream对象来操作二进制或文本数据的流，通过Read或Write来读写流。用SaveToFile和LoadFromFile方法保存和恢复文件中的数据。
4关键代码分析
4.1使用AppendChunk将文件保存到OLE字段：
PublicSubCopyFiletoField(fldAsADODB.Field，sfName)
DimioSizeAsLong
DimiAsLong，ifSizeAsLong，iKeyasByte
iKey=2''''密钥
DimA1()AsByte，A2()AsByte，A3()AsByte''''定义字节数组存放文件内容
ifSize=FileLen(sfName)
OpensfNameForBinaryAccessReadAs#1
ReDimA2(ifSize)''''放大数组
ReDimA3(ifSize)
DimjAsLong
DimlLenAsLong
lLen=UBound(A3)
Get#1，，A3()
Forj=0TolLen-1
A2(j)=A3(j)XoriKey''''这里用简单的异或算法来加密
Next
fld.AppendChunkA2''''写入OLE字段
Close#1
EndSub
4.2使用GetChunk将OLE字段保存为文件：
PublicSubCopyFieldToFile(sfNameAsString，fldAsADODB.Field)
OnErrorResumeNext
……
OpensfNameForBinaryAccessWriteLockWriteAs#1
ioSize=fld.ActualSize
iChunks=ioSize/iSize''''分块数目
iRestSize=ioSizeModiSize''''余下的部分
A1()=fld.GetChunk(iRestSize)
A2=A1
lLen=UBound(A1)
Forj=0TolLen-1
A2(j)=A1(j)XoriKey''''再次异或计算就还原为原来的文件了
Next
Put#1，，A2()
EndIf
……
Nexti
Close#1
EndSub
4.3以流的方式保存文件到数据库中
PublicSubSaveFileToDB(fAsString，fldAsString)
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcStrAsString
SetiStm=NewADODB.Stream
DimiFileSizeAsLong
DimA1()AsByte，A2()AsByte
WithiStm
.Type=adTypeBinary''''二进制模式
.Open
.LoadFromFilef
iFileSize=.Size
.Position=0
A1=.Read''''''''读取流到字节数组
EndWith
iStm.Position=0
A2=A1
DimiAsLong
iFileSize=UBound(A1)
Fori=0ToiFileSize-1
A2(i)=A1(i)Xor2
Next
iStm.WriteA2
''''数据库连接字符串
iConc=cnnStr
''''打开保存文件的表SetiRe=NewADODB.Recordset
iStm.Position=0
WithiRe
.Open“tbWord”，iConc，adOpenKeyset，adLockOptimistic
.Fields(fld)=iStm.Read
.Update
EndWith
''''完成后关闭对象
iRe.Close
iStm.Close
EndSub
4以流的方式从数据库读取数据生成文件
PublicFunctionReadFileFromDB(fAsString，fldAsString)AsString
……
SetiRe=NewADODB.Recordset
iRe.Open“tbWord”，iConc，adOpenKeyset，adLockReadOnly
''''保存到文件
SetiStm=NewADODB.Stream
WithiStm
.Mode=adModeReadWrite
.Type=adTypeBinary
.Open
.WriteiRe(fld)
.Position=0
A1=iRe(fld)
A2=A1
DimiAsLong
iFileSize=UBound(A1)
Fori=0ToiFileSize
A2(i)=A1(i)Xor2
Next
.WriteA2
.Position=0
.SaveToFilef，adSaveCreateOverWrite''''生成文件
EndWith
iRe.Close
iStm.Close
EndFunction
5结束语
ADO的Stream对象和Recordset.Field对象的GetChunk、AppendChunk方法是操作数据库OLE字段常用的两种方法。GetChunk、AppendChunk方法相对来说要通用一些，在一些低版本的ADO中，Stream可能得不到很好的支持。限于篇幅，文中的代码略有删减。
参考文献
[1]魏新俊，郭力平，MicrosoftAccess2.0/7.0[M].北京：清华大学出版社，1997.
[2]陈虹颐，何春.VB6.0中利用ADO对象实现数据库编程[J].甘肃科技，2007，23(4).
