- Improved these scenarios.
This commit is contained in:
		
							parent
							
								
									8b48aade68
								
							
						
					
					
						commit
						5ed9fefa7e
					
				@ -12,29 +12,27 @@ protocol otwayrees(A,B,S)
 | 
			
		||||
	{
 | 
			
		||||
		const na : Nonce;
 | 
			
		||||
		const M : String;
 | 
			
		||||
		var nb : Nonce;
 | 
			
		||||
		var kab : SesKey;
 | 
			
		||||
 | 
			
		||||
		send_1(A,B, M,A,B, { na,M,A,B }k(A,S) );
 | 
			
		||||
		read_4(B,A, M, { na,kab }k(A,S) );
 | 
			
		||||
 | 
			
		||||
		claim(A, Secret,kab);
 | 
			
		||||
		claim_5(A, Secret,kab);
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
	role B
 | 
			
		||||
	{
 | 
			
		||||
		var na : Nonce;
 | 
			
		||||
		var M : String;
 | 
			
		||||
		const nb : Nonce;
 | 
			
		||||
		var kab : SesKey;
 | 
			
		||||
		var t1,t2 : Ticket;
 | 
			
		||||
		var t1,t2;
 | 
			
		||||
 | 
			
		||||
		read_1(A,B, M,A,B, t1 );
 | 
			
		||||
		send_2(B,S, M,A,B, t2, { nb,M,A,B }k(B,S) );
 | 
			
		||||
		send_2(B,S, M,A,B, t1, { nb,M,A,B }k(B,S) );
 | 
			
		||||
		read_3(S,B, M, t2, { nb,kab }k(B,S) );
 | 
			
		||||
		send_4(B,A, M, t2 );
 | 
			
		||||
 | 
			
		||||
		claim(B, Secret,kab);
 | 
			
		||||
		claim_6(B, Secret,kab);
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
	role S
 | 
			
		||||
 | 
			
		||||
@ -9,6 +9,8 @@ const s : Server;
 | 
			
		||||
secret k : Function;
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
protocol yahalomBan(A,B,S)
 | 
			
		||||
{
 | 
			
		||||
	role A
 | 
			
		||||
@ -21,7 +23,7 @@ protocol yahalomBan(A,B,S)
 | 
			
		||||
		send_1(A,B, A,na);
 | 
			
		||||
		read_3(S,A, nb, {B,kab,na}k(A,S), ticket );
 | 
			
		||||
		send_4(A,B, ticket, {nb}kab );
 | 
			
		||||
		claim(A, Secret,kab);
 | 
			
		||||
		claim_5(A, Secret,kab);
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
	role B
 | 
			
		||||
@ -34,7 +36,7 @@ protocol yahalomBan(A,B,S)
 | 
			
		||||
		read_1(A,B, A,na);
 | 
			
		||||
		send_2(B,S, B,nb, {A,na}k(B,S) );
 | 
			
		||||
		read_4(A,B, {A,kab,nb}k(B,S) , {nb}kab );
 | 
			
		||||
		claim(B, Secret,kab);
 | 
			
		||||
		claim_6(B, Secret,kab);
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
	role S
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user