- Add freshness claims to the protocols that should guarantee freshness

spdl/SPORE/tmn.spdl

@@ -3,12 +3,16 @@
 # Modelled after the description in the SPORE library
 # http://www.lsv.ens-cachan.fr/spore/tmn.html
 #
+# Note:
+# According to Boyd and Mathuria Kb is the session key this is not clear
+# from the description in SPORE
 
 usertype Key;
 
 const pk: Function;
 secret sk: Function;
 inversekeys(pk,sk);
+const Fresh: Function;
 
 protocol tmn(I,R,S)
 {
@@ -20,8 +24,9 @@ protocol tmn(I,R,S)
         send_1(I,S, R,{Ki}pk(S) );
         read_4(S,I, R,{Kr}Ki );
 
-        claim_I1(I,Secret,Ki);
-        claim_I2(I,Secret,Kr);
+        claim_I1(I,Secret,Kr);
+        claim_I2(I,Nisynch);
+        claim_I3(I,Empty,(Fresh,Kr));
     }    
     
     role R
@@ -32,6 +37,8 @@ protocol tmn(I,R,S)
         send_3(R,S, I, { Kr }pk(S) );
 
         claim_R1(R,Secret,Kr);
+        claim_R2(R,Nisynch);
+        claim_R3(R,Empty,(Fresh,Kr));
     }
 
     role S