andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Add Compromised claim to test my new definition of freshness in combination

Browse Source 
with key compromise (appears to be working pretty well)
This commit is contained in:
gijs 2005-06-23 12:49:34 +00:00
parent 4c224dc6f4
commit 658f4f392a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
spdl/SPORE/key-compromise/needham-schroeder-sk.spdl
View File

@ -15,6 +15,8 @@ secret k: Function;
const dec,inc: Function; const dec,inc: Function;
inversekeys(dec,inc); inversekeys(dec,inc);
usertype SessionKey; usertype SessionKey;
const Fresh: Function;
const Compromised: Function;
protocol needhamschroederSessionKeyCompromise(C) protocol needhamschroederSessionKeyCompromise(C)
{ {
@ -33,6 +35,7 @@ protocol needhamschroederSessionKeyCompromise(C)
{{Nr}dec}Kir, {{Nr}dec}Kir,
Kir Kir
); );
claim_C3(C,Empty, (Compromised,Kir));
} }
} }
@ -52,6 +55,7 @@ protocol needhamschroedersk(I,R,S)
send_5(I,R,{{Nr}dec}Kir); send_5(I,R,{{Nr}dec}Kir);
claim_I2(I,Secret,Kir); claim_I2(I,Secret,Kir);
claim_I3(I,Nisynch); claim_I3(I,Nisynch);
claim_I4(I,Empty,(Fresh,Kir));
} }
role R role R
@ -64,6 +68,7 @@ protocol needhamschroedersk(I,R,S)
read_5(I,R,{{Nr}dec}Kir); read_5(I,R,{{Nr}dec}Kir);
claim_R1(R,Secret,Kir); claim_R1(R,Secret,Kir);
claim_R3(R,Nisynch); claim_R3(R,Nisynch);
claim_R4(R,Empty,(Fresh,Kir));
} }
role S role S