frereth.cp.client.initiate — com.frereth/cp 0.0.5

build-initiate-interior clj

(build-initiate-interior {log-state :frereth.weald.specs/state
                          inner-nonce-suffix
                            :frereth.cp.shared.specs/inner-i-nonce
                          {long-pair :frereth.cp.shared/long-pair
                           :keys [:frereth.cp.shared.specs/srvr-name]}
                            :frereth.cp.shared/my-keys
                          :keys [:frereth.cp.shared.specs/vouch
                                 :frereth.cp.client.state/shared-secrets]
                          :as this}
                         msg
                         outer-nonce-suffix)

This is the 368+M cryptographic box that's the real payload/Vouch+message portion of the Initiate pack

build-initiate-packet clj

(build-initiate-packet {log-state :frereth.weald.specs/state
                        :keys [:frereth.weald.specs/logger
                               :frereth.cp.message.specs/message-loop-name
                               :frereth.cp.client.state/server-security]
                        :as this}
                       msg)

Combine message buffer and client state into an Initiate packet

build-inner-vouch clj

(build-inner-vouch {:keys [:frereth.cp.shared/my-keys
                           :frereth.cp.client.state/shared-secrets]
                    log-state :frereth.weald.specs/state
                    :as this})

Build the innermost vouch/nonce pair

encrypt-inner-vouch clj

(encrypt-inner-vouch log-state shared-secret nonce-suffix clear-text)

Encrypt the inner-most crypto box

initial-packet-sent clj

(initial-packet-sent {log-state :frereth.weald.specs/state
                      :keys [:frereth.weald.specs/logger]
                      :as this})

Initiate packet was put onto wire