在VFP中实现可靠的随机密码和多用户权限控制
来源: 作者: 出处:综艺读书 2006-10-11
文/蔡文水
|
|
|||
---- 一、可靠的随机伪码存库
---- 从用户密码到存库的随机伪码之间的变换由两个函数完成,一个是加密函数,一个是解密函数。加密函数的思想是对用户密码(真码)进行复杂化、隐蔽化处理,也就是将真码淹没在20位伪码中,加密函数如下:
FUNC MAZH1
PARA ZMZ
ZMZ=VAL(ZMZ)
N1=RAND()*10^9
IF N1<=999999999
N1=N1+10^9
ENDI
N1=INT(N1)
C1=STR(N1+ZMZ)+STR(N1)
C2=SUBS(C1,5,20)+SUBS(C1,1,4)
P1=''
P2=''
FOR II=1 TO 10
P1=P1+SUBS(C2,2*II-1,1)
P2=P2+SUBS(C2,2*II,1)
ENDFOR
WMZ=P1+P2
RETU WMZ
---- 若真码为:1234567,则伪码为:64915302152868193982,无论真码是一位还是相同多位,伪码总是具有同样的不确定性和复杂性,所以若想通过简化真码来分析伪码是不可能的。
---- 解码函数是将数据库中存放的伪码转换成原用户密码,其代码如下:
FUNC MAZH2
PARA WMZ
PP=''
FOR II=1 TO 10
PP=PP+SUBS(WMZ,II,1)+SUBS(WMZ,II+10,1)
ENDFOR
DD=SUBS(PP,17,4)+SUBS(PP,1,16)
M1=SUBS(DD,1,10)
M2=SUBS(DD,11,10)
ZMZ=INT(VAL(M1)-VAL(M2))
RETU ZMZ
---- 由于提交的系统全是编辑的,非法者是无法得到密码转换函数中的信息的,所以解密方法是不易被发现的。
---- 二、多用户权限控制的实现
---- 对一个包含多种业务操作的应用系统,由于业务的要求,常需要限制不同操作者的业务操作范围,在VFP中,可以建立一个权限数据表,表中 有多个字段,分别用于存储了每个操作者的代号、姓名、口令以及是否可以操作业务模块的伪标识码,见下表:
工号 姓名 系 统 口 令
业务1操作标识码 业务2操作标识码 …
01 刘君红 71510714108669886598 75913
759130063600536 02817028179076390563 …
02 何晚平 17615822156435449957 8341
3834133074230642 56314563144262342423 …
03 刘棋东 16710714110199886591 044
18701188588160484 83413834133074230642 …
04 赵民 58613143131858393185 4611702
8171696390565 48710144103584210444 …
05 王雪菲 80614563147782342425 52412
171122488399485 53210299114872812320 …
… …
---- 系统的主表单上的多个业务模块由多个按钮来实现启动,那么在系统主表单的[确定]按钮的CLICK EVENT方法程序中添加一些判断代码,就可以实现系统的口令和操作权限控制。输入工号和口令后,按[确定],CLICK EVENT中的代码首先根据输入的工号,对权限数据表中对应记录的口令伪码进行解码,得出的真码与输入口令一致放可进入系统,口令测试通过后,再通过对每个业务所对应的伪标识码字段内容进行解码,确定该业务模块是否允许操作,进而将该模块的启动按钮的ENABLED属性设置为.T.或.F.。为了在系统一启动就打开权限数据表,要将权限表添加到主表单的数据环境中。主表单的一个按钮可以启动“权限维护”表单,该表单可以完成对每个工号的口令和操作权限设置。一般只有系统管理员被赋予“权限维护”的权限,不同工号的操作员在进入系统后可以自行修改自己的密码,而管理员无法知道操作员的密码,只能进行擦除,这一点更加提高了操作员密码的安全性。
---- 以上表单和程序在金长城PII/400机上用Visual Foxpro5.0调试通过
相关图文阅读
频道图文推荐
相关专题
最新技术文档
·用FoxWeb在网上快速发布你的FOXPRO数据库 11-03
·用Foxpro制作Windows输入法码表 11-03
·用FoxPro生成HTML文件 11-03
·下载和上载远程视图数据 10-30
·为Visual FoxPro应用程序增加文件压缩功能 10-30
·为VFP添加循环微调控件类 10-30
·为FoxPro中的弹出式菜单增加自学习功能 10-30
·通过编程运行拨号网络连接 10-29
·谈谈在基于Foxpro的MIS中实现提示、帮助与询问 10-29
·谈谈VFP和SQL SERVER搭配做C/S系统 10-29
·用Foxpro制作Windows输入法码表 11-03
·用FoxPro生成HTML文件 11-03
·下载和上载远程视图数据 10-30
·为Visual FoxPro应用程序增加文件压缩功能 10-30
·为VFP添加循环微调控件类 10-30
·为FoxPro中的弹出式菜单增加自学习功能 10-30
·通过编程运行拨号网络连接 10-29
·谈谈在基于Foxpro的MIS中实现提示、帮助与询问 10-29
·谈谈VFP和SQL SERVER搭配做C/S系统 10-29
站内各频道最新更新文档
站内最新制作专题
|
|||
| ·ACDSEE专题教程-下载使用 ·迅雷专题教程-下载使用 ·Windows XP频道 ·Windows Vista频道 ·Windows 2000频道 ·win2003频道 ·Freebsd频道 ·Oracle频道 |
·Linux频道 ·Windows频道 ·邮件服务器专题 ·协议大全 ·数据恢复指南教程 ·FreeBSD使用教程 ·Linux数据库宝典 ·Linux基础知识 |
||
热门关键字导读
站内频道文章精选
| · 秘密:Vista隐蔽的动态屏保 · 腾讯开发新电子宠物--QQ熊 · 惠普否认2999元PC有价无货 |
· 驱逐Win系统“流氓”文件 · WinXP中获取未使用的IP地址 · 尝试format C:格式化硬盘? |
| · 在DOS下恢复回收站中的文件 · 拯救WinXP崩溃的救命稻草 · Linux系统中超级权限的应用 |
· 搜狗PK谷歌:谁能代言拼... · 昨日重现,一键GHOST轻松.. · 实现Web迅雷在空闲时杀毒 |
| · AVIFile函数制做AVI文件 · VC中链接动态链接库的方法 · 熊猫烧香核心源码(Delphi) |
· DateDiff函数祥解 · JavaScript去除空格的三种 · js效果 图片加载进度实时.. |
| · SQL Server数据库优化方案 · Oracle的初学者入门心得 · JSP连接Mysql数据库 |
· Photoshop为美女做艺术处理 · 用Freehand创建发光字特效 · 设计自己的个性QQ动态表情 |
百度推荐,商机无限
搜索您感兴趣的内容




