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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
# Copyright (c) 1995 The Regents of the University of California.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
# must display the following acknowledgement:
# This product includes software developed by the Computer Systems
# Engineering Group at Lawrence Berkeley Laboratory.
# 4. Neither the name of the University nor of the Laboratory may be used
# to endorse or promote products derived from this software without
# specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# Test with 1000 nodes in the detailed network
# Create simulation topology
# DN==============AN
# 1
# \
# -- 0 ======= 1001
# /
# 1000
proc create-topo { num_node } {
global ns n an_id verbose
for {set i 0} {$i < $num_node} {incr i} {
set n($i) [$ns node]
}
# setup links within detailed networks, use default routing
for {set i 1} {$i < [expr $num_node - 1]} {incr i} {
$ns duplex-link $n(0) $n($i) 25Mb 10ms DropTail
# default routing
[$n($i) entry] defaulttarget [[$ns link $n($i) $n(0)] head]
if {$verbose} {
puts "(0 $i) 25Mb 10ms DropTail"
}
}
# setup link between DN and AN
$ns duplex-link $n(0) $n($an_id) 100Mb 20ms DropTail
[$n(0) entry] defaulttarget [[$ns link $n(0) $n($an_id)] head]
if {$verbose} {
puts "(0 $an_id) 100Mb 20ms DropTail"
}
}
set ON 1
set OFF 0
# enable debugging by default
set verbose ON
# Initialize simulator
set ns [new Simulator]
set num_node 502
set an_id [expr $num_node - 1]
create-topo $num_node
# set up simulation scenario
set total_host 200000
set probing_port [Application/Worm set ScanPort]
# probing packet size
# slammer worm UDP packets of 404 Bytes
set p_size 404
Application/Worm set ScanPacketSize $p_size
Agent/MessagePassing set packetSize_ $p_size
# Application/Worm set ScanRate 1
# 1.config the detailed network
for {set i 0} {$i < $num_node - 1} {incr i} {
set a($i) [new Agent/MessagePassing]
$n($i) attach $a($i) $probing_port
set w($i) [new Application/Worm/Dnh]
$w($i) attach-agent $a($i)
$w($i) addr-range 0 [expr $num_node - 2]
}
# 2. set up abstract network
set a($an_id) [new Agent/MessagePassing]
$n($an_id) attach $a($an_id) $probing_port
set w($an_id) [new Application/Worm/An]
$w($an_id) attach-agent $a($an_id)
$w($an_id) addr-range $an_id $total_host
$w($an_id) dn-range 0 [expr $num_node - 2]
$w($an_id) v_percent 0.8
# recv all packets coming in
set p [$n($an_id) set dmux_]
$p defaulttarget $a($an_id)
[$n($an_id) entry] defaulttarget $p
# now starts infection
$ns at 1.0 "$w($an_id) start"
proc finish {} {
exit 0
}
$ns at 65.0 "finish"
$ns run
|
