 
 (s/fdef verify-client-public-key-triad
         :args (s/cat :state ::state/state
-                     :client-long-key ::shared/long-pk
                      :supplied-client-short-key ::shared/short-pk
                      ;; TODO: Come up with a ByteBuf spec
                      ::client-message-box any?)

                                            my-long-secret)]
      (log/info (str "Getting ready to decrypt the inner-most hidden public key\n"
                     "Supplied client long-term key:\n"
                     ;; This next should match:
                     #_[0x26 0x9f 0x81 0x8d
                        0x4a 0xfc 0x55 0x04
                        0xad 0x01 0x34 0xfd
                        0xb0 0xa4 0xf4 0x12
                        0xe3 0x64 0x96 0xae
                        0x8c 0xe7 0x14 0xb5
                        0x70 0x76 0x62 0xb2
                        0x64 0xb8 0x3f 0x19]
                     (b-t/->string client-long-key)
                     "which arrived in: "
                     client-long-buffer

            [frereth-cp.shared.crypto :as crypto]
            [frereth-cp.util :as util])
  (:import clojure.lang.ExceptionInfo
           [io.netty.buffer ByteBuf Unpooled]))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Named Constants
