Andre Henriques
c3149da051
All checks were successful
continuous-integration/drone/push Build is passing
102 lines
2.2 KiB
Plaintext
102 lines
2.2 KiB
Plaintext
/*
|
|
* Coursework 2 PI protocol
|
|
*/
|
|
usertype String;
|
|
usertype Timestamp;
|
|
usertype Sessionkey;
|
|
|
|
hashfunction H1;
|
|
|
|
protocol protocolPI(Network, Application, Phone) {
|
|
|
|
/* Role R - Phone
|
|
*
|
|
* has keys k(N,R)
|
|
*
|
|
*/
|
|
role Phone {
|
|
|
|
var SesK: SessionKey;
|
|
var tl: Timestamp;
|
|
|
|
recv_keysPhone(Network,Phone, {H1(SesK, tl, Application)}k(Network, Phone), {SesK, tl, Application}k(Network, Phone));
|
|
|
|
var mApp: String;
|
|
|
|
var temp: Ticket;
|
|
|
|
recv_1(Application,Phone, {mApp, Application, Phone }SesK);
|
|
|
|
fresh mPhone: String;
|
|
|
|
claim_phone1(Phone, Running, Application, mApp);
|
|
|
|
send_2(Phone,Application, {mApp, mPhone}SesK);
|
|
|
|
claim_phone2(Phone, Secret, SesK);
|
|
claim_application1(Phone, Commit, Application, mApp);
|
|
claim_network2(Phone, Commit, Network, SesK, tl);
|
|
claim_phone3(Phone, Nisynch);
|
|
|
|
}
|
|
|
|
/* Role S - Application
|
|
*
|
|
* has keys k(N,S)
|
|
*
|
|
*/
|
|
role Application {
|
|
|
|
fresh nApp: Nonce;
|
|
|
|
send_refreshKeys(Application,Network, Application, Phone, nApp);
|
|
|
|
var SesK: SessionKey;
|
|
var tl: Timestamp;
|
|
|
|
recv_keysApp(Network,Application, {H1(SesK, tl, nApp, Phone)}k(Network, Application), {SesK, tl, nApp, Phone}k(Network, Application));
|
|
|
|
fresh mApp: String;
|
|
var mPhone: String;
|
|
|
|
claim_application1(Application, Running, Phone, mApp);
|
|
|
|
send_1(Application,Phone, {mApp, Application, Phone}SesK);
|
|
|
|
recv_2(Phone,Application, {mApp, mPhone}SesK);
|
|
|
|
claim_application2(Application, Secret, SesK);
|
|
claim_phone1(Application, Commit, Phone, mApp);
|
|
claim_network1(Application, Commit, Network, SesK, tl);
|
|
|
|
claim_application3(Application, Nisynch);
|
|
}
|
|
|
|
/* Role N - Network
|
|
*
|
|
* has keys k(N,R) and k(N,S)
|
|
*
|
|
*/
|
|
role Network {
|
|
|
|
var nApp: Nonce;
|
|
|
|
recv_refreshKeys(Application,Network, Application, Phone, nApp);
|
|
|
|
fresh SesK: SessionKey;
|
|
fresh tl: Timestamp;
|
|
|
|
claim_netwrok1(Network, Running, Application, SesK, tl);
|
|
|
|
send_keysApp(Network,Application, { H1(SesK, tl, nApp, Phone) }k(Network, Application) , {SesK, tl, nApp, Phone}k(Network, Application));
|
|
|
|
claim_network2(Network, Running, Phone, SesK, tl);
|
|
send_keysPhone(Network,Phone, {H1(SesK, tl, Application)}k(Network, Phone), {SesK, tl, Application}k(Network, Phone));
|
|
|
|
claim_network3(Network, Secret, SesK);
|
|
}
|
|
|
|
|
|
}
|
|
|