Secret Message

secret_message.R

library(tidyverse)

map <- data_frame(
    ins = c(LETTERS, letters),
    outs = c(rev(LETTERS), rev(letters))
)

map


message <- 'Hello Norah,
I am writing in secret code.  I am looking forward to when our family
will be coming over.  The comercials for the Super Bowl game are the
best part of the game.
                                           Love,
                                           Daddy'


data_frame(
    ins = strsplit(message, '')[[1]]
) %>%
    left_join(map) %>%
    mutate(outs = ifelse(is.na(outs), ins, outs)) %>%
    summarize(out = paste(outs, collapse ='')) %>%
    pull(out) %>%
    cat()


message2 <- 'Svool Mlizs,
R zn dirgrmt rm hvxivg xlwv.  R zn ollprmt ulidziw gl dsvm lfi uznrob
droo yv xlnrmt levi.  Gsv xlnvixrzoh uli gsv Hfkvi Yldo tznv ziv gsv
yvhg kzig lu gsv tznv.
                                           Olev,
                                           Wzwwb'


data_frame(
    outs = strsplit(message2, '')[[1]]
) %>%
    left_join(map) %>%
    mutate(ins = ifelse(is.na(ins), outs, ins)) %>%
    summarize(ins = paste(ins, collapse ='')) %>%
    pull(ins) %>%
    cat()