Merge branch 'dev' into 'main'
continuous-integration/drone/push Build is passing
Details
continuous-integration/drone/push Build is passing
Details
Ready to use the implementations of Simple substitution and the Gamma ciphers See merge request KKlochko/cipher-analytical-machine!2main
commit
1bb7b219f0
@ -0,0 +1,44 @@
|
|||||||
|
(ns cipher-analytical-machine.analyzers.simple-substitution
|
||||||
|
(:require [clojure.string :as cs]
|
||||||
|
[clojure.math.combinatorics :as comb]
|
||||||
|
[cipher-analytical-machine.ciphers.simple-substitution :as ss]
|
||||||
|
[cipher-analytical-machine.analyzers.analyzers :as analyzers]
|
||||||
|
[cipher-analytical-machine.analyzers.caesar :as caesar])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn get-possible-key-vector
|
||||||
|
"Convert a possible key map to a vector of possible keys. For example, if you have a map: {\\a [\\a \\b \\c] \\b [\\b \\c] \\c [\\a \\c]}, then the vector is [[\\a \\b \\c] [\\b \\c] [\\a \\c]]."
|
||||||
|
[possible-key-map symbols]
|
||||||
|
(reduce
|
||||||
|
(fn [acc el]
|
||||||
|
(conj acc (get possible-key-map el)))
|
||||||
|
[] symbols))
|
||||||
|
|
||||||
|
(defn get-possible-key-vector-from-reversed-count-map
|
||||||
|
"Convert a reversed count map to a vector. Example, from {2 [\\a \\b] 1 [\\d] 3 [\\e]} to [[\\e] [\\a \\b] [\\d]])."
|
||||||
|
[reversed-count-map]
|
||||||
|
(->> reversed-count-map
|
||||||
|
(into [])
|
||||||
|
(sort-by #(- (first %)))
|
||||||
|
(map second)
|
||||||
|
(into [])))
|
||||||
|
|
||||||
|
(defn get-all-permutation-for-block
|
||||||
|
"Return a vector for all possible blocks that can be made from a vector of symbols."
|
||||||
|
[symbols]
|
||||||
|
(->> (comb/permutations symbols)
|
||||||
|
(map cs/join)
|
||||||
|
(into [])))
|
||||||
|
|
||||||
|
(defn get-all-combinations-for-blocks
|
||||||
|
"Return the all combination of blocks in a possible key vector. For example, if you have a map: {\\a [\\a \"bf\" \\c] \\b [\"bf\" \\c] \\c [\\a \\c]}, then the vector is [[\\a \"bf\" \\c] [\"bf\" \\c] [\\a \\c]] and keys (\"abfa\" \"abfc\" ...)."
|
||||||
|
[possible-key-vector]
|
||||||
|
(->> (apply comb/cartesian-product possible-key-vector)
|
||||||
|
(map cs/join)))
|
||||||
|
|
||||||
|
(defn get-possible-key-combinations
|
||||||
|
"Return possible keys for a possible key vector. For example, if you have a map: {\\a [\\a \\b \\c] \\e [\\f \\g] \\c [\\a \\c]}, then the keys are (\"abcefg\" \"abcegf\" ...)."
|
||||||
|
[possible-key-vector]
|
||||||
|
(->> (map get-all-permutation-for-block possible-key-vector)
|
||||||
|
(get-all-combinations-for-blocks)))
|
||||||
|
|
||||||
@ -0,0 +1,78 @@
|
|||||||
|
(ns cipher-analytical-machine.ciphers.gamma
|
||||||
|
(:require
|
||||||
|
[clojure.set :as set]
|
||||||
|
[clojure.string :as cs]
|
||||||
|
[cipher-analytical-machine.ciphers.simple-substitution :as ss])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn add-mod
|
||||||
|
[f s module]
|
||||||
|
(-> (+ f s)
|
||||||
|
(mod module)))
|
||||||
|
|
||||||
|
(defn generate-seq
|
||||||
|
"Generate a lazy sequence for a key (a b c)."
|
||||||
|
[a b c module]
|
||||||
|
((fn build-seq [a b c]
|
||||||
|
(lazy-seq (cons a (build-seq b c (add-mod a c module))))) a b c))
|
||||||
|
|
||||||
|
(defn generate-gamma-seq
|
||||||
|
"Generate the gamma seq from a sequence."
|
||||||
|
[acc seq module]
|
||||||
|
(if (= (second seq) nil) acc
|
||||||
|
(generate-gamma-seq
|
||||||
|
(conj acc (add-mod (first seq) (second seq) module))
|
||||||
|
(rest seq)
|
||||||
|
module)))
|
||||||
|
|
||||||
|
(defn generate-gamma
|
||||||
|
"Generate the gamma from a key (a b c)."
|
||||||
|
[a b c module size]
|
||||||
|
(generate-gamma-seq []
|
||||||
|
(->> (generate-seq a b c module)
|
||||||
|
(take (inc size)))
|
||||||
|
module))
|
||||||
|
|
||||||
|
(defn encrypt-array
|
||||||
|
"Encrypt an array using the gamma cipher. The function is case-insensitive. The key is an array of three elements [a b c]. The array contains integer in range [0, module)."
|
||||||
|
[key module array]
|
||||||
|
(let [size (count array)
|
||||||
|
gamma (->> (apply conj [key module size])
|
||||||
|
(apply generate-gamma))]
|
||||||
|
(->> gamma
|
||||||
|
(map vector array)
|
||||||
|
(map (fn [[a g]] (add-mod a g module))))))
|
||||||
|
|
||||||
|
(defn encrypt-message
|
||||||
|
"Encrypt a message using the gamma cipher. The function is case-insensitive. The key is an array of three elements [a b c]. The array contains integer in range [0, module)."
|
||||||
|
[key symbols message]
|
||||||
|
(let [module (count symbols)
|
||||||
|
table (ss/generate-sorted-substitution-table symbols)]
|
||||||
|
(->> message
|
||||||
|
(ss/decrypt-by-table (set/map-invert table))
|
||||||
|
(encrypt-array key module)
|
||||||
|
(ss/decrypt-by-table table)
|
||||||
|
(cs/join))))
|
||||||
|
|
||||||
|
(defn decrypt-array
|
||||||
|
"Decrypt an array using the gamma cipher. The function is case-insensitive. The key is an array of three elements [a b c]. The array contains integer in range [0, module)."
|
||||||
|
[key module array]
|
||||||
|
(let [size (count array)
|
||||||
|
gamma (->> (apply conj [key module size])
|
||||||
|
(apply generate-gamma))]
|
||||||
|
(->> gamma
|
||||||
|
(map -)
|
||||||
|
(map vector array)
|
||||||
|
(map (fn [[a g]] (add-mod a g module))))))
|
||||||
|
|
||||||
|
(defn decrypt-message
|
||||||
|
"Decrypt a message using the gamma cipher. The function is case-insensitive. The key is an array of three elements [a b c]. The array contains integer in range [0, module)."
|
||||||
|
[key symbols message]
|
||||||
|
(let [module (count symbols)
|
||||||
|
table (ss/generate-sorted-substitution-table symbols)]
|
||||||
|
(->> message
|
||||||
|
(ss/decrypt-by-table (set/map-invert table))
|
||||||
|
(decrypt-array key module)
|
||||||
|
(ss/decrypt-by-table table)
|
||||||
|
(cs/join))))
|
||||||
|
|
||||||
@ -0,0 +1,74 @@
|
|||||||
|
(ns cipher-analytical-machine.ciphers.simple-substitution
|
||||||
|
(:require [clojure.string :as cs]
|
||||||
|
[cipher-analytical-machine.ciphers.caesar :as caesar])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn shuffled-numbers
|
||||||
|
"Generate the shuffled order for integer list."
|
||||||
|
[size]
|
||||||
|
(-> size
|
||||||
|
(take (range))
|
||||||
|
(shuffle)))
|
||||||
|
|
||||||
|
(defn generate-substitution-table
|
||||||
|
"Generate the map (char, int) for the substittion."
|
||||||
|
[symbols]
|
||||||
|
(->> (count symbols)
|
||||||
|
(shuffled-numbers)
|
||||||
|
(zipmap symbols)))
|
||||||
|
|
||||||
|
(defn generate-sorted-substitution-table
|
||||||
|
"Generate the map (char, int) for the substittion. BUT a value is the index of a symbol (from 0)."
|
||||||
|
[symbols]
|
||||||
|
(-> (count symbols)
|
||||||
|
(take (range))
|
||||||
|
(zipmap symbols)))
|
||||||
|
|
||||||
|
(defn find-value-in-table
|
||||||
|
"It uses the substitution table to find the value of a char or a number."
|
||||||
|
[char substitution-table]
|
||||||
|
(get substitution-table char))
|
||||||
|
|
||||||
|
(defn decrypt-by-table
|
||||||
|
"Decrypt a message by the substitution-table"
|
||||||
|
[substitution-table message]
|
||||||
|
(map (fn [char] (find-value-in-table char substitution-table)) message))
|
||||||
|
|
||||||
|
(defn encrypt-message
|
||||||
|
"Encrypt a message using the simple substitution cipher. The function is case-insensitive. If a symbol isn't in the symbols list, then it will be removed."
|
||||||
|
[message substitution-table]
|
||||||
|
(->> message
|
||||||
|
(decrypt-by-table substitution-table)
|
||||||
|
(remove nil?)
|
||||||
|
(cs/join \,)))
|
||||||
|
|
||||||
|
(defn encrypt-message-with-caesar
|
||||||
|
"Encrypt a message using the simple substitution cipher and the Caesar cipher. The function is case-insensitive. If a symbol isn't in the symbols list, then it will be removed."
|
||||||
|
[message key substitution-table symbols]
|
||||||
|
(-> message
|
||||||
|
(caesar/encrypt-message key symbols)
|
||||||
|
(encrypt-message substitution-table)))
|
||||||
|
|
||||||
|
(defn decrypt-message-by-symbol-table
|
||||||
|
"Decrypt a message using the simple substitution cipher. The function is case-insensitive. The substitution-table must be (symbols, symbols)."
|
||||||
|
[substitution-table message]
|
||||||
|
(->> message
|
||||||
|
(decrypt-by-table substitution-table)
|
||||||
|
(remove nil?)
|
||||||
|
(cs/join)))
|
||||||
|
|
||||||
|
(defn decrypt-message
|
||||||
|
"Decrypt a message using the simple substitution cipher. The function is case-insensitive. The substitution-table must be (int, symbols)."
|
||||||
|
[message substitution-table]
|
||||||
|
(let [message (cs/split message #",")]
|
||||||
|
(->> message
|
||||||
|
(map #(Integer/parseInt %))
|
||||||
|
(decrypt-message-by-symbol-table substitution-table))))
|
||||||
|
|
||||||
|
(defn decrypt-message-with-caesar
|
||||||
|
"Decrypt a message using the simple substitution cipher and the Caesar cipher. The function is case-insensitive."
|
||||||
|
[message key substitution-table symbols]
|
||||||
|
(-> message
|
||||||
|
(decrypt-message substitution-table)
|
||||||
|
(caesar/decrypt-message key symbols)))
|
||||||
|
|
||||||
@ -0,0 +1,9 @@
|
|||||||
|
(ns cipher-analytical-machine.parsers.gamma
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn key?
|
||||||
|
"Return true if the string is an key of three integers."
|
||||||
|
[str]
|
||||||
|
(if (re-matches #"[+-]?\b\d+\b,[+-]?\b\d+\b,[+-]?\b\d+\b" str)
|
||||||
|
true false))
|
||||||
|
|
||||||
@ -0,0 +1,29 @@
|
|||||||
|
(ns cipher-analytical-machine.parsers.parsers
|
||||||
|
(:require [cheshire.core :as cc])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn unsigned-int-string?
|
||||||
|
"Return true if the string is an unsigned integer."
|
||||||
|
[str]
|
||||||
|
(if (re-matches #"\d+" str)
|
||||||
|
true false))
|
||||||
|
|
||||||
|
(defn int-string?
|
||||||
|
"Return true if the string is an signed integer."
|
||||||
|
[str]
|
||||||
|
(if (re-matches #"[+-]?\b\d+\b" str)
|
||||||
|
true false))
|
||||||
|
|
||||||
|
(defn parse-unsigned-int
|
||||||
|
"Return an integer if the argument is an integer."
|
||||||
|
[str-or-int]
|
||||||
|
(cond
|
||||||
|
(int? str-or-int)
|
||||||
|
str-or-int
|
||||||
|
|
||||||
|
(unsigned-int-string? str-or-int)
|
||||||
|
(Integer/parseInt str-or-int)
|
||||||
|
|
||||||
|
:else
|
||||||
|
nil))
|
||||||
|
|
||||||
@ -0,0 +1,54 @@
|
|||||||
|
(ns cipher-analytical-machine.parsers.simple-substitution
|
||||||
|
(:require
|
||||||
|
[cipher-analytical-machine.ciphers.simple-substitution :as ss]
|
||||||
|
[cipher-analytical-machine.parsers.parsers :as ps]
|
||||||
|
[clojure.set :as set]
|
||||||
|
[cheshire.core :as cc])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn encode-key-and-substitution-table-to-json
|
||||||
|
[key substitution-table]
|
||||||
|
(-> {"key" key}
|
||||||
|
(assoc "table" substitution-table)
|
||||||
|
(cc/generate-string)))
|
||||||
|
|
||||||
|
(defn decode-key
|
||||||
|
"Returns the first character if the string is a char. Return the number if the string is a number."
|
||||||
|
[str]
|
||||||
|
(if (ps/unsigned-int-string? str)
|
||||||
|
(Integer/parseInt str)
|
||||||
|
(first str)))
|
||||||
|
|
||||||
|
(defn decode-pair
|
||||||
|
"Decode a numbers as a string and a char as a string"
|
||||||
|
[acc [key value]]
|
||||||
|
(if (ps/unsigned-int-string? key)
|
||||||
|
(assoc acc (decode-key key) (decode-key value))
|
||||||
|
(assoc acc (decode-key key) value)))
|
||||||
|
|
||||||
|
(defn decode-substitution-table
|
||||||
|
[substitution-table-map-from-json]
|
||||||
|
(reduce decode-pair {} substitution-table-map-from-json))
|
||||||
|
|
||||||
|
(defn decode-key-and-substitution-table-from-json
|
||||||
|
[json]
|
||||||
|
(let [data (cc/parse-string json)]
|
||||||
|
(assoc data "table" (decode-substitution-table (get data "table")))))
|
||||||
|
|
||||||
|
(defn generate-table-or-decode-json
|
||||||
|
"It generate the table and return map with the key and the table if the argument is a key. Else it decode the json."
|
||||||
|
[key-or-json symbols]
|
||||||
|
(if (ps/unsigned-int-string? key-or-json)
|
||||||
|
(-> {"key" key-or-json}
|
||||||
|
(assoc "table" (ss/generate-substitution-table symbols)))
|
||||||
|
(decode-key-and-substitution-table-from-json key-or-json)))
|
||||||
|
|
||||||
|
(defn invert-table-in-map
|
||||||
|
"Invert the table in a decoded json (key, table)"
|
||||||
|
[decoded-json]
|
||||||
|
(->>
|
||||||
|
(-> decoded-json
|
||||||
|
(get "table")
|
||||||
|
(set/map-invert))
|
||||||
|
(assoc decoded-json "table")))
|
||||||
|
|
||||||
@ -0,0 +1,47 @@
|
|||||||
|
(ns cipher-analytical-machine.analyzers.analyzers-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.analyzers.analyzers :refer :all]))
|
||||||
|
|
||||||
|
(deftest count-characters-test
|
||||||
|
(testing "Count two dublicates and one uniq character from a string."
|
||||||
|
(is (= {\a 2 \b 1}
|
||||||
|
(count-characters "aba")))))
|
||||||
|
|
||||||
|
(deftest reverse-count-characters-test
|
||||||
|
(testing "The symbols must be grouped as a vector and the count must be a key."
|
||||||
|
(are [count-map expected-map]
|
||||||
|
(= expected-map (reverse-count-characters count-map))
|
||||||
|
{\a 1 \b 2 \c 1} {1 [\a \c] 2 [\b]}
|
||||||
|
{\a 1 \b 2 \c 3} {1 [\a] 2 [\b] 3 [\c]})))
|
||||||
|
|
||||||
|
(deftest chi-squared-letter-statistic-test
|
||||||
|
(testing "If the frequence of A is 0.1, the text length is 100 and contains 20 times, then the chi-squared is 10."
|
||||||
|
(is (= 10.0
|
||||||
|
(chi-squared-letter-statistic 20 0.1 100))))
|
||||||
|
|
||||||
|
(testing "If the frequence of A is 0.1, the text length is 10 and contains 5 times, then the chi-squared is 16.0."
|
||||||
|
(is (= 16.0
|
||||||
|
(chi-squared-letter-statistic 5 0.1 10)))))
|
||||||
|
|
||||||
|
(deftest chi-squared-statistic-test
|
||||||
|
(let [text "aaaaabbbbb"]
|
||||||
|
(testing "If the frequencies of a and b is 0.1, the text length is 10 and contains them 5 times, then score is 32."
|
||||||
|
(is (= 32.0
|
||||||
|
(chi-squared-statistic text {\a 0.1 \b 0.1}))))))
|
||||||
|
|
||||||
|
(deftest sort-map-by-count-test
|
||||||
|
(testing "Test the sort in descending order."
|
||||||
|
(is (= [[\b 3] [\a 2] [\c 1]]
|
||||||
|
(sort-map-by-count {\a 2 \b 3 \c 1} )))))
|
||||||
|
|
||||||
|
(deftest table-to-string-test
|
||||||
|
(testing "Test the sort in descending order."
|
||||||
|
(is (= "bac"
|
||||||
|
(table-to-string [[\b 3] [\a 2] [\c 1]])))))
|
||||||
|
|
||||||
|
(deftest symbol-frequency-table-test
|
||||||
|
(testing "Test the sort in descending order."
|
||||||
|
(is (= {\d \b, \e \a, \f \c}
|
||||||
|
(symbol-frequency-table {\d 3 \e 2 \f 1} {\b 3 \a 2 \c 1})))))
|
||||||
|
|
||||||
@ -0,0 +1,50 @@
|
|||||||
|
(ns cipher-analytical-machine.analyzers.simple-substitution-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.symbols.frequencies :as sf]
|
||||||
|
[cipher-analytical-machine.ciphers.simple-substitution :as ss]
|
||||||
|
[cipher-analytical-machine.analyzers.simple-substitution :refer :all])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(deftest get-possible-keys-vector-test
|
||||||
|
(testing "The vector must be ordered by symbols"
|
||||||
|
(are [possible-keys-map symbols expected-key-vector]
|
||||||
|
(= expected-key-vector (get-possible-key-vector possible-keys-map symbols))
|
||||||
|
{\a [\a \b] \b [\b \a] \c [\a \c]} "abc" [[\a \b] [\b \a] [\a \c]]
|
||||||
|
{\a [\a \b] \c [\b \a] \b [\a \c]} "abc" [[\a \b] [\a \c] [\b \a]])))
|
||||||
|
|
||||||
|
(deftest get-possible-key-vector-from-reversed-count-map-test
|
||||||
|
(testing "The block order must be in descending order"
|
||||||
|
(are [reversed-count-map expected-key-vector]
|
||||||
|
(= expected-key-vector (get-possible-key-vector-from-reversed-count-map reversed-count-map))
|
||||||
|
{1 [\a \c] 2 [\b]} [[\b] [\a \c]]
|
||||||
|
{2 [\a] 1 [\b] 3 [\c]} [[\c] [\a] [\b]])))
|
||||||
|
|
||||||
|
(deftest get-all-permutation-for-block-test
|
||||||
|
(testing "It must return all permutations"
|
||||||
|
(are [symbols expected-permutations]
|
||||||
|
(= expected-permutations (get-all-permutation-for-block symbols))
|
||||||
|
[\a \b] ["ab" "ba"]
|
||||||
|
[\a \b \c] ["abc" "acb" "bac" "bca" "cab" "cba"])))
|
||||||
|
|
||||||
|
(deftest get-all-combinations-for-blocks-test
|
||||||
|
(testing "The keys must be the all combinations of blocks"
|
||||||
|
(are [possible-keys-vector expected-keys]
|
||||||
|
(= expected-keys (get-all-combinations-for-blocks possible-keys-vector))
|
||||||
|
[[\a \b] [\f] [\a \c] [\g]] '("afag" "afcg" "bfag" "bfcg")
|
||||||
|
[[\a \b] [\a \c]] '("aa" "ac" "ba" "bc")
|
||||||
|
[[\a \b \c] [\a \c] [\b \c]] '("aab" "aac" "acb" "acc" "bab" "bac" "bcb" "bcc" "cab" "cac" "ccb" "ccc"))))
|
||||||
|
|
||||||
|
(deftest get-possible-key-combinations-test
|
||||||
|
(testing "The keys must be the all combinations, but the blocks must create a permutations which will be joined as a combination"
|
||||||
|
(are [possible-keys-vector expected-keys]
|
||||||
|
(= expected-keys (get-possible-key-combinations possible-keys-vector))
|
||||||
|
[[\a \b] [\f] [\e \c] [\g]] '("abfecg" "abfceg" "bafecg" "bafceg")
|
||||||
|
[[\a \b] [\a \c]] '("abac" "abca" "baac" "baca")
|
||||||
|
[[\a \b \c] [\a \c] [\b \c]] '("abcacbc" "abcaccb" "abccabc" "abccacb"
|
||||||
|
"acbacbc" "acbaccb" "acbcabc" "acbcacb"
|
||||||
|
"bacacbc" "bacaccb" "baccabc" "baccacb"
|
||||||
|
"bcaacbc" "bcaaccb" "bcacabc" "bcacacb"
|
||||||
|
"cabacbc" "cabaccb" "cabcabc" "cabcacb"
|
||||||
|
"cbaacbc" "cbaaccb" "cbacabc" "cbacacb"))))
|
||||||
|
|
||||||
@ -0,0 +1,62 @@
|
|||||||
|
(ns cipher-analytical-machine.ciphers.gamma-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.ciphers.gamma :refer :all]))
|
||||||
|
|
||||||
|
(deftest add-mod-test
|
||||||
|
(testing "The remainder must be as expected."
|
||||||
|
(are [a b module expected]
|
||||||
|
(= expected (add-mod a b module))
|
||||||
|
5 2 4 3
|
||||||
|
1 2 3 0
|
||||||
|
2 2 3 1)))
|
||||||
|
|
||||||
|
(deftest generate-seq-test
|
||||||
|
(testing "Checking that the next element of a sequence is calculated by (e[i-1] + e[i-3] % mod)."
|
||||||
|
(are [a b c module size expected]
|
||||||
|
(= expected (take size (generate-seq a b c module)))
|
||||||
|
4 32 15 33 10 [4 32 15 19 18 0 19 4 4 23]
|
||||||
|
1 2 3 3 9 [1 2 3 1 0 0 1 1 1])))
|
||||||
|
|
||||||
|
(deftest generate-gamma-seq-test
|
||||||
|
(testing "Checking that the next element of a sequence is calculated by (s[i] + s[i+1] % mod)."
|
||||||
|
(are [acc seq module expected]
|
||||||
|
(= expected (generate-gamma-seq acc seq module))
|
||||||
|
[] [4 32 15 19 18 0 19 4 4 23] 33 [3 14 1 4 18 19 23 8 27]
|
||||||
|
[] [1 2 3 1 0 0 1 1 1] 3 [0 2 1 1 0 1 2 2])))
|
||||||
|
|
||||||
|
(deftest generate-gamma-test
|
||||||
|
(testing "Checking that the gamma is generated as expected."
|
||||||
|
(are [a b c module size expected]
|
||||||
|
(= expected (generate-gamma a b c module size))
|
||||||
|
4 32 15 33 10 [3 14 1 4 18 19 23 8 27 17]
|
||||||
|
1 2 3 3 9 [0 2 1 1 0 1 2 2 0])))
|
||||||
|
|
||||||
|
(deftest encrypt-array-test
|
||||||
|
(testing "Checking that the message is encrypted as expected: (msg+gamma)%module."
|
||||||
|
(are [key module array expected]
|
||||||
|
(= expected (encrypt-array key module array))
|
||||||
|
[4 32 15] 33 [3 14 1 4 18 19 23 8 27 17] [6 28 2 8 3 5 13 16 21 1]
|
||||||
|
[1 2 3 ] 3 [0 2 1 1 0 1 2 2 0] [0 1 2 2 0 2 1 1 0])))
|
||||||
|
|
||||||
|
(deftest encrypt-message-test
|
||||||
|
(testing "Checking that the message is encrypted as expected"
|
||||||
|
(are [key symbols message expected]
|
||||||
|
(= expected (encrypt-message key symbols message))
|
||||||
|
[4 32 15] "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя" "гкбґопужчн" "ешвжгдймсб"
|
||||||
|
[1 2 3 ] "абв" "авббабвва" "абввавбба")))
|
||||||
|
|
||||||
|
(deftest decrypt-array-test
|
||||||
|
(testing "Checking that the message is decrypted as expected."
|
||||||
|
(are [key module array expected]
|
||||||
|
(= expected (decrypt-array key module array))
|
||||||
|
[4 32 15] 33 [6 28 2 8 3 5 13 16 21 1] [3 14 1 4 18 19 23 8 27 17]
|
||||||
|
[1 2 3 ] 3 [0 1 2 2 0 2 1 1 0] [0 2 1 1 0 1 2 2 0])))
|
||||||
|
|
||||||
|
(deftest decrypt-message-test
|
||||||
|
(testing "Checking that the message is decrypted as expected"
|
||||||
|
(are [key symbols message expected]
|
||||||
|
(= expected (decrypt-message key symbols message))
|
||||||
|
[4 32 15] "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя" "ешвжгдймсб" "гкбґопужчн"
|
||||||
|
[1 2 3 ] "абв" "абввавбба" "авббабвва")))
|
||||||
|
|
||||||
@ -0,0 +1,85 @@
|
|||||||
|
(ns cipher-analytical-machine.ciphers.simple-substitution-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.ciphers.simple-substitution :refer :all]))
|
||||||
|
|
||||||
|
(deftest find-value-in-table-test
|
||||||
|
(let [table {\a 1 \b 2 \c 3}
|
||||||
|
rtable {1 \a 2 \b 3 \c}]
|
||||||
|
(testing "If the symbol is in the table as a key, then the result won't nil."
|
||||||
|
(are [key expected]
|
||||||
|
(= expected (find-value-in-table key table))
|
||||||
|
\a 1
|
||||||
|
\d nil
|
||||||
|
1 nil
|
||||||
|
5 nil))
|
||||||
|
|
||||||
|
(testing "If the digit is in the reversed table as a key, then the result won't nil."
|
||||||
|
(are [key expected]
|
||||||
|
(= expected (find-value-in-table key rtable))
|
||||||
|
\a nil
|
||||||
|
\d nil
|
||||||
|
1 \a
|
||||||
|
5 nil))))
|
||||||
|
|
||||||
|
(deftest generate-sorted-substitution-table-test
|
||||||
|
(testing "If the symbol is in the table as a key, then the result won't nil."
|
||||||
|
(are [symbols expected-table]
|
||||||
|
(= expected-table (generate-sorted-substitution-table symbols))
|
||||||
|
"abc" {0 \a 1 \b 2 \c}
|
||||||
|
"a" {0 \a})))
|
||||||
|
|
||||||
|
(deftest encrypt-message-test
|
||||||
|
(let [symbols "abc"
|
||||||
|
table {\a 1 \b 2 \c 3}]
|
||||||
|
(testing "The function must encrypt the message and remove unknown symbols."
|
||||||
|
(are [message expected]
|
||||||
|
(= expected (encrypt-message message table))
|
||||||
|
"abc" "1,2,3"
|
||||||
|
"aDbdc" "1,2,3"))))
|
||||||
|
|
||||||
|
(deftest encrypt-message-with-caesar-test
|
||||||
|
(let [symbols "abc"
|
||||||
|
table {\a 1 \b 2 \c 3}]
|
||||||
|
(testing "The function must encrypt the message and remove unknown symbols."
|
||||||
|
(are [message key expected]
|
||||||
|
(= expected (encrypt-message-with-caesar message key table symbols))
|
||||||
|
"abc" 0 "1,2,3"
|
||||||
|
"abc" 1 "2,3,1"
|
||||||
|
"aDbdc" 0 "1,2,3"))))
|
||||||
|
|
||||||
|
(deftest decrypt-by-table-test
|
||||||
|
(let [table {\d \a \e \b \f \c}]
|
||||||
|
(testing "The function must decrypt the message by the table."
|
||||||
|
(are [message expected]
|
||||||
|
(= expected (decrypt-by-table table message))
|
||||||
|
"def" '(\a \b \c)
|
||||||
|
"abf" '(nil nil \c)
|
||||||
|
"fed" '(\c \b \a)))))
|
||||||
|
|
||||||
|
(deftest decrypt-message-by-symbol-table-test
|
||||||
|
(let [table {\d \a \e \b \f \c}]
|
||||||
|
(testing "The function must decrypt the message and remove unknown numbers."
|
||||||
|
(are [message expected]
|
||||||
|
(= expected (decrypt-message-by-symbol-table table message))
|
||||||
|
"def" "abc"
|
||||||
|
"daef" "abc"))))
|
||||||
|
|
||||||
|
(deftest decrypt-message-test
|
||||||
|
(let [table {1 \a 2 \b 3 \c}]
|
||||||
|
(testing "The function must decrypt the message and remove unknown numbers."
|
||||||
|
(are [message expected]
|
||||||
|
(= expected (decrypt-message message table))
|
||||||
|
"1,2,3" "abc"
|
||||||
|
"1,12,2,3" "abc"))))
|
||||||
|
|
||||||
|
(deftest decrypt-message-with-caesar-test
|
||||||
|
(let [symbols "abc"
|
||||||
|
table {1 \a 2 \b 3 \c}]
|
||||||
|
(testing "The function must decrypt the message and remove unknown numbers."
|
||||||
|
(are [message key expected]
|
||||||
|
(= expected (decrypt-message-with-caesar message key table symbols))
|
||||||
|
"1,2,3" 0 "abc"
|
||||||
|
"2,3,1" 1 "abc"
|
||||||
|
"1,12,2,3" 0 "abc"))))
|
||||||
|
|
||||||
@ -0,0 +1,20 @@
|
|||||||
|
(ns cipher-analytical-machine.parsers.gamma-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.parsers.gamma :refer :all]))
|
||||||
|
|
||||||
|
(deftest key?-test
|
||||||
|
(testing "The function return true only if the key in the format '%d,%d,%d'."
|
||||||
|
(are [str expected]
|
||||||
|
(= expected
|
||||||
|
(key? str))
|
||||||
|
"9" false
|
||||||
|
"9,10" false
|
||||||
|
"10,9,8" true
|
||||||
|
"-10,9,-8" true
|
||||||
|
"-10,-9,-8" true
|
||||||
|
"asd 10 " false
|
||||||
|
" 10 " false
|
||||||
|
"-10" false
|
||||||
|
"abc" false)))
|
||||||
|
|
||||||
@ -0,0 +1,40 @@
|
|||||||
|
(ns cipher-analytical-machine.parsers.parsers-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.parsers.parsers :refer :all]))
|
||||||
|
|
||||||
|
(deftest unsigned-int-string?-test
|
||||||
|
(testing "The function return true only for an unsingned integer as a string."
|
||||||
|
(are [str expected]
|
||||||
|
(= expected
|
||||||
|
(unsigned-int-string? str))
|
||||||
|
"9" true
|
||||||
|
"9" true
|
||||||
|
"10" true
|
||||||
|
"asd 10 " false
|
||||||
|
" 10 " false
|
||||||
|
"-10" false
|
||||||
|
"abc" false)))
|
||||||
|
|
||||||
|
(deftest int-string?-test
|
||||||
|
(testing "The function return true only for an singned integer as a string."
|
||||||
|
(are [str expected]
|
||||||
|
(= expected
|
||||||
|
(int-string? str))
|
||||||
|
"9" true
|
||||||
|
"10" true
|
||||||
|
"-10" true
|
||||||
|
"asd -10 " false
|
||||||
|
" -10 " false
|
||||||
|
"abc" false)))
|
||||||
|
|
||||||
|
(deftest parse-unsigned-int-test
|
||||||
|
(testing "The function parse the integer if the string is an integer."
|
||||||
|
(are [str-or-int expected]
|
||||||
|
(= expected
|
||||||
|
(parse-unsigned-int str-or-int))
|
||||||
|
"9" 9
|
||||||
|
9 9
|
||||||
|
"10" 10
|
||||||
|
"-10" nil
|
||||||
|
"abc" nil)))
|
||||||
@ -0,0 +1,49 @@
|
|||||||
|
(ns cipher-analytical-machine.parsers.simple-substitution-test
|
||||||
|
(:require
|
||||||
|
[clojure.test :refer :all]
|
||||||
|
[cipher-analytical-machine.parsers.simple-substitution :refer :all]))
|
||||||
|
|
||||||
|
(deftest encode-key-and-substitution-table-to-json-test
|
||||||
|
(testing "The encoder must parse the map and create a json."
|
||||||
|
(are [key table expected-json]
|
||||||
|
(= expected-json
|
||||||
|
(encode-key-and-substitution-table-to-json key table))
|
||||||
|
1 {0 \a 1 \b 2 \c} "{\"key\":1,\"table\":{\"0\":\"a\",\"1\":\"b\",\"2\":\"c\"}}"
|
||||||
|
2 {\a 0 \b 1 \c 2} "{\"key\":2,\"table\":{\"a\":0,\"b\":1,\"c\":2}}")))
|
||||||
|
|
||||||
|
(deftest decode-key-and-substitution-table-from-json-test
|
||||||
|
(testing "The decoder must parse the json and create a map."
|
||||||
|
(are [json expected-data]
|
||||||
|
(= expected-data
|
||||||
|
(decode-key-and-substitution-table-from-json json))
|
||||||
|
"{\"key\":1, \"table\":{\"0\":\"a\",\"1\":\"b\",\"2\":\"c\"}}" {"key" 1 "table" {0 \a 1 \b 2 \c}}
|
||||||
|
"{\"key\":2, \"table\":{\"a\":0,\"b\":1,\"c\":2}}" {"key" 2 "table" {\a 0 \b 1 \c 2}})))
|
||||||
|
|
||||||
|
(deftest generate-table-or-decode-json-test
|
||||||
|
(let [symbols "abc"]
|
||||||
|
(testing "The function decodes the json."
|
||||||
|
(are [json expected-data]
|
||||||
|
(= expected-data
|
||||||
|
(generate-table-or-decode-json json symbols))
|
||||||
|
"{\"key\":1, \"table\":{\"0\":\"a\",\"1\":\"b\",\"2\":\"c\"}}" {"key" 1 "table" {0 \a 1 \b 2 \c}}
|
||||||
|
"{\"key\":2, \"table\":{\"a\":0,\"b\":1,\"c\":2}}" {"key" 2 "table" {\a 0 \b 1 \c 2}}))
|
||||||
|
|
||||||
|
(testing "The function generates the table, because the argument is a key."
|
||||||
|
(are [json expected-data]
|
||||||
|
(let [data (generate-table-or-decode-json json symbols)]
|
||||||
|
(and (= (get expected-data "key")
|
||||||
|
(get data "key"))
|
||||||
|
(= (keys (get expected-data "table"))
|
||||||
|
(keys (get data "table"))))
|
||||||
|
(generate-table-or-decode-json json symbols))
|
||||||
|
"1" {"key" 1 "table" {0 \a 1 \b 2 \c}}
|
||||||
|
"2" {"key" 2 "table" {\a 0 \b 1 \c 2}}))))
|
||||||
|
|
||||||
|
(deftest invert-table-in-map-test
|
||||||
|
(testing "The function invert the table in a decoded json."
|
||||||
|
(are [decoded-json expected-data]
|
||||||
|
(= expected-data
|
||||||
|
(invert-table-in-map decoded-json))
|
||||||
|
{"key" 1 "table" {0 \a 1 \b 2 \c}} {"key" 1 "table" {\a 0 \b 1 \c 2}}
|
||||||
|
{"key" 2 "table" {\a 0 \b 1 \c 2}} {"key" 2 "table" {0 \a 1 \b 2 \c}})))
|
||||||
|
|
||||||
Loading…
Reference in new issue