54 lines
875 B
Plaintext
54 lines
875 B
Plaintext
// Yahalom protocol
|
|
|
|
const a,b,s,Eve : Agent;
|
|
secret k : Function;
|
|
|
|
untrusted Eve;
|
|
compromised k(Eve,s);
|
|
|
|
protocol yahalomlowe(A,B,S)
|
|
{
|
|
role A
|
|
{
|
|
const na: Nonce;
|
|
var nb: Nonce;
|
|
var kab: Sessionkey;
|
|
|
|
send_1(A,B, A,na);
|
|
read_3(S,A, {B,kab,na,nb}k(A,S) );
|
|
send_5(A,B, {A,B,S,nb}kab );
|
|
claim(A, Secret,kab);
|
|
}
|
|
|
|
role B
|
|
{
|
|
const nb: Nonce;
|
|
var na: Nonce;
|
|
var kab: Sessionkey;
|
|
|
|
read_1(A,B, A,na);
|
|
send_2(B,S, {A,na,nb}k(B,S) );
|
|
read_4(S,B, {A,kab}k(B,S) );
|
|
read_5(A,B, {A,B,S,nb}kab );
|
|
claim(B, Secret,kab);
|
|
}
|
|
|
|
role S
|
|
{
|
|
const kab: Sessionkey;
|
|
var na,nb: Nonce;
|
|
|
|
read_2(B,S, {A,na,nb}k(B,S) );
|
|
send_3(S,A, {B,kab,na,nb}k(A,S) );
|
|
send_4(S,B, {A,kab}k(B,S) );
|
|
}
|
|
}
|
|
|
|
run yahalomlowe.A(Agent,Agent,s);
|
|
run yahalomlowe.B(Agent,Agent,s);
|
|
run yahalomlowe.S(Agent,Agent,s);
|
|
|
|
run yahalomlowe.A(Agent,Agent,s);
|
|
run yahalomlowe.B(Agent,Agent,s);
|
|
|