- Add freshness claims to the protocols that should guarantee freshness

spdl/SPORE/denning-sacco.spdl

@@ -12,6 +12,7 @@ usertype Key;
 usertype SessionKey;
 usertype TimeStamp;
 secret k: Function;
+const Fresh: Function;
 
 protocol denningSacco(I,R,S)
 {
@@ -26,6 +27,8 @@ protocol denningSacco(I,R,S)
         send_3(I,R, W);
         claim_I1(I,Niagree);
         claim_I2(I,Nisynch);
+        claim_I3(I,Secret,Kir);
+        claim_I4(I,Empty, (Fresh,Kir));
     }    
     
     role R
@@ -36,7 +39,8 @@ protocol denningSacco(I,R,S)
         read_3(I,R, {Kir,I,T}k(R,S));
         claim_R1(R,Niagree);
         claim_R2(R,Nisynch);
-
+        claim_R3(R,Secret,Kir);
+        claim_R4(R,Empty, (Fresh,Kir));
     }
     
     role S