Замещающее шифрование / дешифрование в R

Question

Используя переменные alpha и key, зашифруйте ptext в переменную с именем ctext. Используя подстановочный шифр

Итак, у меня есть текстовый файл, разделенный вектором

ptext <- strsplit(ptext,split = "", fixed = TRUE)
ptext <- unlist(ptext)

Я также создал ключ для этого шифра

key <- "ZGYHXIWJVKULTMSARBQCPDOENF"
key <- unlist(strsplit(key,""))
and an Alphabet vector for the key

alpha <- "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
alpha <= toupper(alpha)
alpha <- unlist(strsplit(alpha,""))

Теперь моя цель состоит в том, чтобы попытаться заменить все символы в векторе ptext, соответствующие буквам в ключе по отношению к альфа (Пример: A в альфа по отношению к Z в ключе. Таким образом, все A в тексте будут заменены по Z) * ​​1011 *

Я знаю, что должен соответствовать альфа-ключу

cipher <- match(key,alpha)

Теперь моя проблема в том, что файл ptext содержит более 1000 символов. Как я смогу заменить все буквы в этом векторе?

Answer 1

Вы можете использовать chartr, что позволит избежать разбиения строки и вставки назад.

ptext <- 'REQWDSFFFSLK'
alpha <- 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
key   <- 'ZGYHXIWJVKULTMSARBQCPDOENF'

chartr(alpha, key, ptext)
#[1] "BXROHQIIIQLU"

Здесь все R заменяется на B, E на X и т. Д. для каждого значения символа.

Answer 2

По сути, вам нужно делать то, что вы делаете с шифром, но применять это к каждой букве ptext. Вы можете оставить как вектор одиночных строк или собрать их вместе, как хотите, например, используя paste0 ниже.

set.seed(123)
ptext <- strsplit(LETTERS[sample(26, 100, T)],split = "", fixed = TRUE)
ptext <- unlist(ptext)

key <- "ZGYHXIWJVKULTMSARBQCPDOENF"
key <- unlist(strsplit(key,""))

alpha <- unlist(strsplit(LETTERS,""))

encoded <- sapply(ptext, function(x) key[match(x, alpha)])
encoded
#>   O   S   N   C   J   R   V   K   E   T   N   V   Y   Z   E   S   Y   Y   I   C 
#> "S" "Q" "M" "Y" "K" "B" "D" "U" "X" "C" "M" "D" "N" "F" "X" "Q" "N" "N" "V" "Y" 
#>   H   Z   G   J   I   S   D   N   Q   K   G   U   L   O   J   M   G   I   I   J 
#> "J" "F" "W" "K" "V" "Q" "H" "M" "R" "U" "W" "P" "L" "S" "K" "T" "W" "V" "V" "K" 
#>   W   U   G   U   F   Y   B   E   H   L   M   R   A   Y   Y   F   U   O   I   O 
#> "O" "P" "W" "P" "I" "N" "G" "X" "J" "L" "T" "B" "Z" "N" "N" "I" "P" "S" "V" "S" 
#>   Z   P   T   F   K   H   V   V   G   P   Q   V   R   Q   B   D   M   E   V   S 
#> "F" "A" "C" "I" "U" "J" "D" "D" "W" "A" "R" "D" "B" "R" "G" "H" "T" "X" "D" "Q" 
#>   Y   T   V   Y   N   Y   W   C   H   P   L   Y   N   C   N   G   C   W   V   Z 
#> "N" "C" "D" "N" "M" "N" "O" "Y" "J" "A" "L" "N" "M" "Y" "M" "W" "Y" "O" "D" "F"

paste0(encoded, collapse = "")
#> [1] "SQMYKBDUXCMDNFXQNNVYJFWKVQHMRUWPLSKTWVVKOPWPINGXJLTBZNNIPSVSFACIUJDDWARDBRGHTXDQNCDNMNOYJALNMYMWYODF"