cpsa-3.3.0: tst/mtic.scm

(herald "MTI C(0) protocol"
  (algebra diffie-hellman))

(defprotocol mtic diffie-hellman
  (defrole init
    (vars (a b name) (h2 h3 base) (x expn))
    (trace
     (send (enc (exp (gen) x) a (pubk b)))
     (recv (enc h2 (exp h2 x) h3 b (pubk a)))
     (send (enc (exp h3 x) (pubk b)))
    )
    (uniq-gen x)
    (comment "X should be assumed to be freshly chosen per role")
  )
  (defrole resp
    (vars (b a name) (h1 base) (y z expn))
    (trace
     (recv (enc h1 a (pubk b)))
     (send (enc (exp (gen) y) (exp h1 y) (exp (gen) z) b (pubk a)))
     (recv (enc (exp h1 z) (pubk b)))
    )
    (uniq-gen y z)
    (comment "Y and Z should be assumed to be freshly chosen per role")
  )
  (comment "Needham-Schroeder-Lowe DH challenge/responses in place of nonces")
)

;;; The initiator point-of-view
(defskeleton mtic
  (vars (a b name) (h2 h3 base) (x expn))
  (defstrand init 3 (a a) (b b) (h2 h2) (h3 h3) (x x))
  (non-orig (privk b) (privk a))
  (comment "Initiator point-of-view"))

;;; The responder point-of-view
(defskeleton mtic
  (vars (a b name) (h1 base) (y z expn))
  (defstrand resp 3 (a a) (b b) (h1 h1) (y y) (z z))
  (non-orig (privk a))
  (comment "Responder point-of-view"))

;(defskeleton dhnsl
;  (vars (a b a-0 b-0 name) (y z z-0 x expn))
;  (defstrand resp 3 (b b) (a a) (h1 (exp (gen) (mul (rec z-0) x))) (y y)
;    (z z))
;  (defstrand init 1 (a a-0) (b b-0) (x x))
;  (precedes ((1 0) (0 0)))
;  (non-orig (privk a))
;  (uniq-gen y z x)
;  (comment "empty cohort"))