发现大部分黑白的朋友都不会编程(14)

主要是对编程初学者提供资料

执行. 据个例子来说:

dim a '注意:常量不需要在dim里面声明,否则会引发错误

const pass="123456" '这是一个字符串 请用""包裹起来. 设定密码为常量, 不可变更 do

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

msgbox("密码校验成功") exit do end if loop

这个程序会一直不停的问你密码, 知道你输入了正确的密码为止.(if可以嵌套在另一个if当中, 也可以嵌套在循环体当中

, 所以一定要用缩进, 来分清楚程序的各个部分). 这个程序是很经典的, 早期的程序都是这么做的. 但是我们是Hacker, 所以

我们了解系统的安全性, 这种无限次认证程序很容易被穷举破解, 我们要来限定认证的次数. 修改程序如下

dim a,ctr

ctr=0 '设置计数器

const pass="pas123_" '上面的那个是弱密码, 这次改的强一点 do

if ctr=3 then

msgbox("已经达到认证上限, 认证程序关闭") exit do else

a=inputbox("请输入密码") if a=pass then msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)") exit do else

ctr=ctr+1 '如果密码出错就增加一次错误认证计数 msgbox("认证出错, 请检查密码") end if end if loop

运行这个程序试试看, 当你出了3此错误以后, 就会停止再次询问密码, 关闭程序. telnet认证用来限制次数的程序与此大

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库发现大部分黑白的朋友都不会编程(14)在线全文阅读。