|
|
@ -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)
|
|
|
|