怎样用vb程序给程序加密！！！

dim a as string

sub form_load

a=""'在""中输入正确密码

if not(inputbox("请输入密码")=a) then end

'……

'我也无法理解此代码，抄书的。

end sub

VB都

有：驱动器列表框(Driver1)、目录列表框(Dir1)、文件列表框(File1)这三个控件，它们是常用控件，就是已经在左边显示啦，只要点击加到Form1里就行了，不需要先在“工程”菜单里添加。

可能是你没找到，对比上图，如果确定没有，你就新安装一遍VB吧。

简单判断吧

a = "ABCD"'要加密的大写字母

For i = 1 To 4'循环

b = Asc(Mid(a, i, 1)) + 4'分离字符串为单个

If b > 90 Then b = b - 26'如果大于90

Print Chr(b);'输出加密后字母

Next'循环结束

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

我是用Open "C:\" For OutPut As #1这种方法保存的，我想让别人用记事本打开的时候变成乱码。

解析:

先将字符转换为数值，用asc函数

再将数值进行运算，比如：原数值+5，记住不要超过范围

再将数值转换为字符，用chr函数

还可以用二进制的方式保存，用open "C:\" for binary as #1,二进制的那个单词可能有误

以上就是关于怎样用vb程序给程序加密！！！全部的内容，包括:怎样用vb程序给程序加密！！！、VB怎么做文件夹加密、利用VB设计一个加密程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！