scyther/spdl/woolam-cmv.spdl

68 lines
1.2 KiB
Plaintext
Raw Normal View History

usertype Server, SessionKey, Token, Ticket;
2004-02-20 11:37:28 +00:00
secret k: Function;
const Alice, Bob, Charlie, Eve: Agent;
const Simon: Server;
/* give the intruder something to work with */
2004-08-23 12:59:42 +01:00
// Scyther finds an attack using basic type flaws
2004-02-20 11:37:28 +00:00
const ne: Nonce;
const ke: SessionKey;
untrusted Eve;
compromised k(Eve,Simon);
const authToken: Token;
protocol woolamcmv(A,B,S)
{
2004-08-23 12:59:42 +01:00
role A
{
const Na: Nonce;
var Nb: Nonce;
var Kab: SessionKey;
var t1,t2;
send_1(A,B, A,Na);
read_2(B,A, B,Nb);
send_3(A,B, { A,B, Na,Nb }k(A,S) );
read_6(B,A, { B,Na,Nb,Kab }k(A,S), { Na,Nb }Kab );
send_7(A,B, { Nb }Kab );
claim_8(B,Secret, Kab);
}
2004-02-20 11:37:28 +00:00
role B
{
var Na: Nonce;
const Nb: Nonce;
var Kab: SessionKey;
2004-08-23 12:59:42 +01:00
var t1,t2;
2004-02-20 11:37:28 +00:00
read_1(A,B, A,Na);
send_2(B,A, B,Nb);
read_3(A,B, t1 );
2004-08-23 12:59:42 +01:00
send_4(B,S, t1, { A,B,Na,Nb }k(B,S) );
read_5(S,B, t2, { A,Na,Nb,Kab }k(B,S) );
2004-02-20 11:37:28 +00:00
send_6(B,A, t2, { Na,Nb }Kab );
read_7(A,B, { Nb }Kab );
2004-08-23 12:59:42 +01:00
claim_9(B,Secret, Kab);
}
role S
{
var Na, Nb: Nonce;
const Kab: SessionKey;
read_4(B,S, { A,B, Na,Nb }k(A,S), { A,B,Na,Nb }k(B,S) );
send_5(S,B, { B,Na,Nb,Kab }k(A,S), { A,Na,Nb,Kab }k(B,S) );
claim_10(B,Secret, Kab);
2004-02-20 11:37:28 +00:00
}
}
run woolamcmv.B(Alice,Bob,Simon);
run woolamcmv.B(Alice,Bob,Simon);