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
793 B
Plaintext
50 lines
793 B
Plaintext
/*
|
|
Bilateral Key Exchange with Public Key protocol (BKEPK)
|
|
Variation for exercise 2r890
|
|
*/
|
|
|
|
usertype Key;
|
|
|
|
const pk,hash: Function;
|
|
secret sk,unhash: Function;
|
|
|
|
inversekeys (pk,sk);
|
|
inversekeys (hash,unhash);
|
|
|
|
protocol bkevariation(I,R)
|
|
{
|
|
role I
|
|
{
|
|
fresh ni: Nonce;
|
|
var nr: Nonce;
|
|
var kir: Key;
|
|
|
|
send_1 (I,R, { ni,I }pk(R) );
|
|
read_2 (R,I, { hash(ni),nr,kir }pk(I) );
|
|
send_3 (I,R, { hash(nr) }kir );
|
|
claim_4 (I, Secret, kir );
|
|
claim_5 (I, Niagree );
|
|
claim_6 (I, Nisynch );
|
|
}
|
|
|
|
role R
|
|
{
|
|
var ni: Nonce;
|
|
fresh nr: Nonce;
|
|
fresh kir: Key;
|
|
|
|
read_1 (I,R, { ni,I }pk(R) );
|
|
send_2 (R,I, { hash(ni),nr,kir }pk(I) );
|
|
read_3 (I,R, { hash(nr) }kir );
|
|
claim_7 (R, Secret, kir );
|
|
claim_8 (R, Niagree );
|
|
claim_9 (R, Nisynch );
|
|
}
|
|
}
|
|
|
|
|
|
untrusted e;
|
|
compromised sk(e);
|
|
|
|
|