Add the functions to encrypt and decrypt with the gamma cipher.

2023-10-27 21:40:47 +03:00
parent e2e49ec392
commit e80e3a6cf0
2 changed files with 35 additions and 0 deletions
@@ -32,3 +32,17 @@
      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 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])))
+