pass.txt

登陆时

if empty(thisform.text1.value)
set bell to
?? chr(7)
messagebox("对不起,请输旧入密码",48,"信息不全")
thisform.text1.setfocus
else
use database\pass
xm1=alltrim(thisform.text1.value)
m1=asc(substr(sys(9),23,1))
m2=asc(substr(sys(9),22,1))
m3=asc(substr(sys(9),21,1))
m4=asc(substr(sys(9),20,1))
m5=asc(substr(sys(9),19,1))
m6=asc(rightc(sys(2022,'c:'),1))
m7=asc(rightc(sys(2022,'c:'),2))
m8=asc(rightc(sys(2022,'c:'),3))
m9=asc(substr(home(),1,1))
m10=asc(substr(sys(2022,'d:'),1,1))
old1=''
for rr=1 to len(xm1)
local array sz(5)
sz(1)=int((m1+m10)/2)
sz(2)=int((m2+m9)/2)
sz(3)=int((m3+m8)/2)
sz(4)=int((m4+m7)/2)
sz(5)=int((m5+m6)/2)
for rr2=1 to 5
m=sz(rr2)
gcbl=bitxor(asc(substr(xm1,rr,1)),m)
old1=old1+chr(gcbl)
endfor
endfor
go top
locate all for passd=old1
if found()
thisform.release
do form form\main
else
set bell to
?? chr(7)
messagebox("对不起,密码有误,请重试",64,"错误")
thisform.text1.setfocus
thisform.text1.value=''
lj1=lj1+1
if lj1>=3
thisform.release
clear events
endif
endif
endif