cypher_code.
cypher_code.Rd
send secret message.
Examples
xx <- cypher_code(x = "This is a secret coded message")
#> Error in substr(cyphers[cn], 1, nchar(x)): object 'cyphers' not found
xx
#> Error in eval(expr, envir, enclos): object 'xx' not found
cypher_decode(xx)
#> Error in strsplit(x, split = " "): object 'xx' not found