用VB实现文件加密

Author: 郭辉 Date: 2001年 46期

?牐牬蠹抑溃绫ㄓ小懊髀搿钡绫ê汀懊苈搿钡绫ㄖ郑笳呔褪怯昧硪惶追爬创嬖哪谌荩佣鸬郊用艿淖饔谩Ｕ庵址椒?即使是专业人士，破解起来也要颇费些功夫。在计算机上，每一个字符都有其对应的ASCII代码，我们可以通过更改这个代码的办法来实现“密码文件”。
　　?牐犉舳疺B，新建一个标准EXE工程。在窗体上添加四个CommandButton控件，其Caption属性分别为“打开文件”、“加密文件”、“解密文件”和“保存文件”；再添加一个RichTextBox控件和一个Commondialog控件（一般的Textbox控件也可以，但它对文本大小有限制，无法处理较大的文件），双击窗体，添加以下代码：
　　?牐燩rivate Sub Command1_Click（）   ＇打开文件
　　?牐燙ommonDialog1.Filter = “Text File（*.txt）｜*.txt｜All File （*.*）｜*.*”
　　?牐燙ommonDialog1.ShowOpen
　　?牐燫TB1.LoadFile CommonDialog1.FileName
　　?牐燛nd Sub
　　?牐燩rivate Sub Command2_Click（）＇加密文件
　　?牐燚im s， temp，t As String
　　?牐燚im i As Single
　　?牐爏 = RTB1.Text
　　?牐爐 = “”
　　?牐燜or i = 1 To Len（s）
　　?牐爐emp = Mid$（s， i，1）??
　　?牐爐emp = Chr（Asc（temp） - 1）   ＇转换Ascii代码
　　?牐爐 = t + temp
　　?牐燦ext i
　　?牐燫TB1.Text = t
　　?牐燛nd Sub
　　?牐燩rivate Sub Command3_Click（）   ＇解密文件
　　?牐燚im s，temp， t As String
　　?牐燚im i As Single
　　?牐爏 = RTB1.Text
　　?牐爐 = “”
　　?牐燜or i = 1 To Len（s）??
　　?牐爐emp = Mid$（s， i， 1）??
　　?牐爐emp = Chr（Asc（temp） + 1）
　　?牐爐 = t + temp
　　?牐燦ext i
　　?牐燫TB1.Text = t
　　?牐燛nd Sub
　　?牐燩rivate Sub Command4_Click（）   ＇保存文件
　　?牐燙ommonDialog1.Filter = “Text File（*.txt）｜*.txt｜All File（*.*）｜*.*”
　　?牐燙ommonDialog1.ShowSave
　　?牐燨pen CommonDialog1.FileName For Output As #1
　　?牐燩rint #1，RTB1.Text
　　?牐燙lose #1
　　?牐燛nd Sub
　　?牐犜诔绦蛑校用艿姆椒ㄊ前衙恳桓鲎址腁SCII代码都减去1，解密时则相反。事实上，如果把“加密文件”按钮和“解密文件”按钮互换，也可以完成任务。但此时解密后的文件会出现个别乱码。有兴趣的朋友可以研究一下，把这个程序做得更完美！
　　