- Add freshness claims to the protocols that should guarantee freshness

2005-06-23 12:45:32 +00:00
parent 464920907b
commit 4c224dc6f4
23 changed files with 134 additions and 51 deletions
--- a/spdl/SPORE/yahalom-paulson.spdl
+++ b/spdl/SPORE/yahalom-paulson.spdl
@@ -9,6 +9,7 @@
 #

 secret k : Function;
+const Fresh: Function;

 usertype Key;

@@ -28,6 +29,7 @@ protocol yahalomPaulson(I,R,S)

        claim_I1(I, Secret,Kir);
        claim_I2(I, Nisynch);
+        claim_I3(I, Empty, (Fresh,Kir));
    }

    role R
@@ -43,6 +45,7 @@ protocol yahalomPaulson(I,R,S)

        claim_R1(R, Secret,Kir);
        claim_R2(R, Nisynch);
+        claim_R3(R, Empty, (Fresh,Kir));
    }

    role S