- 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/ksl.spdl
+++ b/spdl/SPORE/ksl.spdl
@@ -14,6 +14,7 @@ secret k: Function;

 const a, b, e: Agent;
 const s: Server;
+const Fresh: Function;

 const ne: Nonce;
 const kee: SessionKey;
@@ -40,6 +41,7 @@ protocol ksl(A,B,S)
        claim_A1(A,Secret, Kab);
        claim_A2(A,Niagree);
        claim_A3(A,Nisynch);
+        claim_A4(A,Empty, (Fresh, Kab));
    }

    role B
@@ -64,6 +66,7 @@ protocol ksl(A,B,S)
        claim_B1(B,Secret, Kab);
        claim_B2(B,Niagree);
        claim_B3(B,Nisynch);
+        claim_B4(B,Empty,(Fresh,Kab));
    }

    role S