1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
# Testing TCP emulation in ns
# Author : Alefiya Hussain and Ankur Sheth
# Date : 05/14/2001
#
# The transducer is constructed as follows :
# Entry Node Exit Node
# | |
# Agent/TCPTap Agent/TCPTap
# Network/Pcap/Live Network/IP
#
# The TCPTap agents are attached to the nodes .
#
# The transducer is the attached to a ns BayFullTcp agent.
#
#
# node f - Agent/TCP/BayFullTcp (tcp)
# / \
# ------------------ ---------------------
# / \
# / \
# node 1 - Agent/TCPTap (tap1) node 2 - Agent/TCPTap (tap3)
# (n1) Network/Pcap/Live (bpf) Network/IP (ipnet)
#
#
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 192.168.123.116 and src port 8191 and dst 192.168.123.253 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 "192.168.123.116"
$tap2 extport 8191
$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
|
