判断登录密码是否过于简单源码

时　间:2008-05-12 22:10:36
作　者:十段   ID：563  城市：上海
摘　要:当返回为false时则密码过于简单
正　文:

'----------------以下是判断密码是否过于简单-------------
Public Function password_judge(passwd As String) As Boolean
 Dim A(5) As Integer
 Dim b As Integer
 Dim i As Integer
 password_judge = True
 
  If Len(passwd) < 6 Then
        password_judge = False
        Exit Function
   End If
     For i = 1 To 5
         b = i + 1
         A(i) = Asc(Mid(passwd, b, 1)) - Asc(Mid(passwd, i, 1))
     Next
    
      If A(1) = A(2) or A(4) = A(5) Then
          password_judge = False
      End If
      
End Function


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店