-
Notifications
You must be signed in to change notification settings - Fork 0
/
dh_test.clj
executable file
·30 lines (20 loc) · 946 Bytes
/
dh_test.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(ns set5.dh-test
(:require [clojure.test :refer :all]
[util.math :as math]))
(def MAX-INT32 0x7FFFFFFF)
(defn establish-keys
[p g]
(let [a (rand-int MAX-INT32)
b (rand-int MAX-INT32)]
(= (-> (math/pow g a p)
(math/pow b p))
(-> (math/pow g b p)
(math/pow a p)))))
(deftest dh-test-easy
(testing "Failed easy DH test"
(is (establish-keys 37 5))))
(def p (read-string "0xffffffffffffffffc90fdaa22168c234c4c6628b80dc1cd129024e088a67cc74020bbea63b139b22514a08798e3404ddef9519b3cd3a431b302b0a6df25f14374fe1356d6d51c245e485b576625e7ec6f44c42e9a637ed6b0bff5cb6f406b7edee386bfb5a899fa5ae9f24117c4b1fe649286651ece45b3dc2007cb8a163bf0598da48361c55d39a69163fa8fd24cf5f83655d23dca3ad961c62f356208552bb9ed529077096966d670c354e4abc9804f1746c08ca237327ffffffffffffffff"))
(def g 2)
(deftest dh-test
(testing "Failed to establish Diffie-Hellman keys"
(is (establish-keys p g))))