VB编写加密文件.doc

VB编写加密（解密）程序加密程序能对文本文件中的字符进行变换， 使原来可以阅读的字符一一明文， 变成其他读不明白的字符——密文；解密文件可以将密文恢复成明文步骤：☆（ 1）准备好一份文本格式的待加密文件可用文字处理软件如“记事本”输入一段你认 为有意义的文字并保存为文本文件☆（ 2）新建一个VB工程启动VB程序，在“新建工程”对话框中双击“标准 EXE',打开VB工作界面，如下图所示双击打开新產工程工眞①工程资源管理器☆ ( 3)输入程序单击工程资源管理器中窗体文件及“查看代码”按钮，打开窗体代码窗口，在代码窗口的左上方的对象框中选择 Form，右边选择Load，在Private Sub Form_Load()与End Sub之间输入代码，代码如下：Private Sub Form_Load()FileName$ = In putBox("请输入需要加密的文件及路径： ")Ope n FileName$ For In put As #1Line In put #1, yw$Close #1xw$ =""n = Len( yw$)For i = 1 To nyz$ = Mid$(yw$, i, 1)xz$ = Chr(Asc(yz$) - 10)xw$ = xw$ & xz$NextOpe n FileName$ For Output As #1Print #1, xw$Close #1MsgBox " # # # # 加密已完成！ ！ # # # # "EndEnd Sub如下图所示：☆ ( 4)运行程序。

单击工具栏上的启动按钮运行程序，在弹出的对话框中输入待加密文件 的文件名及路径，如“ D:\vb\tj.txt ”，然后按“确定”按钮，弹出“加密已完成”的信息框， 说明文件加密成功(你可以去打开文件看看文本内容变成了什么) ，单击“确定”结束程序,如下图所示:☆ （5）保存程序单击"文件”菜单，选择"保存Forml ”，把文件命名为"加密OOl.frm ” ☆（ 6）解密程序的编写步骤与加密程序编写差不多， 只是代码不同，写好后以“解密OOl.frm为文件名保存解密程序代码如下图所示（红圈是加密和解密代码的不同之处） ：Private Sub Form_Load0 -—二jFileHameJ = 输入需要解密約文件及路径：Open FileKa^e$ For Input As #1 _ 'Line Input #1^ yw$Close #1"1 To ni, 1)Chr (Asc (yz$)田 10)it 二 Leu （yw$）Far iNextOpen FileNanie$ For CTu切ut As #1 Print #1^ xw$Close #1 MsgBox " # # # # i解密已完成！ ！ # # # #End End Sub|☆（ 7）运行解密程序，输入待解密的文件名及路径，单击确定，显示解密完成后，文本文 件就解密成功。

打开文本文件查看解密结果☆（ 8）生成exe文件分别打开“加密 OOl.frm ”和“解密OOl.frm ”，单击“文件”菜单, 选择“生成工程.exe”，生成“加密OO1.exe”和“解密OO1.exe”文件，直接双击运行，查看 运行结果完成！ ！ ！ ！ ！ ？。