Access检测设置的注册密码是否太简单，判断密码的复杂程度

Access的安全性问题备受关注。Access密码经常被破解。

如何有效地完全防止这类情况发生呢？答案是否定的。我们做到的只能是提高安全性，多做保护措施，减少被破解的渠道

今天讲讲密码的设置：在用户登录的之前，要先设置用户密码。用户密码太简单会很容易被其他用户破解登录的

先分享一段源码：

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

当然这里只是一段比较简单的代码。你可以自己修改，使密码符合某种格式才能被通过。希望有抛砖引玉的作用。