找人做了个程序 有些密码转换看不懂 还望各位高手指点下小弟他是做了什么转换 if alltrim(thisform.text3.value)==alltrim(thisform.text2.value) append blank local lcPassword lcPassword = 0 for i = 1 to len(alltrim(Thisform.text2.value)) lcPassword = lcPassWord + ASC(SUBSTR(ALLTRIM(Thisform.text2.value),i,1)) endFor lcPassWord = ALLTRIM(str(bitxor(lcPassword,12345678))) thisform.text2.value=lcPassword
insert into passwordb(用户名,密码); values(thisform.text1.value,thisform.text2.value) messagebox("用户添加成功,"+chr(13)+"请记住用户名和密码",0+64,"系统提示") thisform.release do form forms\用户管理 else messagebox("新密码和确认密码不一致",0+64,"系统提示") thisform.text2.value='' thisform.text3.value='' thisform.text2.setfocus endif dele for 用户名=" " .or. 密码=" " pack