You can not select more than 25 topics
			Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
		
		
		
		
		
			
		
			
				
					
					
						
							260 lines
						
					
					
						
							9.7 KiB
						
					
					
				
			
		
		
		
			
			
			
				
					
				
				
					
				
			
		
		
	
	
							260 lines
						
					
					
						
							9.7 KiB
						
					
					
				| // CROWDS [Reiter,Rubin] | |
| // Vitaly Shmatikov, 2002 | |
| 
 | |
| // Note: | |
| // Change everything marked CWDSIZ when changing the size of the crowd | |
| // Change everything marked CWDMAX when increasing max size of the crowd | |
| 
 | |
| dtmc | |
| 
 | |
| // Probability of forwarding | |
| const double PF = 0.8; | |
| 
 | |
| // Probability that a crowd member is bad | |
| const double  badC = 0.091; | |
| // const double  badC = 0.167; | |
| 
 | |
| const int CrowdSize; // CWDSIZ: actual number of good crowd members | |
| const int MaxGood=20; // CWDMAX: maximum number of good crowd members | |
| 
 | |
| // Process definitions | |
| module crowds | |
| 
 | |
| 	// Auxiliary variables | |
| 	launch:   bool init true;       // Start modeling? | |
| 	new:      bool init false;      // Initialize a new protocol instance? | |
| 	start:    bool init false;      // Start the protocol? | |
| 	run:      bool init false;      // Run the protocol? | |
| 	lastSeen: [0..MaxGood] init MaxGood;   // Last crowd member to touch msg | |
| 	good:     bool init false;      // Crowd member is good? | |
| 	bad:      bool init false;      //              ... bad? | |
| 	recordLast: bool init false;    // Record last seen crowd member? | |
| 	badObserve: bool init false;    // Bad members observes who sent msg? | |
| 	deliver:  bool init false;      // Deliver message to destination? | |
| 	done:     bool init false;      // Protocol instance finished? | |
| 	 | |
| 	[] launch -> (new'=true) & (launch'=false); | |
| 	// Set up a new protocol instance | |
| 	[newrun] new -> (new'=false) & (start'=true); | |
| 	 | |
| 	// SENDER | |
| 	// Start the protocol | |
| 	[] start -> (lastSeen'=0) & (run'=true) & (deliver'=false) & (start'=false); | |
| 	 | |
| 	// CROWD MEMBERS | |
| 	// Good or bad crowd member? | |
| 	[] !good & !bad & !deliver & run -> | |
| 	             1-badC : (good'=true) & (recordLast'=true) & (run'=false) + | |
| 	               badC : (bad'=true)  & (badObserve'=true) & (run'=false); | |
| 
 | |
| 	// GOOD MEMBERS | |
| 	// Forward with probability PF, else deliver | |
| 	[] good & !deliver & run -> PF : (good'=false) + 1-PF : (deliver'=true); | |
| 	// Record the last crowd member who touched the msg; | |
| 	// all good members may appear with equal probability | |
| 	//    Note: This is backward.  In the real protocol, each honest | |
| 	//          forwarder randomly chooses the next forwarder. | |
| 	//          Here, the identity of an honest forwarder is randomly | |
| 	//          chosen *after* it has forwarded the message. | |
| 	[] recordLast & CrowdSize=2 -> | |
| 	        1/2 : (lastSeen'=0) & (recordLast'=false) & (run'=true) + | |
| 	        1/2 : (lastSeen'=1) & (recordLast'=false) & (run'=true); | |
| 	[] recordLast & CrowdSize=4 -> | |
| 	        1/4 : (lastSeen'=0) & (recordLast'=false) & (run'=true) + | |
| 	        1/4 : (lastSeen'=1) & (recordLast'=false) & (run'=true) + | |
| 	        1/4 : (lastSeen'=2) & (recordLast'=false) & (run'=true) + | |
| 	        1/4 : (lastSeen'=3) & (recordLast'=false) & (run'=true); | |
| 	[] recordLast & CrowdSize=5 -> | |
| 	        1/5 : (lastSeen'=0) & (recordLast'=false) & (run'=true) + | |
| 	        1/5 : (lastSeen'=1) & (recordLast'=false) & (run'=true) + | |
| 	        1/5 : (lastSeen'=2) & (recordLast'=false) & (run'=true) + | |
| 	        1/5 : (lastSeen'=3) & (recordLast'=false) & (run'=true) + | |
| 	        1/5 : (lastSeen'=4) & (recordLast'=false) & (run'=true); | |
| 	[] recordLast & CrowdSize=10 -> | |
| 	        1/10 : (lastSeen'=0) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=1) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=2) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=3) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=4) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=5) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=6) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=7) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=8) & (recordLast'=false) & (run'=true) + | |
| 	        1/10 : (lastSeen'=9) & (recordLast'=false) & (run'=true); | |
| 	[] recordLast & CrowdSize=15 -> | |
| 	        1/15 : (lastSeen'=0)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=1)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=2)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=3)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=4)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=5)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=6)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=7)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=8)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=9)  & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=10) & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=11) & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=12) & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=13) & (recordLast'=false) & (run'=true) + | |
| 	        1/15 : (lastSeen'=14) & (recordLast'=false) & (run'=true); | |
| 	[] recordLast & CrowdSize=20 -> | |
| 	        1/20 : (lastSeen'=0)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=1)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=2)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=3)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=4)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=5)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=6)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=7)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=8)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=9)  & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=10) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=11) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=12) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=13) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=14) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=15) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=16) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=17) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=18) & (recordLast'=false) & (run'=true) + | |
| 	        1/20 : (lastSeen'=19) & (recordLast'=false) & (run'=true); | |
| 	 | |
| 	// BAD MEMBERS | |
| 	// Remember from whom the message was received and deliver | |
| 	// CWDMAX: 1 rule per each good crowd member | |
| 	[obs0]  lastSeen=0  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs1]  lastSeen=1  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs2]  lastSeen=2  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs3]  lastSeen=3  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs4]  lastSeen=4  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs5]  lastSeen=5  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs6]  lastSeen=6  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs7]  lastSeen=7  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs8]  lastSeen=8  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs9]  lastSeen=9  & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs10] lastSeen=10 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs11] lastSeen=11 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs12] lastSeen=12 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs13] lastSeen=13 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs14] lastSeen=14 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs15] lastSeen=15 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs16] lastSeen=16 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs17] lastSeen=17 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs18] lastSeen=18 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 	[obs19] lastSeen=19 & badObserve -> (deliver'=true) & (run'=true) & (badObserve'=false); | |
| 
 | |
| 	// RECIPIENT | |
| 	// Delivery to destination | |
| 	[] deliver & run -> (done'=true) & (deliver'=false) & (run'=false) & (good'=false) & (bad'=false); | |
| 	// Start a new instance | |
| 	[] done -> (new'=true) & (done'=false) & (run'=false) & (lastSeen'=MaxGood); | |
| 	 | |
| endmodule | |
| 
 | |
| rewards "num_runs" | |
| 	[newrun] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe0" | |
| 	[obs0]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe1" | |
| 	[obs1]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe2" | |
| 	[obs2]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe3" | |
| 	[obs3]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe4" | |
| 	[obs4]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe5" | |
| 	[obs5]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe6" | |
| 	[obs6]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe7" | |
| 	[obs7]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe8" | |
| 	[obs8]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe9" | |
| 	[obs9]  true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe10" | |
| 	[obs10] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe11" | |
| 	[obs11] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe12" | |
| 	[obs12] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe13" | |
| 	[obs13] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe14" | |
| 	[obs14] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe15" | |
| 	[obs15] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe16" | |
| 	[obs16] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe17" | |
| 	[obs17] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe18" | |
| 	[obs18] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observe19" | |
| 	[obs19] true : 1; | |
| endrewards | |
| 
 | |
| rewards "observeI" | |
| 	[obs1] true : 1; | |
| 	[obs2] true : 1; | |
| 	[obs3] true : 1; | |
| 	[obs4] true : 1; | |
| 	[obs5] true : 1; | |
| 	[obs6] true : 1; | |
| 	[obs7] true : 1; | |
| 	[obs8] true : 1; | |
| 	[obs9] true : 1; | |
| 	[obs10] true : 1; | |
| 	[obs11] true : 1; | |
| 	[obs12] true : 1; | |
| 	[obs13] true : 1; | |
| 	[obs14] true : 1; | |
| 	[obs15] true : 1; | |
| 	[obs16] true : 1; | |
| 	[obs17] true : 1; | |
| 	[obs18] true : 1; | |
| 	[obs19] true : 1; | |
| endrewards | |
| 
 | |
| 
 |