一次性文件系统的探索
摘 要
随着时代的发展，商业活动在现代生活中正变的越来越多。因此在商业中的文件保密性将会变得越来越重要，而且大家也越来越看中商业中的机密的重要性。所以在现代的商业交流中许多重要的文件，都希望对方在阅读完毕后，就能够被删除，而不被其他人所阅读，即一次性文件。
本文所介绍的就是一种可以适用于商业文件应用上的软件，它基本上可以实现自删除和禁用复制等功能。在文章中详细介绍了软件的使用方法和其具体的实现过程。
关键字
商业文件 加密 自删除 复制
程序功能的实现介绍
4.2.1文件加密的实现
一次性文件编辑器的程序的加密是通过一个自定义类实现的,在其中定义了一个TEXT1文本框,还有二个CHECKBOX:CheEnter和CheKong,分别表示是否加密回车和空格。使用时TEXT1是输入待加密的字符串,然后先调用getseed("你的密码")对设的密码进行加密,还要设置一下要加密字符串的起始位置和结束位置,然后再调mi()对字符串加密,其实加密方式也很简单,就是把密码与位数异或,再按位与字符串异或。以下是加密的源代码：
Public Sub getseed(password) 'password为加密字符串的密码
Seedlong = Len(password) '获得长度
For i = 1 To Seedlong 取得密码每一位
Seed(i) = Asc(Mid(password, i, 1)) Xor i '对密码进行加密，分别与位异或
Next i
If Form2.CheEnter.value = 1 Then pass.BEenter = True Else pass.BEenter = False '是否加密回车
If Form2.CheKong.value = 1 Then pass.BEenter = True Else pass.BKong = False '是否加密空格
End Sub
Public Sub mi()
temp = ""
Dim intlen
Dim latter
intForm = intForm + 1 '加密字符串的开始位置
intTo = intTo + 1 '加密字符串的结束位置
intlen = Len(Form1.Text1) 总长度
z1 = Mid(Form1.Text1.Text, 1, intForm - 1) '加密字符串前面的字符
z2 = Mid(Form1.Text1.Text, intForm, intTo - intForm) '待加密的字符串
z3 = Mid(Form1.Text1.Text, intTo + 1, intlen) '加密字符串后面的字符
a = Len(z2) '待加密的字符串长度
For i = 0 To a Step Seedlong '取得待加密字符串的每一位
For j = 1 To Seedlong '按密码长度分组加密
On Error GoTo c '容错代码
latter = Asc(Mid(z2, i + j, 1)) '取得每一位
If latter = 32 And pass.BEenter = True Then GoTo b Else GoTo a
'是否加密空格
If latter = 13 And pass.BKong = True Then GoTo b Else GoTo a
'是否加密回车
a: latter = Seed(j) Xor Asc(Mid(z2, i + j, 1)) '每一位分别与加密后的密码异或
b: temp = temp & Chr(latter) '重新组合
Next j
c: Next i
Form1.Text1.Text = z1 & temp & z3 '放回到原来位置
End Sub
4.2.2 实现剪贴版的禁用
（一）．什么是剪贴版？
从Windows3.X开始，窗口操作系统就有了剪贴板工具，这是应用程序间进行静态数据交换极为有用的工具。使用它，只需要简单地按几个键就可以将数据从一个文件拷贝到另一个文件中去。
实际上，剪贴板并不是一个独立的应用程序，而是Windows中的一类API函数(应用程序编程接口函数)，各种应用程序调用这类函数，来管理应用程序间进行的数据交换。Windows剪贴板的实现过程比较复杂，涉及到Windows中固有的OLE（对象链接和嵌入）技术，但我们可以简单地以图示的方法来理解剪贴板。
所以从本质上来说，剪贴板只是一个全局内存块。当一个应用程序将数据传送给剪贴板后，通过修改内存块分配标志，把相关内存块的所有权从应用程序移交给Windows自身。其它应用程序可以通过一个句柄找到这个内存块，从而能够从内存块中读取数据。这样就实现了数据在不同应用程序间的传输。剪贴板虽然功能较为简单，且不能实现实时传输，但却是更为复杂的DDE和OLE的基础。
（二）．VB中剪贴板的应用
VB中剪贴板的应用是很重要的，它能使你简化程序并能增强程序功能。下面是常用的几个用于VB剪贴板的语句：
CLEAR（，，STACK＆）
说明：为了防止网络上可以查找到本毕业设计的论文及实际界面信息保护购买者的利益1、本计算机毕业设计样本提供的只是有关此设计论文和程序的简单介绍，要想取得完整的作品，需要你与本站联系。2、本样本只是从论文中摘录一部分，在内容、字体、字号排版上与实际作品有一定的差别，请以本站实际提供的作品为准。需要了解本计算机毕业设计的具体详细信息请联系本站客服。
