secret-for-ben.r

install.packages("base64enc")
library(base64enc)

secret <- list(
  list(pos = 16, val = "eW91"),
  list(pos = 22, val = "TmV2ZXI="),
  list(pos = 1, val = "Z29ubmE="),
  list(pos = 6, val = "Z29ubmE="),
  list(pos = 18, val = "Z29ubmE="),
  list(pos = 23, val = "Z29ubmE="),
  list(pos = 31, val = "YW5k"),
  list(pos = 9, val = "ZG93bg=="),
  list(pos = 24, val = "c2F5"),
  list(pos = 26, val = "TmV2ZXI="),
  list(pos = 25, val = "Z29vZGJ5ZQ=="),
  list(pos = 10, val = "TmV2ZXI="),
  list(pos = 11, val = "Z29ubmE="),
  list(pos = 8, val = "eW91"),
  list(pos = 19, val = "bWFrZQ=="),
  list(pos = 20, val = "eW91"),
  list(pos = 12, val = "cnVu"),
  list(pos = 17, val = "TmV2ZXI="),
  list(pos = 27, val = "Z29ubmE="),
  list(pos = 28, val = "dGVsbA=="),
  list(pos = 0, val = "TmV2ZXI="),
  list(pos = 29, val = "YS"),
  list(pos = 4, val = "dXAK"),
  list(pos = 30, val = "bGll"),
  list(pos = 5, val = "TmV2ZXI="),
  list(pos = 2, val = "Z2l2ZQ=="),
  list(pos = 7, val = "bGV0"),
  list(pos = 13, val = "YXJvbmQ="),
  list(pos = 14, val = "YW5k"),
  list(pos = 15, val = "ZGVzZXJ0"),
  list(pos = 3, val = "eW91"),
  list(pos = 21, val = "Y3J5"),
  list(pos = 32, val = "aHVydA=="),
  list(pos = 33, val = "eW91")
)

aSecretForBen <- function() {
  secret <- secret[order(sapply(secret, function(x) x$pos))]
  decoded <- sapply(secret, function(x) rawToChar(base64decode(x$val)))
  return(paste(decoded, collapse = " "))
}

result <- aSecretForBen()
print(result)

Error in print(result) : object 'result' not found

Biiiiiiiiiiillllllllllll make it woooooorrrrrkkkk