【开源项目】花密(Flower Password)VB版之HSIMP密码强度检测模块

这个VB代码实现了一个HSIMP密码强度检测模块,用于检查密码的安全性。通过检查重复模式、常见密码、数字、单词、电话号码/日期格式、单词和数字组合、长度和字符多样性来评估密码强度,并提供相应建议。
摘要由CSDN通过智能技术生成
'*****************************************************************
' 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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值