Compare commits

...
2 Commits
Author SHA1 Message Date
KKlochko 0261c97d76 Add the option for the gamma cipher.
continuous-integration/drone/push Build is passing
2023-10-31 16:50:25 +02:00
KKlochko 79b72fccca Fix the key parsing in the gamma actions. 2023-10-31 16:49:30 +02:00
2 changed files with 3 additions and 2 deletions
@@ -44,7 +44,8 @@
[options arguments action-type] [options arguments action-type]
(let [message (:message options) (let [message (:message options)
key (->> (cs/split (:key options) #",") key (->> (cs/split (:key options) #",")
(map #(Integer/parseInt %))) (map #(Integer/parseInt %))
(into []))
symbols (:symbols options)] symbols (:symbols options)]
(cond (cond
(= action-type :encrypt) (= action-type :encrypt)
@@ -22,7 +22,7 @@
(option-values-as-list option values))) (option-values-as-list option values)))
(def cipher-options (def cipher-options
#{"Caesar" "Simple substitution and Caesar"}) #{"Caesar" "Simple substitution and Caesar" "Gamma"})
(def default-cipher "Caesar") (def default-cipher "Caesar")