pwGenerator=function(pwlength){
abc<- letters
ABC<- toupper(letters)
numerics<- 0:9
special<- c('!', '?', '$', '%', '&', '/', '=' ,'?')
basis<- c(abc, ABC, numerics, special)
pw<- sample(basis, pwlength, replace = TRUE)
paste(pw, collapse="")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.