|
|
@ -74,13 +74,3 @@
|
|
|
|
(is (= (cs/lower-case plaintext)
|
|
|
|
(is (= (cs/lower-case plaintext)
|
|
|
|
(get-plaintext ciphertext symbols frequencies))))))
|
|
|
|
(get-plaintext ciphertext symbols frequencies))))))
|
|
|
|
|
|
|
|
|
|
|
|
(deftest frequency-analizer-get-plaintext-test
|
|
|
|
|
|
|
|
(let [plaintext "abc"
|
|
|
|
|
|
|
|
ciphertext "bca"
|
|
|
|
|
|
|
|
key 1
|
|
|
|
|
|
|
|
symbols "abc"
|
|
|
|
|
|
|
|
frequencies "etaoinsrhldcumfpgwybvkxjqz"]
|
|
|
|
|
|
|
|
(testing "The ciphertext is 'bca' and key is 1."
|
|
|
|
|
|
|
|
(is (= plaintext
|
|
|
|
|
|
|
|
(frequency-analizer-get-plaintext ciphertext symbols frequencies))))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|