Codebase list cisco-torch / master include / SNMP.pm
master

Tree @master (Download .tar.gz)

SNMP.pm @master — raw · history · blame 

 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
########################################################################
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SNMP finger ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub snmp_ping {

        my $community = public;
        my $port = 161;


        my ($session, $error) = Net::SNMP->session(
                        Hostname        => $target,
                        Community       => $community,
                        Port            => $port
                        );

        if (!defined($session))
        {
                return 0;
        }
        
        my $sysDescr = '1.3.6.1.2.1.1.1.0';
        $session->timeout(1);
        $session->retries(1);
        my $response=" ";

        if (!defined($response = $session->get_request($sysDescr)))
        {
                $session->close;
                return 0;
        }
        
        my $buff = ($response->{$sysDescr} ) ;
    
         if ( $buff =~ /Cisco/ )
		{
	   log_print( "* Cisco by SNMP found ***  \n*System Description: $buff \n\n", "c" );   
                 } 
        
  
        $session->close;
        
      
        return 1;
        
} 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SNMP brute~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub snmp_bruteforce {      
 my $port = 161;
  open( COMMUNITYFILE,  "<$communityfile") || die " Cannot open the  community file : $communityfile ! \n";
        chomp(@community = <COMMUNITYFILE>);
close(COMMUNITYFILE);

	foreach $community (@community)
	{
       
        my ($session, $error) = Net::SNMP->session(
                        Hostname        => $target,
                        Community       => $community,
                        Port            => $port
                        );
      print "*** Check  $target community SNMP   : $community\n";    
        if (!defined($session))
        {
            
           return 0;
        }
        my $sysDescr = '1.3.6.1.2.1.1.1.0';
        $session->timeout(2);
        $session->retries(2);
        my $response=" ";

        if (defined($response = $session->get_request($sysDescr)))
        {
               
                       
             if  ( $community !~ "public" )
             {                              
                log_print("*** Found no public SNMP community : $community \n", "c"); 
                log_print("***System Description:$response->{$sysDescr}\n", "c" );
              $session->close; 
  
  # If defined config download 
  if ($opt_g) { fetch_conf($target,$community) ;} 
             
              return 0;
}
 
              }
              
     
              }
                        
        }
        
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;