NSIS使用regEx进行模式匹配。密码验证开发者社区

相关文章推荐

刚毅的紫菜 · ShellExecuteExW 函数 ...· 1 年前 ·

安静的麻辣香锅 · Flutter Text ...· 1 年前 ·

坏坏的小熊猫 · r语言取最后一个元素-掘金· 3 年前 ·

魁梧的打火机 · Public preview: IPv6 ...· 3 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

文章/答案/技术大牛

发布

Function PasswordMatchesPolicy
Push $0
Push $1
Push $2
Push 0
Push 0
Exch 5
Push `^(?:(?=.*\d)(?=.*[a-z])(?=.*[A-Z]).*)$$` #stackoverflow.com/questions/43127814/regex-for-at-least-1-number-1-lower-case-and-1-upper-case-letter
NSISpcre::REMatches 
Pop $0
${If} $0 == true
    Pop $0
    ${For} $1 1 $0
        Pop $2
    ${Next}
    Push 1
${Else}
    Push ""
${EndIf}
Exch 3
Pop $2
Pop $1
Pop $0
FunctionEnd
!include LogicLib.nsh
ShowInstDetails show
Section
!macro Test str
Push "${str}"
Call PasswordMatchesPolicy
Pop $0
${If} $0 <> 0
    StrCpy $0 PASS
${Else}
    StrCpy $0 FAIL
${EndIf}
DetailPrint "$0:${str}"
!macroend
!insertmacro Test "foo"
!insertmacro Test "Foo"
!insertmacro Test "Foo1"
!insertmacro Test "Foo#"
!insertmacro Test "Foo1#"
SectionEnd

Function PasswordMatchesPolicy
!define /IfNDef C1_UPPER 0x0001
!define /IfNDef C1_LOWER 0x0002
!define /IfNDef C1_DIGIT 0x0004
!define /IfNDef C1_DEFINED 0x0200
System::Store S
System::Call 'KERNEL32::lstrcpyA(@r1,ms)'
StrCpy $5 ""
StrCpy $3 0
loop:
    System::Call '*$1(&i$3,&i1.r4)'
    ${If} $4 <> 0
        ${If} $4 >= 65
        ${AndIf} $4 <= 90
            IntOp $5 $5 | ${C1_UPPER}
        ${ElseIf} $4 >= 97
        ${AndIf} $4 <= 122
            IntOp $5 $5 | ${C1_LOWER}
        ${ElseIf} $4 >= 48
        ${AndIf} $4 <= 57
            IntOp $5 $5 | ${C1_DIGIT}
        ${Else}
            IntOp $5 $5 | ${C1_DEFINED} ; Just mark it as "something"
        ${EndIf}
        IntOp $3 $3 + 1
        Goto loop
    ${EndIf}
IntOp $4 $5 & 3
${If} $4 = 3 ; C1_UPPER and C1_LOWER
${AndIf} $5 >= 4 ; Digit or symbol

回答 1

Stack Overflow用户