Password Validation using MATCH (RegEx)

[CarlBarnes]

@RexCalifornia

Minimum eight characters, at least one uppercase letter, one lowercase letter, one number and one special character.

PasswordBad     PROCEDURE(STRING pwd),STRING 
    CODE
    IF LEN(CLIP(Pwd)) < 8 THEN                RETURN 'Minimum eight characters'.
    IF ~MATCH(Pwd,'[A-Z]',Match:Regular) THEN RETURN 'at least one uppercase letter '.
    IF ~MATCH(Pwd,'[a-z]',Match:Regular) THEN RETURN 'one lowercase letter '.
    IF ~MATCH(Pwd,'[0-9]',Match:Regular) THEN RETURN 'one number '          .
    IF ~MATCH(Pwd,'[^A-Z^a-z^0-9]',Match:Regular) THEN RETURN 'one special character '.

    IF INSTRING(CHR(32),CLIP(Pwd)) THEN  RETURN 'No Spaces'. !Suggested

    RETURN '' !Ok