PowerBuilder(PB)判断密码强度，是否包括字母\数字\符号等

ehxz

免费乐捐，感谢支持

二个参数：
lpass 密码长度要求
pass 密码复杂度（默认要是包括数字，字母，符号），可根据后面的判断修改
返回值：
1 表示符合要求
0 表示不符合要求

1. long vilen,i,j,k,l
   
2. string vschar
   
3. vilen = len(pass)
   
4. if vilen < lpass then return 0
   
5. for i = 1 to vilen
   
6.         vschar = mid(pass,i,1)
   
7.         if pos('0123456789',vschar) > 0 then j = 1 //数字
   
8.         if pos('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',vschar) > 0 then k = 1 //所有字母
   
9.         if pos('~!@#$%^&*()-_=+{}|[]\:;<>,.?/',vschar) > 0 then l = 1 //除单引号
   
10.         if pos("'",vschar)>0 then l = 1 //单引号
    
11.         if  j = 1 and  k=1 and l =1 then exit
    
12. next
    
13. if j=1 and k=1 and l=1 then
    
14.         return 1
    
15. else
    
16.         return 0
    
17. end if

复制代码