Compare commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
0261c97d76 | ||
|
|
79b72fccca |
@@ -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")
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user