找人做了个程序 有些密码转换看不懂 还望各位高手指点下小弟他是做了什么转换 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

if alltrim(thisform.text3.value)==alltrim(thisform.text2.value)     &&\当两个文本框写的属性相同时
appendblank                                                                               就进入追加状态
locallcPassword                                                                            定位ICPASSWORD这个变量
lcPassword =0                                                                                 设这变量为0
for i = 1 tolen(alltrim(Thisform.text2.value))                                 ||从1循环到TEXT2.VALUE的值
lcPassword = lcPassWord + ASC(SUBSTR(ALLTRIM(Thisform.text2.value),i,1))   ICPASSWORD的值变为它本身加上它每里面每一位变量的ASCII转变码
endFor
lcPassWord = ALLTRIM(str(bitxor(lcPassword,12345678)))
thisform.text2.value=lcPassword               把TEXT2.VALUE的值变为ICPASSWORD的值
insert intopasswordb(用户名,密码);                                       
values(thisform.text1.value,thisform.text2.value)                           ||  在表中  追加用户名和密码,
messagebox("用户添加成功,"+chr(13)+"请记住用户名和密码",0+64,"系统提示")
thisform.release
do formforms\用户管理                                                                  
else                                                                                            ||如果密码不正确,就删除新追加的用户名和密码
messagebox("新密码和确认密码不一致",0+64,"系统提示")
thisform.text2.value=''
thisform.text3.value=''
thisform.text2.setfocus
endif
dele for 用户名=" " .or. 密码=" "
pack

len( ) 函数

返回字符表达式中字符的数目。

语法 LEN(cExpression) 参数 cExpression 指定字符表达式，len( ) 函数返回其字符数目。 返回值类型 数值型

说明 len( ) 函数可用于确定字符表达式的长度。

substr( ) 函数

从给定的字符表达式或备注字段中返回字符串。 语法 SUBSTR(cExpression, nStartPosition [, nCharactersReturned]) 参数 cExpression 指定要从其中返回字符串的字符表达式或备注字段。 StartPosition 指定返回的字符串在字符表达式或备注字段 cExpression 中的位置，cExpression 的第一个字符是位置 1。 注意：如果 TALK 设置为 ON，并且 nStartPosition 大于 cExpression 中的字符数目，那么 Visual FoxPro 产生错误信息；如果 TALK 设置为 OFF，那么返回一个空字符串。 nCharactersReturned 从 cExpression 中返回的字符数目。如果省略了 nCharactersReturned 参数，那么返回字符表达式结束前的全部字符。 返回值类型 字符型 说明 SUBSTR( ) 从一个字符表达式或备注字段中返回一个字符串。该字符串起始于字符表达式或备注字段的指定位置，到指定数目字符结束。 当在调试窗口中发出 substr( ) 函数时，对于备注字段，SUBSTR( ) 不会返回值。要在调试窗口中返回值，可在 ALLTRIM( ) 函数中放入备注字段名，并且将 ALLTRIM( ) 函数放入 substr( ) 函数中。

thin SUBSTR( ).

asc( ) 函数

返回字符表达式中最左边字符的 ANSI 值。

语法 ASC(cExpression) 参数 cExpression 指定字符串表达式。函数仅返回 cExpression 中第一个字符的 ANSI 值，忽略其他字符。 返回值类型 数值型

说明 asc( ) 函数返回字符在当前代码页字符表中所处的位置。每个字符都有唯一的 0-255 之间的 ANSI 值。 在 FoxPro for MS-DOS 中，打开 ASCII 字符桌面附件可以得到字符及其 ANSI 值的列表。

看完这三个函数的作用，你应该会明白了吧