scrts

This is a secrets keeper (or password manager). It takes secrets (e.g., passwords; emails; pin numbers) stored as character strings assigned to variables in the global environment and encrypts them with a caeser algorithm. All that needs to be remembered is how to decrpyt.

Languages and Tools:

   

# secret information
x <- 'my'
y <- 'name'



library(caesar)


empty_vector <- vector('list', length(ls()))


for (i in 3:(length(ls()) + 1)) { empty_vector[[i - 2]] <- caesar(get(ls()[i])) }


# keeper
keys <- dplyr::bind_cols(
                            data.frame(
                                          item = ls()[3:length(ls())]
                            ),
                                                              plyr::ldply(empty_vector)
        )

write.csv(keys, 'keys.csv', row.names = FALSE)
read.csv('keys.csv')