ＯＬＥ字段加密功能
前言：本站為你精心整理了ＯＬＥ字段加密功能范文，希望能為你的創作提供參考價值，我們的客服老師可以幫助你提供個性化的參考范文，歡迎咨詢。
摘要：在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).
