Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- root@bipul-Linux:/home/bipul/Desktop# nse Emulation1.tcl
- warning: no class variable Scheduler/RealTime::adjust_new_width_interval_
- see tcl-object.tcl in tclcl for info about this warning.
- warning: no class variable Scheduler/RealTime::min_bin_width_
- TapAgent(_o40): linked sock 6 as READABLE
- TCPTapAgent(_o43): sent packet (sz: 40)
- TCPTapAgent(_o43): sent packet (sz: 40)
- TCPTapAgent(_o43): sent packet (sz: 40)
- bipul@bipul-Linux:~/Desktop$ cat out.tr
- + 0.010148 2 1 tcp 40 ------- 0 2.0 1.0 0 0
- - 0.010148 2 1 tcp 40 ------- 0 2.0 1.0 0 0
- r 0.011184 2 1 tcp 40 ------- 0 2.0 1.0 0 0
- + 3.010266 2 1 tcp 40 ------- 0 2.0 1.0 0 1
- - 3.010266 2 1 tcp 40 ------- 0 2.0 1.0 0 1
- r 3.011308 2 1 tcp 40 ------- 0 2.0 1.0 0 1
- + 9.010389 2 1 tcp 40 ------- 0 2.0 1.0 0 2
- - 9.010389 2 1 tcp 40 ------- 0 2.0 1.0 0 2
- r 9.011431 2 1 tcp 40 ------- 0 2.0 1.0 0 2
- Below is my code. for nse
- set ns [new Simulator]
- $ns use-scheduler RealTime
- set f [open out.tr w]
- $ns trace-all $f
- set entry_node [$ns node]
- set exit_node [$ns node]
- set tcp_node [$ns node]
- $ns simplex-link $entry_node $tcp_node 10Mb 1ms DropTail
- $ns simplex-link $tcp_node $exit_node 10M 1ms DropTail
- # Configure the entry node
- set tap1 [new Agent/TCPTap]; # Create the TCPTap Agent
- set bpf [new Network/Pcap/Live]; # Create the bpf
- set dev [$bpf open readonly eth0]
- $bpf filter "src 113.19.128.48 and src port 80 and dst 113.19.128.60 and dst port 16384"
- $tap1 network $bpf; # Connect bpf to TCPTap Agent
- $ns attach-agent $entry_node $tap1; # Attach TCPTap Agent to the node
- # Configure the exit node
- set tap2 [new Agent/TCPTap]; # Create a TCPTap Agent
- set ipnet [new Network/IP]; # Create a Network agent
- $ipnet open writeonly
- $tap2 network $ipnet; # Connect network agent to tap agent
- $tap2 advertised-window 512
- $tap2 extipaddr "113.19.128.48"
- $tap2 extport 80
- $ns attach-agent $exit_node $tap2; # Attach agent to the node.
- # Configure the TCP agent
- set tcp [new Agent/TCP/FullTcp]
- $ns attach-agent $tcp_node $tcp
- # Connect the agents.
- $ns simplex-connect $tap1 $tcp
- $ns simplex-connect $tcp $tap2
- $ns at 0.01 "$tcp advance 1"
- $ns at 20.0 "finish"
- proc finish {} {
- global ns f nf
- $ns flush-trace
- close $f
- exit 0
- }
- $ns run
- I hope i will get the answer soon
- Thank you.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement