- 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

@@ -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);
+

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);
+