]> 1 set Response "OK" 0 set clsfr [ get-classifier ?interimRouterId ]<br>$ns at [$ns now] &quot; $clsfr install-interceptor destchanger ?flowid ?srcId ?sport ?destId ?dport ?newflowid ?destId ?dport ?qdelay &quot; set Response "DENY" 0 set clsfr [ get-classifier ?interimRouterId ]<br>$ns at [$ns now] &quot; $clsfr install-interceptor dropdata ?flowid ?srcId ?sport ?destId ?dport ?qdelay &quot; 0 20 set clsfr [ get-classifier ?interimRouterId ]<br>$ns at [$ns now] &quot; $clsfr install-interceptor encryptdata ?flowid ?srcId ?sport ?destId ?dport ?qdelay ?overhead &quot; $ns at [$ns now] installInterceptor reroutedata ?flowid ?srcId ?sport ?destId ?dport ?qdelay 0 100 111 112 2 90 12