用VB编写文件加密程序.docx

- 1 -
引言
用 VB 编写文件加密程序
在大部分的加密软件，只是针对某种特殊的文件进行处理，并且只是使用简单的加密手段，很容易被解密者破解；有一些高强度的加密软件要求有昂贵硬件设备予以支持，这样加密后的文件 解密程序流程图
- 10 -
详细设计
加密程序设计
用户界面设计
如图 是加密程序的界面，它采用了现在流行的向导式界面，拥有很强的交互性，只有当用户完成一次与程序的对话，程序才能进行下一次的输入，使得软件的可上手性大大简化．只要按照上面的顺序，当用户输入○1 中的文件路径，程序将自动的弹出○2 ，要求用户输入加密后的文件存放路径，之后将自动弹出○3 的框架，要求输入密码，在用户输入密码时，软件系统将自动判断密码的强度，这样可以帮助用户选择合适的密码．
1
2
3
图 加密端程序
下面分析软件的实现：
加密过程实现
当用户选择好加密的文件和加密后的文件位置之后并输入一致的加密密码就
- 10 -
可以进行程序的加密了，当用户点击【加密】按钮后，就会触发以下的事件：
- 7 -
Private Sub Encode(Name As String, Filter As String, Password As String) '加密模块
Open Name For Binary Access Read As #1 ReDim p1Array(LOF(1) - 1)
MySize1 = LOF(1)
Get #1, , p1Array Close #1
p1Array, Password
Call LoadDataIntoFile(101, Trim(File2)) pLength = FileLen(Trim(File2))
Open Trim(File2) For Binary Access Write As #1
Put #1, pLength, p1Array
'用已有加密算法加密数据
'处理待加密文件
Put #1, pLength + MySize1, " " & "[Password]" & Password & "[FN]" & Filter Close #1
CRC_Exe Trim(File2)
MsgBox "加密成功!", vbInformation Exit Sub
'将附加信息写到文件末尾
代码 加密过程实现
文件后，仍要保持文件的类型，将文件的扩展名放在“[FN]”后面，最后将解密引导程序+加密后的文件数据+[Password]+加密后的密码+[FN]+未加密的文件扩展名保存为加密后的文件的尾部．
以上的代码 首先将要加密的文件以二进制的形式读入一个文件大小的p1Array 缓冲中，然后以用户输入的密码作密匙对数组 p1Array 用事先写好的算法进行数据加密，加密后的数据仍放在数组 p1Array 中．为了日后解密的方便， 将解密引导程序放在 p1Array 的前面，用捆绑的形式，在我们运行解密程序时， 就可以对附在后面的数据文件进行解密了．为了达到跨机运行，就不得不把密码写入加密后的文件中，这里作为演示，为了清