From 06a0a6c234a953257d3365a2c330e77a7b9b7811 Mon Sep 17 00:00:00 2001
From: ccremers <ccremers@4f7d145f-a0d4-0310-ae10-d96cc04433c1>
Date: Mon, 18 Apr 2005 05:48:28 +0000
Subject: [PATCH] - Added 2r890 exercise 3, year 2004/2005. Check with
 assignment notes   because I did them off the top of my head.

---
 spdl/2r890-ex3-a.spdl | 52 +++++++++++++++++++++++++++++++++++++++++++
 spdl/2r890-ex3-b.spdl | 51 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 103 insertions(+)
 create mode 100644 spdl/2r890-ex3-a.spdl
 create mode 100644 spdl/2r890-ex3-b.spdl

diff --git a/spdl/2r890-ex3-a.spdl b/spdl/2r890-ex3-a.spdl
new file mode 100644
index 0000000..24ec0af
--- /dev/null
+++ b/spdl/2r890-ex3-a.spdl
@@ -0,0 +1,52 @@
+/*
+ * Course 2r890
+ *
+ * Assignment 0405-3
+ *
+ * Protocol a
+ *
+ * nisynch, niagree
+ */
+const pk: Function;
+secret sk: Function;
+inversekeys (pk,sk);
+
+protocol course2r890year0405ex3(X,Y,I)
+{
+	role I
+	{
+		const nx: Nonce;
+		const ny: Nonce;
+
+		send_1(I,X, nx );
+		read_2(X,I, { nx,I }sk(X) );
+		send_3(I,Y, ny );
+		read_4(Y,I, { I,ny }sk(Y) );
+
+		claim_i1(I,Niagree);
+		claim_i2(I,Nisynch);
+	}	
+	
+	role X
+	{
+		var nx: Nonce;
+
+		read_1(I,X, nx );
+		send_2(X,I, { nx,I }sk(X) );
+	}
+
+	role Y
+	{
+		var ny: Nonce;
+
+		read_3(I,Y, ny );
+		send_4(Y,I, { I,ny }sk(Y) );
+	}
+}
+
+const Alice,Bob,Eve: Agent;
+
+untrusted Eve;
+const ne: Nonce;
+compromised sk(Eve);
+
diff --git a/spdl/2r890-ex3-b.spdl b/spdl/2r890-ex3-b.spdl
new file mode 100644
index 0000000..191782f
--- /dev/null
+++ b/spdl/2r890-ex3-b.spdl
@@ -0,0 +1,51 @@
+/*
+ * Course 2r890
+ *
+ * Assignment 0405-3
+ *
+ * Protocol b
+ *
+ * not nisynch, but still niagree
+ */
+const pk: Function;
+secret sk: Function;
+inversekeys (pk,sk);
+
+protocol course2r890year0405ex3(X,Y,I)
+{
+	role I
+	{
+		const ni: Nonce;
+
+		send_1(I,X, ni );
+		read_2(X,I, { ni,I }sk(X) );
+		send_3(I,Y, ni );
+		read_4(Y,I, { I,ni }sk(Y) );
+
+		claim_i1(I,Niagree);
+		claim_i2(I,Nisynch);
+	}	
+	
+	role X
+	{
+		var nx: Nonce;
+
+		read_1(I,X, nx );
+		send_2(X,I, { nx,I }sk(X) );
+	}
+
+	role Y
+	{
+		var ny: Nonce;
+
+		read_3(I,Y, ny );
+		send_4(Y,I, { I,ny }sk(Y) );
+	}
+}
+
+const Alice,Bob,Eve: Agent;
+
+untrusted Eve;
+const ne: Nonce;
+compromised sk(Eve);
+