求vb做的加解密程序

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:43:16
一、题目内容
编制一个程序，实现信息的安全存储和传输。
二、题目说明
可配合完成
三、题目要求
提供文件选择和加解密选择功能。
加密功能：首先对文本文件进行显示，选择加密后对文件进行加密文件，存储位置由用户指定。
解密功能：对加密的文本文件进行显示，解密的文件存储位置由用户指定。
加解密方法：将每个字母加一序数，加序数5，这时“A”→“F”，“a”→“f”．．．
“Z”→“E”，解密是加密的逆处理。

问题补充:

高手把编的程序写在下面,谢了,做的好还另有奖励 2008-07-07 13:36

你们只要把编出来的原代码写在下面就行了(要求：源代码真实可用哦) 2008-07-08 09:46

无语了 - -^前见天刚做过
加密:
Dim a, b As Integer
Dim c, d As String
b = Len(Text1.Text)
a = 1
If b <> 0 Then
Do
c = Mid(Text1.Text, a, 1)
c = Chr(Asc(c) - 5)
d = d & c
a = a + 1
Loop Until a > b
Text1.Text = ""
Text1.Text = d
End If
解密:
Dim a, b As Integer
Dim c, d As String
b = Len(Text1.Text)
a = 1
If b <> 0 Then
Do
c = Mid(Text1.Text, a, 1)
c = Chr(Asc(c) + 5)
d = d & c
a = a + 1
Loop Until a > b
Text1.Text = ""
Text1.Text = d
End If

多加点分啊 不然你就太不厚道了