diff options
| -rw-r--r-- | src/org/gnu/clojure/gnunet/identity.clj | 2 | ||||
| -rw-r--r-- | src/org/gnu/clojure/gnunet/tcp.clj | 12 |
2 files changed, 14 insertions, 0 deletions
diff --git a/src/org/gnu/clojure/gnunet/identity.clj b/src/org/gnu/clojure/gnunet/identity.clj index 85392a4..9ddbef9 100644 --- a/src/org/gnu/clojure/gnunet/identity.clj +++ b/src/org/gnu/clojure/gnunet/identity.clj @@ -5,3 +5,5 @@ "Generate the SHA-512 digest of the encoded public key." [keypair] (sha-512 (encode-rsa-public-key (.getPublic keypair)))) + +(def id-size (count (sha-512 ()))) diff --git a/src/org/gnu/clojure/gnunet/tcp.clj b/src/org/gnu/clojure/gnunet/tcp.clj new file mode 100644 index 0000000..bab3a77 --- /dev/null +++ b/src/org/gnu/clojure/gnunet/tcp.clj @@ -0,0 +1,12 @@ +(ns org.gnu.clojure.gnunet.tcp + (:use (org.gnu.clojure.gnunet parser message identity crypto) + clojure.contrib.monads)) + +(def message-type-tcp-welcome 60) + +(defn encode-welcome + [my-id] + my-id) + +(def parse-welcome + (domonad parser-m [my-id (items id-size)] my-id)) |