Actions

Cisco MAC Comparison

From Rabbi Blog

What?

Recently I had to start a process to map PCs to ports on Cisco switches. While I don't have access to the Cisco gear directly, I can request dumps of the mac and arp tables. With that, I wrote some PERL to cross match based on MAC addresses.

I have newer code that not only does DNS lookup, but WINS as well for better resolution. The newer code is also less specific on the format of the switch in data.

Perl

Switch Input

#!/usr/bin/perl

opendir(DIR, "./switch_in");
my @files = grep(/\.txt$/,readdir(DIR));
closedir(DIR);

my $out="routerinputcommands.txt";
my $COMBINED="scannedswitches.csv";
my $LOGFILE_IN=();

my $SWITCHNAME=();
my $MACADDRESS=();
my $VLAN=();
my $CONNECTIONTYPE=();
my $PORTS=();

open OUT, ">$out" or die "Cannot open $out for write :$!";
open COMBINED, ">$COMBINED" or die "Cannot open $COMBINED for write :$!";

foreach $file (@files) 
    {
	$LOGFILE_IN="switch_in/$file";
	
	open LOGFILE_IN, $LOGFILE_IN or die "Cannot open $LOGFILE_IN for read :$!";


	
    while (<LOGFILE_IN>) 
	    {
        #Get Switch Name
        #sh mac-address-table | inc Fa0/
        #sh mac-address-table | inc Fa0/
        if ($_=~m/(.+)#sh mac(.+)/)
            {
            $SWITCHNAME=$1;
            print "Reading from Switch $1\n";
            }
        #ES403(SVH) (enable) sh cam dy | ex 2/49  
        
        elsif ($_=~m/(.+) \(enable\) (.+)/)
            {
            $SWITCHNAME=$1;
            print "Reading from Switch $1\n";
            }
        elsif ($_=~m/-------------------------------------------/)
            {}
        elsif ($_=~m/----    -----------       --------    -----/)
            {}
        elsif ($_=~m/Vlan    Mac Address       Type        Ports/)
            {}
        elsif ($_=~m/Total Mac Addresses for this criterion:/)
            {}

        elsif ($_=~m/Total Matching CAM Entries Displayed/)
            {}
        elsif ($_=~m/----  ------------------    -----  -------------------------------------------/)
            {}
        elsif ($_=~m/          Mac Address Table/)
            {}
        elsif ($_=~m/\* \= Static Entry. \+ \= Permanent Entry. \# \= System Entry. R \= Router Entry./)
            {}
        elsif ($_=~m/X \= Port Security Entry \$ \= Dot1x Security Entry/)
            {}
        elsif ($_=~m/VLAN  Dest MAC\/Route Des    \[CoS\]  Destination Ports or VCs \/ \[Protocol Type\]/)
            {}


        
        ######################################################################
        ####################sh mac-address-table | inc Fa0/ output############
        ######################################################################
        #Get specific line from sh mac-address-table | inc Fa0/ output
        #    1    0007.e95a.57e8    DYNAMIC     Fa0/2
        elsif ($_=~m/^(.+)    ([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f])    (DYNAMIC)     (.*)/)
            {
            $MACADDRESS="$2.$3.$4";
            print OUT "sh arp \| inc $MACADDRESS\n";
            $VLAN=$1;
            $CONNECTIONTYPE=$5;
            $PORTS=$6;
            print COMBINED "$SWITCHNAME,$MACADDRESS,$CONNECTIONTYPE,$VLAN,$PORTS\n";
            }
        ######################################################################
        #####################show mac-address-table###########################
        ######################################################################
        # All    0100.0cdd.dddd    STATIC      CPU
        #   1    000f.1fd3.d85a    DYNAMIC     Fa0/14
        elsif ($_=~m/^(.+)    ([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f])    (STATIC)    (.*)/)
            {
            $MACADDRESS="$2.$3.$4";
            print OUT "sh arp \| inc $MACADDRESS\n";
            $VLAN=$1;
            $CONNECTIONTYPE=$5;
            $PORTS=$6;
            print COMBINED "$SWITCHNAME,$MACADDRESS,$CONNECTIONTYPE,$VLAN,$PORTS\n";
            }
        
        #### VLAN  Dest MAC/Route Des    [CoS]  Destination Ports or VCs / [Protocol Type] 
        ###----  ------------------    -----  -------------------------------------------
        ##1     00-01-e6-4b-59-d1             2/7 [ALL]
        
        elsif ($_=~m/^(.+) ([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f]) (.*) (.*)\/(.*) (.*)/)
            {
            $MACADDRESS="$2$3.$4$5.$6$7";
            print OUT "sh arp \| inc $MACADDRESS\n";
            $VLAN=$1;
            $CONNECTIONTYPE="N/A";
            my $tmpfa=$9;
            if ($tmpfa==2)
                {
                $tmpfa=0;
                }
            $PORTS="Fa$tmpfa/$10";
            #print "$_\n";   
            print COMBINED "$SWITCHNAME,$MACADDRESS,$CONNECTIONTYPE,$VLAN,$PORTS\n";
            }
        
        else {print "$_\n";}
        }
    }
>

Router Input

#!/usr/bin/perl

#### GET SWITCH INFO #####

my $SWITCH_IN="scannedswitches.csv";
my $out="scannedrouter.csv";
my $checkip=();
my $INFO="Matched Output.csv";
my $DEVICENAME=();

open SWITCH_IN, $SWITCH_IN or die "Cannot open $SWITCH_IN for read :$!";

while(<SWITCH_IN>)
   		{
        $temp=$_;
        chop ($temp);                #REMOVE ANY NEWLINE
        @SWITCH_ALL= split(/,/, $temp);   #Split
        
        push @SWITCH_NAME, $SWITCH_ALL[0];
        push @SWITCH_MACADDRESS, $SWITCH_ALL[1];
        push @SWITCH_TYPE, $SWITCH_ALL[2];
        push @SWITCH_VLAN, $SWITCH_ALL[3];
        push @SWITCH_PORT, $SWITCH_ALL[4];
        
        $SWITCH_TOTAL++;                
        }
close SWITCH_IN;

opendir(DIR, "./router_in");
my @files = grep(/\.txt$/,readdir(DIR));
closedir(DIR);

my $LOGFILE_IN=();

my $ROUTERNAME=();
my $ROUTERCONNECTION_TYPE=();
my $ROUTER_MACADDRESS=();
my $ROUTER_TIME=();
my $ROUTER_ARPA=();
my $ROUTER_IP=();
my $ROUTER_PORTSETTING=();

print "_________________________________________\n\n";
print "Reading in Router Data\n";
print "_________________________________________\n\n\n";

open OUT, ">$out" or die "Cannot open $out for write :$!";

foreach $file (@files) 
    {
	$LOGFILE_IN="router_in/$file";
	
	open LOGFILE_IN, $LOGFILE_IN or die "Cannot open $LOGFILE_IN for read :$!";


	
    while (<LOGFILE_IN>) 
	    {
        #Get Router Name
        #RA80(SVH)#sh arp | inc 0000.f843.6c6f 
        if ($_=~m/(.+)#(.+)/)
            {
            $ROUTERNAME=$1;
            }
        ######################################################################
        ####################sh arp ############
        ######################################################################
        #Get specific line from sh arp output
        #Internet  192.168.111.119         3   0007.e95a.57e8  ARPA   FastEthernet0/0
        #Internet  192.168.117.1           -   000f.2405.d141  ARPA   FastEthernet0/1.117
#^(.*)  ([0-9][0-9][0-9]).([0-9][0-9][0-9]).([0-9][0-9][0-9]).([0-9][0-9][0-9])        (\d*)   ([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f])  (.*)   (.*)
        
        
        elsif ($_=~m/^(.*)  (\d+)\.(\d+)\.(\d+)\.(\d+)  (.*)   ([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f]).([0-9a-f][0-9a-f][0-9a-f][0-9a-f])(.*) (.+)/)
            {
            $ROUTERCONNECTION_TYPE=$1;
            $ROUTER_IP="$2.$3.$4.$5";
            $ROUTER_MACADDRESS="$7.$8.$9";
            $ROUTER_TIME=$6;
            $ROUTER_ARPA=$11;
            $ROUTER_PORTSETTING=$10;
            print OUT "$ROUTERNAME,$ROUTERCONNECTION_TYPE,$ROUTER_IP,$ROUTER_MACADDRESS,$ROUTER_TIME,$ROUTER_ARPA,$ROUTER_PORTSETTING\n";
            
            push @ROUTER_NAME, $ROUTERNAME;
            push @ROUTER_CONN, $ROUTERCONNECTION_TYPE;
            push @ROUTER_IPADDRESS, $ROUTER_IP;
            push @ROUTER_MAC, $ROUTER_MACADDRESS;
            push @ROUTER_UPTIME, $ROUTER_TIME;
            push @ROUTER_ARPALIST, $ROUTER_ARPA;
            push @ROUTER_PORT, $ROUTER_PORTSETTING;

            
            }
        else
        {print"$_\n";}
            


        }
    }
    
########## DONE GATHERING INFORMATION ##########
################################################

########## Start Cross Matchnig ################

print "_________________________________________\n\n";
print "Cross Matching Router Data & Resolving DNS\n";
print "_________________________________________\n\n\n";

### ELEMENTS ###

        # @SWITCH_NAME
        # @SWITCH_MACADDRESS
        # @SWITCH_TYPE
        # @SWITCH_VLAN
        # @SWITCH_PORT

        # @ROUTER_NAME
        # @ROUTER_CONN
        # @ROUTER_IPADDRESS
        # @ROUTER_MAC
        # @ROUTER_UPTIME
        # @ROUTER_ARPALIST
        # @ROUTER_PORT
        
open INFO, ">$INFO" or die "Cannot open $INFO for write :$!";

print INFO "SWITCH_NAME,SWITCH_PORT,DEVICENAME,ROUTER_IPADDRESS,SWITCH_MACADDRESS,ROUTER_MAC,SWITCH_TYPE,SWITCH_VLAN,ROUTER_UPTIME,ROUTER_CONN\n";


my $SC=0;  #switch count

        foreach $SWITCH_MACADDRESS (@SWITCH_MACADDRESS)
            {
            $ARRAYSIZE = scalar (@ROUTER_MAC); 
           
            for ($i=0; $i < $ARRAYSIZE; $i++)
                {
                if ($ROUTER_MAC[$i] eq $SWITCH_MACADDRESS)
                    {
                    #print "$SWITCH_MACADDRESS = $ROUTER_MAC[$i]\n";
                    $checkip=$ROUTER_IPADDRESS[$i];
                    $DEVICENAME="";
                    &IPLOOKUP($checkip);
                    print INFO "$SWITCH_NAME[$SC],$SWITCH_PORT[$SC],$DEVICENAME,$ROUTER_IPADDRESS[$i],$SWITCH_MACADDRESS[$SC],$ROUTER_MAC[$i],$SWITCH_TYPE[$SC],$SWITCH_VLAN[$SC],$ROUTER_UPTIME[$I],$ROUTER_CONN[$I]\n";
                    
                    last; #Break from the loop
                    }
                }
                $SC++;
            }
            
            
            

#########

sub IPLOOKUP
    {
    use Net::DNS;
    use NetAddr::IP;
        
    my $ip = new NetAddr::IP (shift) || die "Unable to create NetAddr::IP object\n";
    my $res = Net::DNS::Resolver->new;
    my $num = $ip->num();
        
    for (my $i=0; $i<=$num; ++$i) {
        
    my $ip_address = $checkip;
        
          if ($ip_address) 
            {
            my $query = $res->search("$ip_address");
            if ($query) 
                {
                foreach my $rr ($query->answer) 
                    {
                    next unless $rr->type eq "PTR";
                    #print "$ip_address,",$rr->ptrdname, "\n";
                    $DEVICENAME=$rr->ptrdname;
                    }
                } 
            else 
                {
                #print "$ip_address,",$res->errorstring,"\n";
                }
          }
        
          ++$ip;
        
        }
    }