vb中的加密解密小程序每句都什么意思?谢谢啦!求详解!!!

发布网友发布时间：2024-10-23 17:22

共1个回答

热心网友时间：2024-10-24 13:39

Pritate Sub Form_Load()
FileName$=InputBox("请输入需要解密的文件名及路径：") '弹出输入框
Open FileName$ For Input As #1‘打开文件作为输入文件
Line Input #1,yw$’读取文件内容到yw变量里
Close #1‘关闭文件
xw$=""’初始化变量xw
n=Len(yw$)‘得到读入文件的长度值
For i =1 To n’循环文件长度次数
yz$=Mid$(yw$,i,1)‘获取yw变量，也就是读取的文件的内容的每个位置字符
xz$=Chr(Asc(yz$)+10)’将他的ascII码加10做加密变换
xw$=xw$ & xz$'然后写到追加写到新的变量里
Next‘循环结束
Open FileName$ For Output As #1’打开输出文件
Print #1,xw$‘输出这变化后的变量字符串xw到输出文件里
Close #1’关闭输出文件
MsgBox"#### 解密已完成！！！ ###"‘显示解密完成对话框提示
End’结束程序
End Sub‘结束函数

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com