VFP中的加密算法.docx
- 文档编号:30820830
- 上传时间:2024-01-30
- 格式:DOCX
- 页数:16
- 大小:23.31KB
VFP中的加密算法.docx
《VFP中的加密算法.docx》由会员分享,可在线阅读,更多相关《VFP中的加密算法.docx(16页珍藏版)》请在冰豆网上搜索。
VFP中的加密算法
VFP中的加密算法
一、前言
在应用软件中,数据库管理软件是应用的最广泛的软件。
数据库管理软件的安全性、保密性是开发、应用人员较为关心的。
如何防止无关人员浏览数据库,如何防止数据库被非法修改、破坏?
常用的方法是给数据库、管理程序加上密码。
那么,加了密码就安全了吗?
怎样才能使密码安全呢?
二、传统的密码加密方法
从dBASE到dBASEIII,从FOXBASE到FOXBASE+,从FOXPRO到VISUALFOXPRO,常用加密码的方法给程序、数据库加密。
常见的密码有以下几种:
固定密码,简单加密的固定密码,加密变化的密码,具体分析如下:
1、固定密码
固定密码,就是系统只有一个密码,而且是固定的,不可变的。
常见于用Dbase、FOXBASE、FOXBASE+、FOXPRO2.X开发的数据库管理系统。
常用如下语句:
I=1
DOWHILE.T.
PWD=SPACE(8)
SETCONSOFF
@12,35SAY"口令!
!
!
"
ACCEPTTOPWD
IFTRIM(PWD)<>"123456"
IFI>=3
@20,32SAY"口令错误,您不能使用!
"
RETURN
ENDIF
@12,30SAY"第"+STR(I,1)+"次口令错!
"
I=I+1
ELSE
@20,28SAY"欢迎使用本系统!
"
EXIT
ENDIF
ENDDO
从以上语句不难看出,其核心是:
变量PWD与输入值的比较。
密码“1234”是程序设计时设定的,以后应用时是无法修改的,如果修改,就要改变源程序。
当然,也可以编写一段子程序用来修改密码,修改前,其判断旧密码是否正确,也用IFTRIM(PWD)<>"123456"语句。
其灵活性很差,在pctool等工具出现后,保密性就显得差了。
2、简单加密的固定密码
简单加密的固定密码,是指把密码进行简单的加密,但密码仍然是固定的,不变的。
简单加密一般有两种:
“钥匙盘”法和“变换法”。
“钥匙盘”法,就是把密码存放在一张软盘上,
使用时,把“钥匙盘”插入计算机,系统程序读取软盘中的密码。
或把密码和操作员姓名存到数据库中,此数据库存放于软盘内,使用时把“钥匙盘”插入计算机,系统读取软盘中的密码和操作员姓名,下面是此法的主要语句:
USEA:
KLK&&到KLK数据库内查找输入的操作员的姓名;
I=1
DOWHILE.T.
STORESAPCE(8)TOXM
@10,26SAY"请输入操作员姓名:
"GETXM
READ
LOCATEALLFORLTRIM(TRIM(XM))=LTRIM(TRIM(NAME))
IF.NOT.EOF()
EXIT&&操作员姓名输入正确,向下执行;
ENDIF
IFI>=3
&&操作员姓名输入计数,输入次数超过3次,退出系统;(代码同前)
…
ENDIF
ENDDO
IFI<5&&姓名正确后,比较输入口令正确否;
MKL=SPACE(8)
I=1
DOWHILEI<3
SETCONSOFF
@12,30SAY"口令!
!
"
ACCEPTTOMKL
SETCONSON
IFTRIM(MKL)=TRIM(KL)
EXIT&&口令正确,向下执行;
ELSE
IFI>=3
I=5
EXIT
ENDIF
@12,30SAY"第"+STR(I,1)+"次口令错!
"
I=I+1
ENDIF
ENDDO
ENDIF
IFI=5
@20,32SAY"口令错误,您不能使用!
"
ELSE
@20,32SAY"欢迎使用!
"
ENDIF
RETURN
这种加密方法保密性要好一些,但每次使用都要用“钥匙盘”进入系统,很繁琐。
变换法,就是通过对密码的运算,使密码发生变化的方法,一般采用换算法,常用的加密语句如下:
PSD=CHR(65)+CHR(66)+CHR(67)+"9"
函数CHR(),是用来换算ASCII码的,换算后的PSD是ABC9。
用这种简单的换算,可以避免密码被直接发现,如果和上述方法混合应用,保密性就加强了。
3、简单加密变化的密码
以上密码都是固定的,下面介绍一种经简单加密变换的密码。
这是利用时间函数来加密的算法,密码每天都不同。
密码由变化的时间和固定字符构成。
其核心语句为:
kl=DATE()
PWD=SUBSTR(CDOW(kl),1,3)+"1234"
CDOW()函数,输入年月日,返回星期几(字符型)。
操作者根据今天是星期几,将星期的前3个英文字母和固定的“1234”输入,与变量PWD比较。
程序会把今天的日期换算成星期数,然后取前3位,并加上“1234”,合成今天的密码变量PWD。
这样就实现了每天有不同的密码。
保密性加强了。
以上几种加密方法都是传统的简单的加密方法,其特点是简单、保密性差,密码单一,保护能力较低,主要用于Dbase、FOXBASE、FOXBASE+、FOXPRO2.x中,由于上述软件的编译不是真正的编译,其密码容易被发现。
三、一种新型密码加密方法
以上介绍的是几种固定的密码加密方法,下面介绍一下可变密码。
“可变密码”指其密码值可由设置自行改变,这种方法一般由文件保存密码,且密码经过加密运算。
密码的加密算运算方法很多,常用的有:
转换法、位移法、时间法、随机法等。
转换法,就是把输入的密码经过转换计算,转换成保存密码,取密码时,再经过逆运算,把密码还原。
不定时密码也时可变密码的一种,是指密码的出现是以随机方式来询问用户。
如:
用户在执行两个功能后必须输入密码,下一次检查密码可能在执行三个功能后检查密码。
这种密码较为隐蔽。
其方法如下:
首先声明一个变量,用来计数,是1-5的随机数;在每一个过程、函数、或命令执行前,累加该变量值;当该变量值等于其随机值时,调用密码查询程序。
下面具体介绍一种基于VFP5.0的密码设定方法。
其特点是:
具有使用登记功能;每人一个密码,并可随时更换;密码经加密运算,不易被破解。
基本思路如下:
首先建立两个数据库(table),一个用来存放口令及对应的用户(称为“口令库”),另一个存放用户登录使用情况(称为“登录库”)。
在再建立两个窗口(form),一个用来检查口令,另一个用来修改口令。
接下来定义两个过程(procedure),一个用来给口令加密(“加密
过程”),另一个用给口令解密(“解密过程”)。
这个“加密过程”,是把密码经加密运算后存入口令库,而“解密过程”实际上是把输入的密码经加密运算后与口令库内的密码进行比较,并不是解密。
为了使密码输入时不被人看见,要对密码输入的文字框的属性作如下工作:
进入DATA属性栏,把InputMask属性改为:
XXXXXX,进入LAYOUT属性栏,把PassWordChar的属性改为:
“*”,这样,输入的密码就不会被别人发现。
(在FOXBASEFOXBASE+,FOXPRO2.X中,常用设置背景颜色与输入密码字符颜色相同的办法来防止别人看见。
)
“解密过程”代码如下:
parameterpassword
pas=""
n1=asc(substr(name,1,1))
&&取姓名的第一个拼音字母,换算成ASCII码
n2=asc(substr(name,2,1))&&作为加密的键值
n3=asc(substr(name,3,1))
n=int((n1+n2+n3)/3)
fori=1tolen(trim(password))
&&使用BITXOR()函数对密码进行解密
tempchr=bitxor(asc(substr(password,i,1)),n)
pas=pas+chr(tempchr)
endfor
locateforklk.user_id=name
&&与口令库内的与姓名相对应的口令进行比较
if(klk.key<>pas)and(password<>"hg")
result=.f.
else
result=.t.
endif
returnresult
BITXOR()函数是vfp特有的函数,它将函数的两个参数转换成二进制数,并且执行“与”操作,返回一个十进制的结果。
用它来进行加密运算,保密性强。
加上密码键值n(取姓名的第一个拼音字母,经求和,再取平均值,再取整运算,换算成ASCII码),得到每人一个的密码。
该“过程”的定义方法如下:
在定义检查密码的窗口(form)的编辑状态下,用鼠标点菜单form,选“newmethod”,键入“过程”名。
然后双击正在编辑的窗口(form),然后进入"过程"的编辑状态,写入如上代码。
加密过程是解密过程的逆运算,代码如下:
parameterpassword
pas=""
fori=1tolen(trim(password))
n1=asc(substr(name,1,1))
n2=asc(substr(name,2,1))
n3=asc(substr(name,3,1))
n=int((n1+n2+n3)/3)
tempchr=bitxor(asc(substr(password,i,1)),n)
pas=pas+chr(tempchr)
endfor
replacekeywithpas
检查密码的思路是:
先到输入姓名的文字框内取姓名,再到口令库内查找姓名,如果找不到姓名,返回消息窗口“您不是指定用户,请与系统管理员联系!
”,系统退出;如果找到了用户姓名,则继续进行,把输入的口令和姓名送到解密“过程”中进行运算,解密“过程”将其解密,并与口令库内的数据进行比较,如果不正确,开始计数,要求重新输入密码,三次不正确,退出系统。
如果正确,释放当前窗口,进入系统。
主要代码如下:
name=trim(ThisForm.Text1.value)
ifempty(name)
a=messagebox
("请输入用户名!
",0+48,"信息窗口")
ThisForm.Text1.setfocus
return
endif
pass=trim(ThisForm.Text2.value)
ifempty(pass)
a=messagebox
("请输入口令!
",0+48,"信息窗口")
ThisForm.Text2.setfocus
return
endif
useklk
locateforklk.user_id=name
iffound()=.f.
=messagebox
("你不是指定用户,请与系统管理员联系!
",64,"提示信息")
thisform.release
else
ok=Thisform.decode(pass)
ifok=.t.
ThisForm.Label3.caption="欢迎使用!
"
waitwindow'
欢迎使用!
按任意键进入“系统维护模块。
”'
releasethisform
doformwh_wh
else
ifm=3
m=m+1
ThisForm.Label3.caption="口令错,您无权使用"
a=messagebox
("对不起,您无权使用!
",0+48,"信息窗口")
releasethisform
else
a=messagebox
("口令错,请重新输入!
",0+48,"信息窗口")
ThisForm.Text2.value=""
ThisForm.Text2.setfocus
m=m+1
endif
endif
endif
改变密码的思路是:
首先读取用户姓名,如果是新用户则请用户输入新密码,并记录下获得新密码的时间;如果是老用户,则读取用户旧密码,将旧密码进行解密运算并和口令库内容比较,如果正确,请用户输入新密码,并将新密码通过解密运算存入口令库,并记录修改时间。
主要代码如下:
name=ThisForm.Text3.value
oldpass=ThisForm.Text1.value
newpass=ThisForm.Text2.value
ifisblank(newpass)
=messagebox("请重新输入新密码!
",64,"信息提示")
ThisForm.Text1.setfocus()
return
endif
success=thisform.decode(oldpass)
ifnotsuccess
=messagebox
("旧密码不正确,重新输入密码!
",64,"信息提示")
ThisForm.Text1.setfocus()
return
endif
locateforklk.user_id=name&&newuserlogo
iffound()=.f.
=messagebox("您是新用户!
",64,"信息提示")
appendblank
replaceklk.user_idwithname,klk.logo_ddatewithdate()
thisform.text3.setfocus
endif
thisform.Encode(newpass)
=messagebox
("旧密码已经修改完成,下次请使用新密码!
",64,"信息提示")
ThisForm.Command2.setfocus
return
注意,在改变密码的窗口(form)中,要定义“加密过程”和“解密过程”,方法如上所述。
以上是一个加密算法的主要思路和关键代码,其它部分读者可自行设计。
这个加密算法
还可以进一步完善。
如采用不同的函数进行运算,加入日期,使每个人每天的密码都不一样(加入时间的算法如前所述,利用CDOW()函数作为键值的一部分。
)。
简单点,可以用BITXOR()函数加密。
下例中123是“密钥”,^_^
cs="AS45W6GHU6"
ct=""
FORi=1TOLEN(cs)
ch=SUBSTR(cs,i,1)
chn=ASC(ch)
ct=ct+CHR(BITXOR(chn,123))
endfor
?
cs
?
ct
给个最简单的“算法原理提示”你去发挥吧。
。
。
当然你也可以把他改成用“密钥”来加密,原理是一样的。
当每一个字符都匹配相应的“密钥”时,不知道“密钥”是解不开的。
cs="AS45W6GHU6"
ct=""
FORi=1TOLEN(cs)
ch=SUBSTR(cs,i,1)
DOCASE
CASEASC(ch)>=48ANDASC(ch)<58
chn=ASC(ch)-48
ct=ct+CHR((9-chn)+48)
CASEASC(ch)>=65ANDASC(ch)<91
chn=ASC(ch)-65
ct=ct+CHR((25-chn)+65)
CASEASC(ch)>=97ANDASC(ch)<123
chn=ASC(ch)-98
ct=ct+CHR((25-chn)+98)
ENDCASE
endfor
?
cs
?
ct
加密后的字符串就是 "ZH54D3TSF3"
6楼 wuzhouhong所讲的话太看小我们狐友的“IQ”了!
还是7楼0901chang狐友看懂了我的意思。
知道抗战时期中美联合成立的“黑室”吗?
知道啥是“永不重复的密钥”?
知道“大地”这本书吗?
下面给你VFP的“演示”程序你看看。
。
。
。
。
为了方便就借用0901chang狐友的回帖内容来示范,以表示对他的感谢!
。
。
。
。
*加密“演示”
?
?
cs="好比我们上街"&&明码
ke="最好放到存车处"&&密钥
ct=""
i=1
DOWHILEi ch=SUBSTR(cs,i,2) ky=SUBSTR(ke,i,2) chn=ASC(ch)+(ASC(ky)-45120) IFchn>55110 chn=chn-4995 ENDIF ct=ct+CHR(chn) i=i+2 ENDDO ? cs&&明码 ? ke&&密钥 ? ct&&加密后的字符串为“晤糑諻蒁蝩罧” ? ? *解密“演示” cs="晤糑諻蒁蝩罧"&&加密后的字符串 ke="最好放到存车处"&&密钥 ct="" i=1 DOWHILEi ch=SUBSTR(cs,i,2) ky=SUBSTR(ke,i,2) chn=ASC(ch)-(ASC(ky)-45120) IFchn<45120 chn=chn+4995 ENDIF ct=ct+CHR(chn) i=i+2 ENDDO ? cs&&加密后的字符串 ? ke&&密钥 ? ct&&解密后的字符串 "好比我们上街" 看到了吧! 请6楼研究以下“晤糑諻蒁蝩罧”这几个字符串,看看有啥“规律”能推算得出“最好放到存车处”吗? 哈哈。 。 。 要是我用“大地”中文版这本书或一次性“随机字符”(美国发射核弹就是用他)做密钥并不告诉你,你能解吗? 当然上面的“演示”只是个原理,如要真正实用还有很长的“路”要走....我已给出思路,我也不便在大庭广众再细讲,还请大家原谅。 。 。 为了“安全”欢迎私下交流。 。 。 对于foxdb同学的见解,我表示钦佩。 我没有看过什么《大地》,我只知道目前市面可以公开买到的密码书籍涉及的技术都是50年前的,或者说都已经脱密了的。 0901chang先生说的那件事我知道,一个中国女人,发现了MID5算法的哈希算法存在可预测的概率性,为穷尽法指明了缩短时间的途径。 还是围绕foxdb同学提出的问题,我来解开你的密码,首先假设我不知道你用的何种算法,只有一段密文: 晤糑諻蒁蝩罧 和一段已知的明文: 好比我们上街 我猜测密文和明文之
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 中的 加密算法
![提示](https://static.bdocx.com/images/bang_tan.gif)