PowerBuilder(PB)判断密码强度，是否包括字母\数字\符号等
二个参数：lpass 密码长度要求
pass 密码复杂度（默认要是包括数字，字母，符号），可根据后面的判断修改
返回值：
1 表示符合要求
0 表示不符合要求
long vilen,i,j,k,l
string vschar
vilen = len(pass)
if vilen < lpass then return 0
for i = 1 to vilen
vschar = mid(pass,i,1)
if pos('0123456789',vschar) > 0 then j = 1 //数字
if pos('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',vschar) > 0 then k = 1 //所有字母
if pos('~!@#$%^&*()-_=+{}|[]\:;<>,.?/',vschar) > 0 then l = 1 //除单引号
if pos("'",vschar)>0 then l = 1 //单引号
ifj = 1 andk=1 and l =1 then exit
next
if j=1 and k=1 and l=1 then
return 1
else
return 0
end if
页:
[1]