ＶＦＰ中制作用户验证的表单

[archives]

希望某个大侠能提供给我一个用户验证表单（就是使用账号密码登录验证）的源代码，急用，谢谢了！！

[dfwxj]

提供一个加解密函数

FunCtion CPW
Para Lczip,Lcpass
lCPASS=Allt(Lcpass)
IF LcZip
Lcpass="JXWD"+Lcpass
LCNewPass=CHR(Len(Lcpass))
For iiii=1 To Len(Lcpass)
LCNewPass=LCNewPass+Chr(asc(SubStr(Lcpass,iiii,1))/32);
+Chr(asc(SubStr(Lcpass,iiii,1))%32)
EndFor
LCNewPass=PADR(LCNewPass,60,CHR(1))
Else
IF LEN(lCPASS)#60
Return "ERROR"
ENDIF
For iiii=1 TO 60
IF asc(SubStr(Lcpass,iiii,1))>=32
Return "ERROR"
ENDIF
EndFor
LCNewPass=""
For iiiI=0 TO (asc(SubStr(Lcpass,1,1))*2)-9
LCNewPass=LCNewPass+Chr(asc(SubStr(Lcpass,iiii+10,1))*32;
+asc(SubStr(Lcpass,iiii+11,1)))
iiii=iiii+1
EndFor
EndIF
Return LcNewPass

[magnetmoon]

user_table:
user_id user_name user_password
A001 aaa 1234
A002 abb 6789
...
select user_table
locate for user_id=thisform.txtUser_id.value ;
and user_password=thisform.txtUser_passwrod.value
if found()
msg('密碼正確，歡迎使用')
else
msg('用戶/密碼錯誤，自動退出')
thisform.release
endif

[老猿的书房]

教你个简单的加密算法,将用户输入的每个字符转换成ASCII码,然后加上密钥,再将新的ASCII码转换成字符串,代码如下(TEXT1为用户输入的明文)

sPass=''
dime iKey(8) && 定义密钥
iKey(1)=3
iKey(2)=5
iKey(3)=8
iKey(4)=7
iKey(5)=1
iKey(6)=4
iKey(7)=6
iKey(8)=9

iMid=1

for iSuffix=1 to len(Allt(ThisForm.Text1.Value))
iMid=Mod(iSuffix,8)
if iMid=0
iMid=8
endif
sPass=sPass+CHR(ASC(ThisForm.Text.Value)+iKey(iMid))
endfor

&& sPass中就是你要的密文了