Compare commits
2
Commits
4f89fede56
..
0.9.4
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
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]
|
||||||
|
|||||||
Reference in New Issue
Block a user