sylv/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Large pass on protocol specification files to get rid of deprecated constructions.

Browse Source
This commit is contained in:
Cas Cremers
2012-04-23 15:53:28 +02:00
parent 30006b732a
commit 755c4519c6
83 changed files with 165 additions and 940 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
gui/Protocols/neumannstub-keycompromise.spdl
View File

@@ -10,27 +10,20 @@
usertype Server, SessionKey, TimeStamp, TicketKey;
usertype ExpiredTimeStamp;
secret k: Function;
const Alice, Bob, Simon, Eve: Agent;
const Fresh: Function;
const Compromised: Function;
const ne: Nonce;
const kee: SessionKey;
untrusted Eve;
compromised k(Eve,Simon);
protocol neustub^Repeat(I,R,S)
{
const Kir: SessionKey;
fresh Kir: SessionKey;
role I
{
const Mi: Nonce;
fresh Mi: Nonce;
var Mr: Nonce;
const Kir: SessionKey;
const Tr: TimeStamp;
fresh Kir: SessionKey;
fresh Tr: TimeStamp;
send_5(I,R,Mi,{I,Kir,Tr}k(R,S));
read_6(R,I,Mr,{Mi}Kir);
@@ -43,7 +36,7 @@ protocol neustub^Repeat(I,R,S)
role R
{
const Mr: Nonce;
fresh Mr: Nonce;
var Tr: TimeStamp;
var Kir: SessionKey;
var Mi: Nonce;
@@ -65,7 +58,7 @@ protocol neustub(I,R,S)
{
role I
{
const Ni: Nonce;
fresh Ni: Nonce;
var Nr: Nonce;
var T: Ticket;
var Tb: TimeStamp;
@@ -84,9 +77,9 @@ protocol neustub(I,R,S)
role R
{
var Ni,Mi: Nonce;
const Nr,Mr: Nonce;
fresh Nr,Mr: Nonce;
var Kir: SessionKey;
const Tb: TimeStamp;
fresh Tb: TimeStamp;
var T: Ticket;
read_1(I,R, I, Ni);
@@ -102,7 +95,7 @@ protocol neustub(I,R,S)
role S
{
var Ni, Nr: Nonce;
const Kir: SessionKey;
fresh Kir: SessionKey;
var Tb: TimeStamp;
read_2(R,S, R, {I,Ni,Tb}k(R,S), Nr);