Encrypted Exchange Protocol to satisfy encrypted communications policy

Scyther Files/EncryptedExchange.spdl

+
+
+
+protocol EncrpytedExchange(Meter,Monitor)
+
+	{
+
+	role Meter {
+
+	fresh M: Nonce;
+	var Confirm;
+
+	send_1(Meter,Monitor,{M}k(k));
+	recv_2(Monitor,Meter,{Confirm}k(k));
+
+	claim_Meter1(Meter, Secret, (k));
+	claim_Meter2(Meter, Secret, M);
+
+	
+
+	
+	}
+
+	role Monitor {
+
+	var M;
+	fresh Confirm: Nonce;
+
+	recv_1(Meter,Monitor,{M}k(k));
+	send_2(Monitor,Meter,{Confirm}k(k));
+
+	claim_Monitor1(Monitor, Secret, (k));
+	claim_Monitor2(Monitor, Secret, M);
+
+
+
+	
+	   }
+
+}
\ No newline at end of file