Closed sanjmeh closed 8 months ago
Of course. You can use validate_pwd
function.
The default is :
validate_pwd <- function(pwd) {
all(vapply(
X = c("[0-9]+", "[a-z]+", "[A-Z]+", ".{6,}"),
FUN = grepl, x = pwd, FUN.VALUE = logical(1)
))
}
For example, in global.R :
validate_pwd_custom <- function(pwd) {
all(vapply(
X = c("[0-9]+", "[a-z]+", "[A-Z]+", "[[:punct:]]+", ".{8,}"),
FUN = grepl, x = pwd, FUN.VALUE = logical(1)
))
}
And use in server.R :
auth_out <- secure_server(...,
validate_pwd = validate_pwd_custom
)
saved for testing in our project.
In the password change menu, the user is forced to use at least one number, one special char etc. Is there a way to bypass this or change these rules?