727e813c77
Not everything is fixed yet. However, we fixed: - 'const' -> 'fresh' - Removed lines specifying 'runs' - Removed some specifications of compromised Eve and its long-term keys being compromised.
59 lines
976 B
Plaintext
59 lines
976 B
Plaintext
secret fresh k : Function;
|
|
|
|
/* Version from the Spore Librairy
|
|
http://www.lsv.ens-cachan.fr/spore/otwayRees.html
|
|
*/
|
|
|
|
usertype String, SesKey, Ticket, Server;
|
|
|
|
protocol otwayrees(A,B,S)
|
|
{
|
|
role A
|
|
{
|
|
fresh na : Nonce;
|
|
fresh M : String;
|
|
var kab : SesKey;
|
|
|
|
send_1(A,B, M,A,B, { na,M,A,B }k(A,S) );
|
|
read_4(B,A, M, { na,kab }k(A,S) );
|
|
|
|
claim_5(A, Secret,kab);
|
|
claim_5b(A, Niagree);
|
|
claim_5c(A, Nisynch);
|
|
}
|
|
|
|
role B
|
|
{
|
|
var M : String;
|
|
fresh nb : Nonce;
|
|
var kab : SesKey;
|
|
var t1,t2;
|
|
|
|
read_1(A,B, M,A,B, t1 );
|
|
send_2(B,S, M,A,B, t1, { nb,M,A,B }k(B,S) );
|
|
read_3(S,B, M, t2, { nb,kab }k(B,S) );
|
|
send_4(B,A, M, t2 );
|
|
|
|
claim_6(B, Secret,kab);
|
|
claim_6a(B, Niagree);
|
|
claim_6b(B, Nisynch);
|
|
}
|
|
|
|
role S
|
|
{
|
|
var na,nb : Nonce;
|
|
var M : String;
|
|
fresh kab : SesKey;
|
|
|
|
read_2(B,S, M,A,B, { na,M,A,B }k(A,S), { nb,M,A,B }k(B,S) );
|
|
send_3(S,B, M, { na,kab }k(A,S) , { nb,kab }k(B,S) );
|
|
}
|
|
}
|
|
|
|
const Alice, Bob, Eve: Agent;
|
|
const Simon: Server;
|
|
|
|
|
|
|
|
|