出版日期：1998-12-16　总期号：298　本年期号：48

本期导读 市场与产品 初学入门 网络文化 经验技巧 软件天地 硬件与编程 校园电脑 娱乐沙龙

用内存文件制作密码盘 洪家富 　　一般的口令字加密都怕别人偷看到源程序，从而使加密失去作用。而本方法不但可以随时改变口令字内容，使他人无法猜出，并且可在运行完程序后将密码软盘带走，因为用半个汉字作口令字文件名，又可使他人无法从源程序分析到它的口令字。因而具有较强的保密效果。很适合公用数据库系统，具体方法是：设立一个内存变量如mmwj=“okmima"（可随意改动它的内容）然后将这个内存变量存入用“科.技”这个各删去半边汉字的文件中，命令为save to a:\ 。并建立口令字程序如下： 　　set talk off 　　set stat off 　　@8,30 say “请将密码盘插入a驱" 　　if .not. file(“a:\”) 　　return 　　endif 　　＆＆ rest from a:\ ＆＆半个汉字作文件名,防止他人“ 仿造 "内存变量文件 　　i=1 　　do while .t. 　　@10,20 say “请输入口令" 　　set cons off 　　accept to mima 　　set cons on 　　if mima<>mmwj ＆＆输入内容应为“okmima" 　　if i>3 　　clear 　　@10,20 say “您不能运行本系统" 　　return ＆＆三次口令不正确退出执行程序 　　endif 　　@20,20 say “第"＋str(i,1)＋“次口令输入不正确" 　　i=i＋1 　　else 　　exit 　　endif 　　enddo 　　运行主程模块 　　return