基于ａｄｏ的ｏｌｅ字段的加密功能的实现

《基于ａｄｏ的ｏｌｅ字段的加密功能的实现》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、从本学科出发，应着重选对国民经济具有一定实用价值和理论意义的课题。课题具有先进性，便于研究生提出新见解，特别是博士生必须有创新性的成果基于ＡＤＯ的ＯＬＥ字段的加密功能的实现摘要：在Visubal中，利用微软的ADO技术，讨论了如何把OLE字段加密存储到ACCESS数据库中，以及如何从ACCESS中获取OLE字段并解密的实现方法。　　关键词：ADO；OLE字段；数据加密；VisubalBasic　　　　0前言　　　　在开发MIS或OA类的软件时，经常需要将外部图片或各类文件保存在数据库中，目前的关系数据库大都有一个大二进制字段，可以保存该类数据。将图片及文

2、件以二进制方式存储在数据库中，可以考虑以下两种方法：一是使用ADO的Stream对象的LoadFromFile方法以及SaveToFile方法实现；二是使用ADO的对象的GetChunk以及AppendChunk方法实现。鉴于数据的安全性，需要将保存在OLE字段的数据加密。　　　　1实现步骤　　课题份量和难易程度要恰当，博士生能在二年内作出结果，硕士生能在一年内作出结果，特别是对实验条件等要有恰当的估计。从本学科出发，应着重选对国民经济具有一定实用价值和理论意义的课题。课题具有先进性，便于研究生提出新见解，特别是博士生必须有创新性的成果　　一个通用的方法

3、是可以先将外部文件或图片加密，然后再保存到OLE字段中，解密时反向操作即可，缺点是效率不高。对于使用ADO的Stream对象或ADO的对象的GetChunk、AppendChunk保存数据的方法，由于在操作中使用了数组，可以直接将加密、解密算法在内存中直接操作，所以在效率及安全方面都比前者的方法要好。　　AppendChunk及Getchunk方法简介　　AppendChunk方法　　语法：Data；对象Data是变体型，包含追加到对象中的数据。使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数据填写到对象中。在系统内

4、存有限的情况下，可以使用AppendChunk方法对长整型值进行部分而非全部的操作。　　在Field对象上的第一个AppendChunk调用将数据写入字段，覆盖任何现有的数据，随后的AppendChunk调用则添加到现有数据。如果将数据追加到一个字段，然后设置或读取当前记录中另一个字段的值，ADO则认为已将数据追加到第一个字段。如果在第一个字段上再次调用AppendChunk方法，那么ADO将调用解释为新的AppendChunk操作并覆盖现有数据。访问其他Recordset对象(并非第一个Recordset对象的复制品)中的字段将不会破坏AppendCh

5、unk操作。　　方法　　语法：variable=(Size)；使用Field对象的课题份量和难易程度要恰当，博士生能在二年内作出结果，硕士生能在一年内作出结果，特别是对实验条件等要有恰当的估计。从本学科出发，应着重选对国民经济具有一定实用价值和理论意义的课题。课题具有先进性，便于研究生提出新见解，特别是博士生必须有创新性的成果GetChunk方法来检索其中的部分或全部长二进制或字符数据。在系统内存有限的情况下，可使用GetChunk方法操作部分而非全部Long值。　　GetChunk调用返回的数据将被分配给Variable。如果Size大于剩余的数据，G

6、etChunk方法仅返回剩余的数据而不用空格填充Variable。如果该字段为空，GetChunk方法将返回Null值。每个后续的GetChunk调用将从上一次GetChunk调用停止处开始检索数据。　　　　ADOStream简介　　　　顾名思义，ADOStream以流的方式来操作文件或记录。通过Open方法来打开Stream对象来操作二进制或文本数据的流，通过Read或Write来读写流。用SaveToFile和LoadFromFile方法保存和恢复文件中的数据。　　　　关键代码分析　　　　使用AppendChunk将文件保存到OLE字段：　　Publ

7、icSubCopyFiletoField(fldAs，sfName)　　DimioSizeAsLong　　DimiAsLong，ifSizeAsLong，iKeyasByte课题份量和难易程度要恰当，博士生能在二年内作出结果，硕士生能在一年内作出结果，特别是对实验条件等要有恰当的估计。从本学科出发，应着重选对国民经济具有一定实用价值和理论意义的课题。课题具有先进性，便于研究生提出新见解，特别是博士生必须有创新性的成果　　iKey='密钥　　DimA1()AsByte，A2()AsByte，A3()AsByte'定义字节数组存放文件内容　　ifSize=F

8、ileLen(sfName)　　OpensfNameForBinaryAcces