'*****************************************************************
' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.
' Author : xLsDg @ Xiao Lu Software Development Group
' Blog : http://hi.baidu.com/xlsdg
' QQ : 4 4 7 4 0 5 7 4 0
' Version : 1 . 0 . 0 . 0
' Date : 2 0 1 2 / 0 4 / 0 7
' Description :
' History :
'*****************************************************************
Option Explicit
Public Const PASSWORD_INSECURE As Long = &H4
Public Const PASSWORD_WARNING As Long = &H3
Public Const PASSWORD_ADVICE As Long = &H2
Public Const PASSWORD_ACHIEVEMENT As Long = &H1
Public Function check_password_level(ByVal strPassword As String, _
Optional ByRef strInfo As String) As Long
Dim result As Long
result = check_repeated_pattern(strPassword, strInfo)
If result > PASSWORD_ACHIEVEMENT Then
check_password_level = result
Else
result = check_common_password(strPassword, strInfo)
If result > PASSWORD_ACHIEVEMENT Then
check_password_level = result
Else
result = check_possibly_a_number(strPassword, strInfo)
If result > PASSWORD_ACHIEVEMENT Then
check_password_level = result
Else
result = check_possibly_a_word(strPassword, strInfo)
If result > PASSWORD_ACHIEVEMENT Then
check_password_level = result
Else
result = check_possibly_a_telephone_number_date(strPassword, strInfo)
If result > PASSWORD_ACHIEVEMENT Then
check_password_level = result
Else
result = chec
【开源项目】花密(Flower Password)VB版之HSIMP密码强度检测模块
最新推荐文章于 2023-06-23 17:43:30 发布
这个VB代码实现了一个HSIMP密码强度检测模块,用于检查密码的安全性。通过检查重复模式、常见密码、数字、单词、电话号码/日期格式、单词和数字组合、长度和字符多样性来评估密码强度,并提供相应建议。
摘要由CSDN通过智能技术生成