40 lines
839 B
Plaintext
40 lines
839 B
Plaintext
/*
|
|
* A broken protocol
|
|
*
|
|
* Cas Cremers
|
|
* Visualization challenge of the week.
|
|
* Can be checked withouth CL, please do so.
|
|
*/
|
|
|
|
usertype String, Key;
|
|
const PlainSight: String;
|
|
secret HelloWorld, HelloServer: String;
|
|
secret k: Key;
|
|
|
|
protocol broken1(aap,noot,mies)
|
|
{
|
|
role aap
|
|
{
|
|
send_1(aap, noot, PlainSight, {HelloWorld, aap, noot}k );
|
|
send_2(aap, mies, {HelloServer, aap, mies}k );
|
|
}
|
|
role noot
|
|
{
|
|
read_3(mies, noot, {HelloWorld, mies, aap, noot}k );
|
|
read_1(aap, noot, PlainSight, {HelloWorld, aap, noot}k );
|
|
claim(noot, Secret, PlainSight);
|
|
}
|
|
role mies
|
|
{
|
|
read_2(aap, mies, {HelloServer, aap, mies}k );
|
|
send_3(mies, noot, {HelloWorld, mies, aap, noot}k );
|
|
}
|
|
}
|
|
|
|
const Bonobo, Pinda, Mies: Agent;
|
|
|
|
run broken1.aap(Bonobo, Pinda, Mies);
|
|
run broken1.noot(Bonobo, Pinda, Mies);
|
|
run broken1.mies(Bonobo, Pinda, Mies);
|
|
|