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.
50 lines
664 B
Plaintext
50 lines
664 B
Plaintext
/*
|
|
* Woo-lam version from Spore, Pi f
|
|
*
|
|
* Only one-way verification version
|
|
*/
|
|
|
|
usertype Server, SessionKey, Ticket;
|
|
secret k: Function;
|
|
|
|
const Simon: Server;
|
|
|
|
const ke: SessionKey;
|
|
|
|
protocol woolampif(A,B,S)
|
|
{
|
|
role A
|
|
{
|
|
var Nb: Nonce;
|
|
|
|
send_1(A,B, A);
|
|
read_2(B,A, Nb);
|
|
send_3(A,B, { A,B,Nb }k(A,S) );
|
|
}
|
|
|
|
role B
|
|
{
|
|
fresh Nb: Nonce;
|
|
var T: Ticket;
|
|
|
|
read_1(A,B, A);
|
|
send_2(B,A, Nb);
|
|
read_3(A,B, T);
|
|
send_4(B,S, { A,B,Nb, T }k(B,S) );
|
|
read_5(S,B, { A,B,Nb }k(B,S) );
|
|
|
|
claim_6(B,Niagree);
|
|
claim_7(B,Nisynch);
|
|
}
|
|
|
|
role S
|
|
{
|
|
var Nb: Nonce;
|
|
|
|
read_4(B,S, { A,B,Nb, { A,B,Nb }k(A,S) }k(B,S) );
|
|
send_5(S,B, { A,B,Nb }k(B,S) );
|
|
}
|
|
}
|
|
|
|
|