Commit 4fcc1bfc authored by Joy Mitra's avatar Joy Mitra
parents 928f22e1 aeabefdb
File deleted
(herald "TESLA Broadcast Authentication Protocol")
(defprotocol tesla basic
(defrole bcast
(vars (mj text) (ki-d ki kmac-i skey) (x id data))
(trace
(send mj (enc mj kmac-i) ki-d)))
(comment "this should be the Mj|MAC(k'i, Mj)|ki-d message")
(defrole recv
(vars (mj text) (ki-d ki kmac-i skey) (x id data))
(trace
(recv mj (enc mj kmac-i) ki-d))))
(defskeleton tesla
(vars (mj text) (ki-d ki kmac-i skey))
(defstrand bcast 1 (mj mj) (ki-d ki-d) (ki ki) (kmac-i kmac-i))
(comment "TODO: add constraints")
(defskeleton tesla
(vars (ki-d ki kmac-i skey))
(defstrand recv 1 (ki-d ki-d) (ki ki) (kmac-i kmac-i))
(comment "TODO: add constraints")
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment