How can I generate a user password in R [closed]

genPsw <- function(num, len=8) {
  myArr  <- c("", 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", 
              "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", 
              "N", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", 
              "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",
              "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", 
              "!", "§", "$", "%", "&", "(", ")", "*")
  replicate(num, paste(sample(myArr, size=len, replace=T), collapse=""))
}

set.seed(1)
genPsw(3)
# [1] "JRf§E§&l" "j5ECnSsa" "p*St%Fk9"

Leave a Comment