FoxBASE+(DBASE)动态加密程序
11-08 12:37:21软件技巧
浏览次数:540次
标签:软件技巧大全,http://www.duosi8.com
FoxBASE+(DBASE)动态加密程序,
tx=asc(subs(dtoc(date()),5,1))
n=0
set colo to /7
clear
set colo to /0
@5,21 to 13,61 clear
set colo to /1
@4,20 to 12,60 clear
kl=0
do whil .T.
set colo to 6+/1
@ 7,30 say "请输入口令:"
@ 7,43 get kl pict "99"
read
set cons off
set cons on
n=n+1
if kl<>tx
set colo to 4+/1
@10,30 say"口令错,再输入一次!"
? chr(7)+chr(7)
if n=3
set colo to 4+/1
@11,28 say"非系统操作作员,再见!"
l=0
do whil 1<100
l=l+2
enddo
quit
endi
else
@10,30 say "口令正确,进入主程序"
EXIT
endi
enddo
retu
接主控程序
程序说明:
本程序为一FOXBASE+(DBASE)动态加密的程序,其关键为操作者的上机时间。
其中:TX=ASC(SUBS(DTOC(DATE()),5,1)
DATE():测试上机者上机日期
DTOC():将日期型数据转换成字符型数据
SUBS():截取字串函数
ASC():将字符型数据转换成ASCⅡ
假设上机时间为03/29/93
则经过上述转换最终结果为57即口令为57
操作者只须输入即可
由于SUBS()截取的转换成字串的("03/29/93")第五个字节的值
应在0~9之间,所以其转换成ASCⅡ后的值应在48~57之间其为一一对应的关系。
(长春 周春明)
tx=asc(subs(dtoc(date()),5,1))
n=0
set colo to /7
clear
set colo to /0
@5,21 to 13,61 clear
set colo to /1
@4,20 to 12,60 clear
kl=0
do whil .T.
set colo to 6+/1
@ 7,30 say "请输入口令:"
@ 7,43 get kl pict "99"
read
set cons off
set cons on
n=n+1
if kl<>tx
set colo to 4+/1
@10,30 say"口令错,再输入一次!"
? chr(7)+chr(7)
if n=3
set colo to 4+/1
@11,28 say"非系统操作作员,再见!"
l=0
do whil 1<100
l=l+2
enddo
quit
endi
else
@10,30 say "口令正确,进入主程序"
EXIT
endi
enddo
retu
接主控程序
程序说明:
本程序为一FOXBASE+(DBASE)动态加密的程序,其关键为操作者的上机时间。
其中:TX=ASC(SUBS(DTOC(DATE()),5,1)
DATE():测试上机者上机日期
DTOC():将日期型数据转换成字符型数据
SUBS():截取字串函数
ASC():将字符型数据转换成ASCⅡ
假设上机时间为03/29/93
则经过上述转换最终结果为57即口令为57
操作者只须输入即可
由于SUBS()截取的转换成字串的("03/29/93")第五个字节的值
应在0~9之间,所以其转换成ASCⅡ后的值应在48~57之间其为一一对应的关系。
(长春 周春明)
,FoxBASE+(DBASE)动态加密程序
- ·上一篇:安装新版本提示老软件仍在
- ·下一篇:FoxBASE+菜单的开关切换
《FoxBASE+(DBASE)动态加密程序》相关文章
- › 实用的FOXBASE辅助工具--FOXDOC
- › 提高FOXBASE程序可读性的一种方法
- › Foxbase最常见错误信息及解决方法
- › 西文FoxBASE错误信息的“汉化”
- › 如何优化FOXBASE+的运行环境
- › FOXBASE+2.1中一个未公开的限制
- › 用FOXBASE编辑报表表头的技巧
- › set exact命令对Foxbase数据库记录查找的影响
- › UNFoxbase的参数说明
- › FoxBASE+使用中的奇怪错误
- › Foxbase中自定义函数的意义和函数的妙用
- › Foxbase 数据库文件与其它类型文件的数据交换
- 在百度中搜索相关文章:FoxBASE+(DBASE)动态加密程序
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决