Last chance! 50% off unlimited learning
Sale ends in
Vigenere(x, key = NULL, decrypt = FALSE)
key <- "My FavoriteKey452"
(xenc <- Vigenere("Beware the Jabberwock, my son! The jaws that bite, the claws that catch!", key))
Vigenere(xenc, key, decrypt = TRUE)
# note that everything besides the characters in the list will be discarded
Run the code above in your browser using DataLab