|
|
@ -1,8 +1,10 @@
|
|
|
|
(ns cipher-analytical-machine.analyzers.caesar
|
|
|
|
(ns cipher-analytical-machine.analyzers.caesar
|
|
|
|
(:require [cipher-analytical-machine.ciphers.caesar :as caesar]
|
|
|
|
(:require [cipher-analytical-machine.ciphers.caesar :as caesar]
|
|
|
|
[clojure.string :as cs]
|
|
|
|
[clojure.string :as cs]
|
|
|
|
|
|
|
|
[cipher-analytical-machine.analyzers.language :as language]
|
|
|
|
[cipher-analytical-machine.analyzers.analyzers :as ca])
|
|
|
|
[cipher-analytical-machine.analyzers.analyzers :as ca])
|
|
|
|
(:import [cipher_analytical_machine.ciphers.caesar Decrypted]
|
|
|
|
(:import [cipher_analytical_machine.ciphers.caesar Decrypted]
|
|
|
|
|
|
|
|
[cipher_analytical_machine.analyzers.caesar IsNonsense]
|
|
|
|
[cipher_analytical_machine.analyzers.caesar FrequencyAnalyzer])
|
|
|
|
[cipher_analytical_machine.analyzers.caesar FrequencyAnalyzer])
|
|
|
|
(:gen-class))
|
|
|
|
(:gen-class))
|
|
|
|
|
|
|
|
|
|
|
@ -50,10 +52,13 @@
|
|
|
|
|
|
|
|
|
|
|
|
(defn frequency-analizer-get-plaintext
|
|
|
|
(defn frequency-analizer-get-plaintext
|
|
|
|
"Return the plaintext from a ciphertext using simple analizer. The function is case-insensitive."
|
|
|
|
"Return the plaintext from a ciphertext using simple analizer. The function is case-insensitive."
|
|
|
|
[ciphertext symbols letter-frequencies-string]
|
|
|
|
[ciphertext symbols letter-frequencies-string language-code]
|
|
|
|
(let [decrypt (reify Decrypted
|
|
|
|
(let [decrypt (reify Decrypted
|
|
|
|
(decrypt [this message key symbols]
|
|
|
|
(decrypt [this message key symbols]
|
|
|
|
(caesar/decrypt-message message key symbols)))]
|
|
|
|
(caesar/decrypt-message message key symbols)))
|
|
|
|
(-> (new FrequencyAnalyzer ciphertext symbols letter-frequencies-string decrypt)
|
|
|
|
is-nonsense (reify IsNonsense
|
|
|
|
|
|
|
|
(isNonsense [this message]
|
|
|
|
|
|
|
|
(language/is-nonsense? message language-code)))]
|
|
|
|
|
|
|
|
(-> (new FrequencyAnalyzer ciphertext symbols letter-frequencies-string decrypt is-nonsense)
|
|
|
|
.crack)))
|
|
|
|
.crack)))
|
|
|
|
|
|
|
|
|
|
|
|