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

- Improved the arguments adapting to the input stuff (e.g. number of

Browse Source 
protocols)
- Improved many protocols by adding agreement claims.
This commit is contained in:
ccremers
2005-03-02 19:57:05 +00:00
parent acb98c2212
commit 282504c8cc
12 changed files with 86 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
spdl/andrew-ban.spdl
View File

@@ -14,6 +14,7 @@ protocol andrewBan(I,R)
send_3(I,R, {nr}k(I,R) );
read_4(R,I, {kir,nr2,ni}k(I,R) );
claim_5(I,Nisynch);
claim_5b(I,Niagree);
claim_6(I,Secret, kir);
claim_7(I,Secret, k(I,R));
}
@@ -29,6 +30,7 @@ protocol andrewBan(I,R)
read_3(I,R, {nr}k(I,R) );
send_4(R,I, {kir,nr2,ni}k(I,R) );
claim_8(R,Nisynch);
claim_8b(R,Niagree);
claim_9(R,Secret, kir);
claim_10(R,Secret, k(I,R));
}

2
spdl/andrew-lowe-ban.spdl
View File

@@ -14,6 +14,7 @@ protocol andrewLoweBan(I,R)
send_3(I,R, {ni}kir );
read_4(R,I, nr );
claim_5(I,Nisynch);
claim_5b(I,Niagree);
claim_6(I,Secret, kir);
claim_7(I,Secret, k(I,R));
}
@@ -29,6 +30,7 @@ protocol andrewLoweBan(I,R)
read_3(I,R, {ni}kir );
send_4(R,I, nr );
claim_8(R,Nisynch);
claim_8b(R,Niagree);
claim_9(R,Secret, kir);
claim_10(R,Secret, k(I,R));
}

6
spdl/bke.spdl
View File

@@ -22,6 +22,7 @@ protocol bke(I,R)
read_2 (R,I, { hash(ni),nr,R,kir }pk(I) );
send_3 (I,R, { hash(nr) }kir );
claim_4 (I, Secret, kir );
claim_5 (I, Niagree );
claim_6 (I, Nisynch );
}
@@ -34,8 +35,9 @@ protocol bke(I,R)
read_1 (I,R, { ni,I }pk(R) );
send_2 (R,I, { hash(ni),nr,R,kir }pk(I) );
read_3 (I,R, { hash(nr) }kir );
claim_5 (R, Secret, kir );
claim_7 (R, Nisynch );
claim_7 (R, Secret, kir );
claim_8 (R, Niagree );
claim_9 (R, Nisynch );
}
}

10
spdl/bkepk.spdl
View File

@@ -23,8 +23,11 @@ protocol bkepk(A,B)
send_1 (B,A, B,{ nb,B }pk(A) );
read_2 (A,B, { hash(nb),na,A,kab }pk(B) );
send_3 (B,A, { hash(na) }kab );
claim_4 (B, Secret, na );
claim_5 (B, Secret, nb );
claim_6 (B, Niagree );
claim_7 (B, Nisynch );
}
role A
@@ -36,8 +39,11 @@ protocol bkepk(A,B)
read_1 (B,A, B,{ nb,B }pk(A) );
send_2 (A,B, { hash(nb),na,A,kab }pk(B) );
read_3 (B,A, { hash(na) }kab );
claim_6 (A, Secret, na );
claim_7 (A, Secret, nb );
claim_8 (A, Secret, na );
claim_9 (A, Secret, nb );
claim_10 (A, Niagree);
claim_11 (A, Nisynch);
}
}

8
spdl/ccitt509-ban.spdl
View File

@@ -19,6 +19,7 @@ protocol ccitt509(I,R)
claim_4(I,Secret,yi);
claim_5(I,Secret,yr);
claim_6(I,Nisynch);
claim_7(I,Niagree);
}
role R
@@ -32,9 +33,10 @@ protocol ccitt509(I,R)
send_2(R,I, R,{nr, I, ni, xr, {yr}pk(I) }sk(R) );
read_3(I,R, I,{R,nr}sk(I) );
claim_7(R,Secret,yi);
claim_8(R,Secret,yr);
claim_9(R,Nisynch);
claim_8(R,Secret,yi);
claim_9(R,Secret,yr);
claim_10(R,Nisynch);
claim_11(R,Niagree);
}
}

8
spdl/gong-nonce-b.spdl
View File

@@ -26,6 +26,7 @@ protocol gongnonceb(I,R,S)
claim_6 (I, Secret, ki);
claim_7 (I, Secret, kr);
claim_8 (I, Nisynch);
claim_9 (I, Niagree);
}
role R
@@ -39,9 +40,10 @@ protocol gongnonceb(I,R,S)
send_3 (R,S, { R,S,R,kr,I }k(R,S), { R,I, ni }f(ki,kr), nr );
read_5 (I,R, { I,R,nr }f(ki,kr) );
claim_9 (R, Secret, ki);
claim_10 (R, Secret, kr);
claim_11 (R, Nisynch);
claim_10 (R, Secret, ki);
claim_11 (R, Secret, kr);
claim_12 (R, Nisynch);
claim_13 (R, Niagree);
}
role S

9
spdl/kaochow-palm.spdl
View File

@@ -13,6 +13,10 @@ protocol kaochowPalm(I,R,S)
send_1 (I,S, I,R,ni);
read_3 (R,I, {I,R,ni,kir}k(I,S), {ni}kir, nr );
send_4 (I,R, {nr}kir );
claim_5 (I, Nisynch);
claim_6 (I, Niagree);
claim_7 (I, Secret, kir);
}
role R
@@ -26,8 +30,9 @@ protocol kaochowPalm(I,R,S)
send_3 (R,I, T, {ni}kir, nr );
read_4 (I,R, {nr}kir );
claim_5 (R, Nisynch);
claim_6 (R, Secret, kir);
claim_8 (R, Nisynch);
claim_9 (R, Niagree);
claim_10 (R, Secret, kir);
}
role S

9
spdl/kaochow.spdl
View File

@@ -13,6 +13,10 @@ protocol kaochow(I,R,S)
send_1 (I,S, I,R,ni);
read_3 (R,I, {I,R,ni,kir}k(I,S), {ni}kir, nr );
send_4 (I,R, {nr}kir );
claim_5 (R, Nisynch);
claim_6 (R, Niagree);
claim_7 (R, Secret, kir);
}
role R
@@ -26,8 +30,9 @@ protocol kaochow(I,R,S)
send_3 (R,I, T, {ni}kir, nr );
read_4 (I,R, {nr}kir );
claim_5 (R, Nisynch);
claim_6 (R, Secret, kir);
claim_8 (R, Nisynch);
claim_9 (R, Niagree);
claim_10 (R, Secret, kir);
}
role S

6
spdl/woolam-cmv.spdl
View File

@@ -34,6 +34,8 @@ protocol woolamcmv(A,B,S)
send_7(A,B, { Nb }Kab );
claim_8(A,Secret, Kab);
claim_9(A,Niagree);
claim_10(A,Nisynch);
}
role B
@@ -51,7 +53,9 @@ protocol woolamcmv(A,B,S)
send_6(B,A, t2, { Na,Nb }Kab );
read_7(A,B, { Nb }Kab );
claim_9(B,Secret, Kab);
claim_11(B,Secret, Kab);
claim_12(B,Niagree);
claim_13(B,Nisynch);
}
role S

8
spdl/yahalom-lowe.spdl
View File

@@ -24,7 +24,10 @@ protocol yahalomlowe(I,R,S)
send_1(I,R, I,ni);
read_3(S,I, {R,kir,ni,nr}k(I,S) );
send_5(I,R, {I,R,S,nr}kir );
claim_8(I, Secret,kir);
claim_9(I, Niagree);
claim_10(I, Nisynch);
}
role R
@@ -37,8 +40,9 @@ protocol yahalomlowe(I,R,S)
send_2(R,S, {I,ni,nr}k(R,S) );
read_4(S,R, {I,kir}k(R,S) );
read_5(I,R, {I,R,S,nr}kir );
claim_9(R, Secret,kir);
claim_10(R, Nisynch);
claim_11(R, Secret,kir);
claim_12(R, Nisynch);
claim_13(R, Niagree);
}
role S

6
spdl/yahalom-paulson.spdl
View File

@@ -28,6 +28,7 @@ protocol yahalompaulson(I,R,S)
claim_8(I, Secret,kir);
claim_9(I, Nisynch);
claim_10(I, Niagree);
}
role R
@@ -40,8 +41,9 @@ protocol yahalompaulson(I,R,S)
send_2(R,S, R,nr,{I,ni}k(R,S) );
read_4(I,R, {I,R,kir,nr}k(R,S), {nr}kir );
claim_10(R, Secret,kir);
claim_11(R, Nisynch);
claim_11(R, Secret,kir);
claim_12(R, Nisynch);
claim_13(R, Niagree);
}
role S