VB编写加密文件

1、VB编写加密（解密）程序加密程序能对文本文件中的字符进行变换，使原来可以阅读的字符一一明文，变成其他读不明白的字符密文；解密文件可以将密文恢复成明文。?步骤：（ 1）准备好一份文本格式的待加密文件。可用文字处理软件如“记事本”输入一段你认 为有意义的文字并保存为文本文件。（ 2）新建一个VB工程。启动VB程序，在“新建工程”对话框中双击“标准EXE,打开VB工作界面，如下图所示。双击打开新產工程工眞工程资源管理器 ( 3)输入程序。单击工程资源管理器中窗体文件及“查看代码”按钮，打开窗体代码窗口，在代码窗口的左上方的对象框中选择Form，右边选择Load，在Private Sub Form_L

2、oad()与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

3、# # # # 加密已完成！ ！# # # # EndEnd Sub如下图所示： ( 4)运行程序。单击工具栏上的启动按钮运行程序，在弹出的对话框中输入待加密文件 的文件名及路径，如“ D:vbtj.txt ”，然后按“确定”按钮，弹出“加密已完成”的信息框， 说明文件加密成功(你可以去打开文件看看文本内容变成了什么)，单击“确定”结束程序,如下图所示: （5）保存程序。单击文件”菜单，选择保存Forml ”，把文件命名为加密OOl.frm ”。 （ 6）解密程序的编写步骤与加密程序编写差不多，只是代码不同，写好后以“解密OOl.frm为文件名保存。解密程序代码如下图所示（红圈是加密和解密代码

4、的不同之处）：Private Sub Form_Load0-二jFileHameJ =输入需要解密約文件及路径：Open FileKae$ For Input As #1_ Line Input #1 yw$Close #11 To ni, 1)Chr (Asc (yz$)田 10)it 二 Leu （yw$）Far iNextOpen FileNanie$ For CTu切ut As #1 Print #1 xw$Close #1MsgBox # # # # i解密已完成！ ！# # # #EndEnd Sub|（ 7）运行解密程序，输入待解密的文件名及路径，单击确定，显示解密完成后，文本文 件就解密成功。打开文本文件查看解密结果。（ 8）生成exe文件。分别打开“加密 OOl.frm ”和“解密OOl.frm ”，单击“文件”菜单, 选择“