2010-11-09 09:05:34 +00:00
|
|
|
usertype SesKey, Server;
|
|
|
|
|
|
|
|
/* Version from the Brutus reports
|
|
|
|
*/
|
|
|
|
|
|
|
|
protocol wmfbrutus(A,B,S)
|
|
|
|
{
|
|
|
|
role A
|
|
|
|
{
|
|
|
|
fresh kab : SesKey;
|
|
|
|
|
|
|
|
send_1(A,S, A, { B,kab }k(A,S) );
|
|
|
|
}
|
|
|
|
|
|
|
|
role B
|
|
|
|
{
|
|
|
|
var kab : SesKey;
|
|
|
|
|
2012-04-26 15:40:01 +01:00
|
|
|
recv_2(S,B, { A, kab }k(B,S) );
|
2010-11-09 09:05:34 +00:00
|
|
|
|
|
|
|
claim_3(B, Secret,kab);
|
|
|
|
}
|
|
|
|
|
|
|
|
role S
|
|
|
|
{
|
|
|
|
var kab : SesKey;
|
|
|
|
|
2012-04-26 15:40:01 +01:00
|
|
|
recv_1(A,S, A, { B,kab }k(A,S) );
|
2010-11-09 09:05:34 +00:00
|
|
|
send_2(S,B, { A, kab }k(B,S) );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|