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