From: Howard C. Berkowitz (hcb@gettcomm.com)
Date: Mon Jan 16 2006 - 10:38:20 GMT-3
>Hi there,
>
>I used them when I was practicing route filtering, etc.
>
>Personal preference I guess, but I liked my practice routing tables
>to have a couple of hundred routes pushed in by the backbone so that
>I could have a good play.
>
>LH
>
>loke wrote:
>
>>Im interested in why you guys want random routes?
Are all statics that useful? Has anyone used Quagga (open source
successor to Zebra) so you can get the routes from dynamic routing
protocols, thus letting you explore filtering with multiple
sources/redistribution?
The old Zebra would let you generate invalid routes and updates,
which we used extensively in the Nortel router design lab. It ran on
LINUX boxes. Since one of our interests was performance, we did put
accurate clocks in each box, and used some odd telemetry system for
which we had boards for two reasons:
1. We already had them
2. GPS was more expensive, and still needed a window antenna to work
reliably in our steel-framed buildings.
For most home labs, GPS boards should be just fine, if you do want to
synchronize. For that matter, if you don't need as tight a
measurement as we did, use one GPS reference and NTP for distribution.
>>
>>
>>Nick
>>
>>
>>On 1/13/06, Bajo <bajoalex@gmail.com> wrote:
>>
>>>Here we go Mike courtesy of the authors and my gmail search :)
>>>Henk de Tombe <henk.de.tombe@qi.nl>to Leigh, FORUM, brian.helterli.
>>>More options 10/25/05 Hi Leigh,
>>>
>>>The routes are too random :-)
>>>
>>>Have a look at this:
>>>
>>>C:\Temp>perl routes.pl 5
>>>ip route 11.20.96.117 255.255.255.255 null 0
>>>ip route 102.46.177.226 254.0.0.0 null 0
>>>ip route 195.179.28.84 255.192.0.0 null 0
>>>ip route 59.201.225.158 255.255.255.255 null 0
>>>ip route 145.210.182.174 255.192.0.0 null 0
>>>
>>>
>>>Just two routes out of five are "usefull". The network portion always
>>>fills
>>>4 octets, the subnetmask is random. I altered the scripts to generate /16,
>>>/24 or /32 routes.
>>>
>>>Anyway, thank you very much for sharing this script!
>>>
>>>*****************************
>>>******* /16 routes **********
>>>*****************************
>>>
>>>use strict;
>>>use warnings;
>>>
>>>#ip route 1.2.3.0 255.255.255.0 null 0
>>>
>>>
>>>my @netmask1 = qw / 255 /;
>>>my @netmask2 = qw/ 255 /;
>>>
>>>
>>>my $count = shift or Usage();
>>>
>>>while ( $count-- > 0 ) {
>>> my @ip = ( int(rand(223))+1, # 1 to 223
>>> int(rand(256)), # 0 to 255
>>> int(rand(0)), # 0 to 255
>>> int(rand(0)) # 0 to 255
>>> );
>>> my @mask = ( 0, 0, 0, 0 );
>>> $mask[0] = $netmask1[ int(rand(@netmask1)) ];
>>> if ( $mask[0] == 255 ) {
>>> foreach my $idx ( 1..1 ) {
>>> $mask[$idx] = $netmask2[ int(rand(@netmask2)) ];
>>> last unless $mask[$idx] == 255;
>>> }
>>> }
>>>
>>> print "ip route ", join( ".", @ip), " ", join( ".", @mask), " null
>>>0\n";
>>>}
>>>
>>>
>>>sub Usage {
>>> print "$0 <number of ip addresses to generate>\n";
>>> exit;
>>>}
>>>
>>>
>>>*****************************
>>>******* /24 routes **********
>>>*****************************
>>>
>>>
>>>use strict;
>>>use warnings;
>>>
>>>#ip route 1.2.3.0 255.255.255.0 null 0
>>>
>>>
>>>my @netmask1 = qw / 255 /;
>>>my @netmask2 = qw/ 255 /;
>>>
>>>
>>>my $count = shift or Usage();
>>>
>>>while ( $count-- > 0 ) {
>>> my @ip = ( int(rand(223))+1, # 1 to 223
>>> int(rand(256)), # 0 to 255
>>> int(rand(256)), # 0 to 255
>>> int(rand(0)) # 0 to 255
>>> );
>>> my @mask = ( 0, 0, 0, 0 );
>>> $mask[0] = $netmask1[ int(rand(@netmask1)) ];
>>> if ( $mask[0] == 255 ) {
>>> foreach my $idx ( 1..2 ) {
>>> $mask[$idx] = $netmask2[ int(rand(@netmask2)) ];
>>> last unless $mask[$idx] == 255;
>>> }
>>> }
>>>
>>> print "ip route ", join( ".", @ip), " ", join( ".", @mask), " null
>>>0\n";
>>>}
>>>
>>>
>>>sub Usage {
>>> print "$0 <number of ip addresses to generate>\n";
>>> exit;
>>>}
>>>
>>>
>>>*****************************
>>>******* /32 routes **********
>>>*****************************
>>>
>>>
>>>use strict;
>>>use warnings;
>>>
>>>#ip route 1.2.3.0 255.255.255.0 null 0
>>>
>>>
>>>my @netmask1 = qw / 255 /;
>>>my @netmask2 = qw/ 255 /;
>>>
>>>
>>>my $count = shift or Usage();
>>>
>>>while ( $count-- > 0 ) {
>>> my @ip = ( int(rand(223))+1, # 1 to 223
>>> int(rand(256)), # 0 to 255
>>> int(rand(256)), # 0 to 255
>>> int(rand(256)) # 0 to 255
>>> );
>>> my @mask = ( 0, 0, 0, 0 );
>>> $mask[0] = $netmask1[ int(rand(@netmask1)) ];
>>> if ( $mask[0] == 255 ) {
>>> foreach my $idx ( 1..3 ) {
>>> $mask[$idx] = $netmask2[ int(rand(@netmask2)) ];
>>> last unless $mask[$idx] == 255;
>>> }
>>> }
>>>
>>> print "ip route ", join( ".", @ip), " ", join( ".", @mask), " null
>>>0\n";
>>>}
>>>
>>>
>>>sub Usage {
>>> print "$0 <number of ip addresses to generate>\n";
>>> exit;
>>>}
>>>
>>>
>>>Regards,
>>>Henk
>>>
>>>
>>>-----Oorspronkelijk bericht-----
>>>Van: nobody@groupstudy.com [mailto:nobody@groupstudy.com] Namens Leigh
>>>Harrison
>>>Verzonden: dinsdag 18 oktober 2005 00:17
>>>Aan: FORUM; brian.helterline@hp.com
>>>Onderwerp: Perl Script for Random Routes
>>>
>>>All,
>>>
>>>Spurred on by Kevins posting of loads of routes - I posted a request on a
>>>perl newsgroup for someone to knock me up a perl script to do it.
>>>Within 45 mins a thoroughly decent chap named Brian Helterline had
>>>answered
>>>my plea.
>>>
>>>Run the script and put in how many routes you would like the script to
>>>create and it will fire them out for you, i.e., c:\> perl routescript 50
>>>
>>>and 50 routes will fly up the screen ready to be cut and paste (if you're
>>>running linux you can always send them to a file)
>>>
>>>Brian,
>>>
>>>I altered the script a tiny bit, so I could get a more weighted random
>>>number for the network masks - hope you don't mind!!
>>>
>>>Once again - many thanks for you effort on this - I'm sure it will be very
>>>useful to a great many people.
>>>
>>>LH
>>>
>>>
>>>-------------------------------------------
>>>
>>>use strict;
>>>use warnings;
>>>
>>>#ip route 1.2.3.0 <http://1.2.3.0> 255.255.255.0 < http://255.255.255.0>
>>>null
>>>0
>>>
>>>
>>>my @netmask1 = qw / 128 192 224 240 248 252 254 255 255 255 255 255 255
>>>255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255
>>>255 /;
>>>my @netmask2 = qw/ 0 128 192 224 240 248 252 254 255 255 255 255 255 255
>>>255 255 255 255 255 255 255 255 255 255 255 255 /;
>>>
>>>
>>>my $count = shift or Usage();
>>>
>>>while ( $count-- > 0 ) {
>>> my @ip = ( int(rand(223))+1, # 1 to 223
>>> int(rand(256)), # 0 to 255
>>> int(rand(256)), # 0 to 255
>>> int(rand(256)) # 0 to 255
>>> );
>>> my @mask = ( 0, 0, 0, 0 );
>>> $mask[0] = $netmask1[ int(rand(@netmask1)) ];
>>> if ( $mask[0] == 255 ) {
>>> foreach my $idx ( 1..3 ) {
>>> $mask[$idx] = $netmask2[ int(rand(@netmask2)) ];
>>> last unless $mask[$idx] == 255;
>>> }
>>> }
>>>
>>> print "ip route ", join( ".", @ip), " ", join( ".", @mask), "
>>>null 0\n";
>>>}
>>>
>>>
>>>sub Usage {
>>> print "$0 <number of ip addresses to generate>\n";
>>> exit;
>>>}
>>>
>>>-------------------------------------------
>>>
>>>
>>>
>>>
>>>On 1/13/06, Mike O <mikeeo@msn.com> wrote:
>>>
>>>
>>>>Would anyone mind re-posting the 500+ routes email. I forget who created
>>>>and
>>>>also I think someone created a perl script that created random routes
>>>>
>>>>
>>>and
>>>
>>>
>>>>I
>>>>can't seem to find it in the archives.
>>>>
>>>>Thanks
>>>>
>>>>_______________________________________________________________________
>>>>Subscription information may be found at:
>>>>http://www.groupstudy.com/list/CCIELab.html
>>>>
>>>>
>>>>
>>>
>>>--
>>>Kind Regards,
>>>
>>>Bajo
>>>
>>>_______________________________________________________________________
>>>Subscription information may be found at:
>>>http://www.groupstudy.com/list/CCIELab.html
>>>
>>>
>>
>>_______________________________________________________________________
>>Subscription information may be found at:
>>http://www.groupstudy.com/list/CCIELab.html
>
>_______________________________________________________________________
>Subscription information may be found at:
>http://www.groupstudy.com/list/CCIELab.html
This archive was generated by hypermail 2.1.4 : Wed Feb 01 2006 - 07:45:49 GMT-3