Compare commits
3
Commits
4f89fede56
...
0261c97d76
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
0261c97d76 | ||
|
|
79b72fccca | ||
|
|
5843695a40 |
@@ -44,12 +44,15 @@
|
|||||||
[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)
|
||||||
(gamma/encrypt-message key symbols message)
|
(gamma/encrypt-message key symbols message)
|
||||||
)))
|
|
||||||
|
(= action-type :decrypt)
|
||||||
|
(gamma/decrypt-message key symbols message))))
|
||||||
|
|
||||||
(defn cryptography-actions
|
(defn cryptography-actions
|
||||||
[options arguments action-type]
|
[options arguments action-type]
|
||||||
|
|||||||
@@ -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