VB使用恺撒密码加密或解密文件源码。老一ARTERIOSCLEROS快来帮忙~

来源：百度知道 编辑：UC知道 时间：2024/05/26 15:00:33
求VB的源码……
恺撒密码，密钥就设定为+1吧。总之就是读入文件，把每个字符都编码+1然后存到新文件去。
但是注意的是一定要对整个文件加密解密。因为我有一个源码，只能读取和输出第一行代码……
或者用百度HI传源文件给我也可以。
十分感谢！
耗子

老鼠，你看你这样提问，人家都不敢回答了，太露骨了罢。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Form_Load()
Open "d:\a.txt" For Binary As 1
Open "d:\1.txt" For Binary As 2
Dim s() As Byte, i As Long
ReDim s(LOF(1))
s = InputB(LOF(1), 1)
For i = 0 To UBound(s) - 1
Put 2, i + 1, s(i) + 1 '这个1就是密码？
Next
Close
End
End Sub