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

2017-09-15 17:18:00
黄善超
原创
558

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


这是一段简单的防止密码设置太简单的源码。当设置小于6位或者有几位是连续重复的即会被提示“密码过于简单,请重新填写”。如果密码设置足够复杂,即会通过。

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


    分享