'----------------以下是判断密码是否过于简单-------------
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