Skip to contents

send secret message.

Usage

cypher_code(x)

Arguments

x

text

Value

coded text

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