KKlochko/cipher-analytical-machine
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 3 Wiki Activity

Refactor the simple substitute to use the decrypt-by-table function.

Browse Source
This commit is contained in:
KKlochko
2023-10-28 17:14:55 +03:00
parent e80e3a6cf0
commit 124133a407
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/cipher_analytical_machine/ciphers/simple_substitution.clj
+7 -7
View File
@@ -29,11 +29,16 @@
[char substitution-table]
(get substitution-table char))
(defn decrypt-by-table
"Decrypt a message by the substitution-table"
[substitution-table message]
(map (fn [char] (find-value-in-table char substitution-table)) message))
(defn encrypt-message
"Encrypt a message using the simple substitution cipher. The function is case-insensitive. If a symbol isn't in the symbols list, then it will be removed."
[message substitution-table]
(->> message
(map (fn [char] (find-value-in-table char substitution-table)))
(decrypt-by-table substitution-table)
(remove nil?)
(cs/join \,)))
@@ -44,14 +49,9 @@
(caesar/encrypt-message key symbols)
(encrypt-message substitution-table)))
(defn decrypt-by-table
"Decrypt a message by the substitution-table"
[substitution-table message]
(map (fn [char] (find-value-in-table char substitution-table)) message))
(defn decrypt-message-by-symbol-table
"Decrypt a message using the simple substitution cipher. The function is case-insensitive. The substitution-table must be (symbols, symbols)."
[substitution-table message ]
[substitution-table message]
(->> message
(decrypt-by-table substitution-table)
(remove nil?)