基于ADO的OLE字段的加密功能的实现

(整期优先)网络出版时间:2019-04-16
/ 3
摘 要:在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 对象上的第一个 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).