-
Notifications
You must be signed in to change notification settings - Fork 39
/
woo-lam.spdl
64 lines (49 loc) · 1.33 KB
/
woo-lam.spdl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
# Woo and Lam Mutual Authentication
#
# Modelled after the description in the SPORE library
# http://www.lsv.ens-cachan.fr/spore/wooLamMutual.html
#
usertype SessionKey;
const Fresh: Function;
const Compromised: Function;
protocol woolam(I,R,S)
{
role I
{
fresh N1: Nonce;
var Kir: SessionKey;
var N2: Nonce;
send_1(I,R, I, N1);
recv_2(R,I, R, N2);
send_3(I,R, {I, R, N1, N2}k(I,S));
recv_6(R,I, {R, N1, N2, Kir}k(I,S), {N1,N2}Kir);
send_7(I,R, {N2}Kir);
claim_I1(I,Secret,Kir);
claim_I2(I,Nisynch);
claim_I3(I,Empty,(Fresh,Kir));
}
role R
{
fresh N2: Nonce;
var N1: Nonce;
var Kir: SessionKey;
var T1,T2: Ticket;
recv_1(I,R, I, N1);
send_2(R,I, R, N2);
recv_3(I,R, T1);
send_4(R,S, T1, {I, R, N1, N2}k(R,S));
recv_5(S,R, T2, {I, N1, N2, Kir}k(R,S));
send_6(R,I, T2, {N1,N2}Kir);
recv_7(I,R, {N2}Kir);
claim_R1(R,Secret,Kir);
claim_R2(R,Nisynch);
claim_R3(R,Empty,(Fresh,Kir));
}
role S
{
fresh Kir: SessionKey;
var N1,N2: Nonce;
recv_4(R,S, {I, R, N1, N2}k(I,S), {I, R, N1, N2}k(R,S));
send_5(S,R, {R, N1, N2, Kir}k(I,S), {I, N1, N2, Kir}k(R,S));
}
}