##  encrypt.R

##  Encrypt text
A <- as.integer(as.hexmode(as.character(charToRaw(as.character("Hello, Jay!")))))
B <- as.integer(intToBits(A))
D <- as.integer(xor(D,c(1,0)))


##  Decrypt cipher
rawToChar(as.raw(A))


clearTextDictionary <-
  c(
    "0000100000", ## a
    "0001100000", ## b
    "0010100000", ## c
    "0100100000", ## d
    "0001000000", ## e
    "0011000000", ## f
    "0101000000", ## g
    "1001000000", ## h
    "0000001000", ## i
    "0000011000", ## j
    "0000101000", ## k
    "0001001000", ## l
    "0010001000", ## m
    "0100001000", ## n
    "0000010000", ## o
    "0000110000", ## p
    "0001010000", ## q
    "0010010000", ## r
    "0100010000", ## s
    "1000010000", ## t
    "0010000000", ## u
    "0110000000", ## v
    "1010000000", ## w
    "1110000000", ## x
    "0100000000", ## y
    "1100000000", ## z
    "0000000000", ## <space>
    "1111111111", ## .
    "1111001111", ## ,
    "1111111110", ## 0
    "1111111101", ## 1
    "1111111011", ## 2
    "1111110111", ## 3
    "1111101111", ## 4
    "1111011111", ## 5
    "1110111111", ## 6
    "1101111111", ## 7
    "1011111111", ## 8
    "0111111111"  ## 9
  )
names(clearTextDictionary) <- c(letters, " ", ".", ",", 0:9)

S <- "This String"
S <- strsplit(S, "")
V <- ""
for (i in 1:length(S[[1]])){
  try(S[[1]][i] <- letters[(which(S[[1]][i]==LETTERS))], silent=TRUE)
  if (!(as.character(S[[1]][i]) %in% names(clearTextDictionary))){
    print(paste0(as.character(S[[1]][i])," is an invalid character."))
  }else{
    #print(as.vector(clearTextDictionary[(which(names(clearTextDictionary)==as.character(S[[1]][i])))]))
    V <- paste0(V,clearTextDictionary[(which(names(clearTextDictionary)==as.character(S[[1]][i])))])
  }
}