|
|
| System | : | Linux MiraNet 3.0.0-14-generic-pae #23-Ubuntu SMP Mon Nov 21 22:07:10 UTC 2011 i686 |
|---|
| Software | : | Apache. PHP/5.3.6-13ubuntu3.10 |
|---|
| ID | : | uid=65534(nobody) gid=65534(nogroup) groups=65534(nogroup)
|
|---|
|
| Safe Mode | : | OFF |
|---|
| Open_Basedir | : | OFF |
|---|
| Freespace | : | 24.83 GB of 70.42 GB (35.26%) |
|---|
|
|
MySQL: ON MSSQL: OFF Oracle: OFF PostgreSQL: OFF Curl: OFF Sockets: ON Fetch: OFF Wget: ON Perl: ON |
|
Disabled Functions: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
|
[ System Info ]
[ Processes ]
[ SQL Manager ]
[ Eval ]
[ Encoder ]
[ Mailer ]
[ Back Connection ]
[ Backdoor Server ]
[ Kernel Exploit Search ]
[ MD5 Decrypter ]
[ Reverse IP ]
[ Kill Shell ]
[ FTP Brute-Force ]
|
|
/
usr/
share/
doc/
libsnmp-session-perl/
examples/
- drwxr-xr-x
|
Viewing file:  test.pl (2.52 KB) -rwxr-xr-xSelect action/file-type:  ( +) |  ( +) |  ( +) | Code ( +) | Session ( +) |  ( +) | SDB ( +) |  ( +) |  ( +) |  ( +) |  ( +) |  ( +) |
#!/usr/bin/perl -w
# Minimal useful application of the SNMP package.
# Author: Simon Leinen <simon@lia.di.epfl.ch>
# RCS $Header: /home/leinen/CVS/SNMP_Session/test/test.pl,v 1.18 2003-05-29 16:45:27 leinen Exp $
######################################################################
# This application sends a get request for three fixed MIB-2 variable
# instances (sysDescr.0, sysContact.0 and ipForwarding.0) to a given
# host. The hostname and community string can be given as
# command-line arguments.
######################################################################
require 5;
use SNMP_Session;
use BER;
use strict;
### Prototypes
sub usage();
sub snmp_get($@);
$SNMP_Session::suppress_warnings = 1;
my $ipv4_only_p = 0;
my $snmp_version = 1;
while ($#ARGV >= 0 and $ARGV[0] =~ /^-/) {
if ($ARGV[0] eq '-4') {
$ipv4_only_p = 1;
} elsif ($ARGV[0] eq '-v') {
shift @ARGV;
usage () if $#ARGV < 0;
if ($ARGV[0] =~ /^2c?/) {
$snmp_version = 2;
} elsif ($ARGV[0] eq '1') {
$snmp_version = 1;
} else {
usage ();
}
}
shift @ARGV;
}
my $hostname = shift @ARGV || usage ();
my $community = shift @ARGV || 'public';
usage () if $#ARGV >= 0;
my %ugly_oids = qw(sysDescr.0 1.3.6.1.2.1.1.1.0
sysContact.0 1.3.6.1.2.1.1.4.0
sysUptime.0 1.3.6.1.2.1.1.3.0
ipForwarding.0 1.3.6.1.2.1.4.1.0
);
my %pretty_oids;
foreach (keys %ugly_oids) {
$ugly_oids{$_} = encode_oid (split (/\./, $ugly_oids{$_}));
$pretty_oids{$ugly_oids{$_}} = $_;
}
srand();
my $session = ($snmp_version == 1)
? SNMPv1_Session->open ($hostname, $community, 161,
undef, undef, undef, undef, $ipv4_only_p)
: SNMPv2c_Session->open ($hostname, $community, 161,
undef, undef, undef, undef, $ipv4_only_p)
or die "Couldn't open SNMP session to $hostname: $SNMP_Session::errmsg";
snmp_get ($session, qw(sysDescr.0 sysContact.0 sysUptime.0 ipForwarding.0));
$session->close ();
1;
sub snmp_get ($@) {
my($session, @oids) = @_;
my($response, $bindings, $binding, $value, $oid);
grep ($_ = $ugly_oids{$_}, @oids);
if ($session->get_request_response (@oids)) {
$response = $session->pdu_buffer;
($bindings) = $session->decode_get_response ($response);
while ($bindings ne '') {
($binding,$bindings) = decode_sequence ($bindings);
($oid,$value) = decode_by_template ($binding, "%O%@");
print $pretty_oids{$oid}," => ",
pretty_print ($value), "\n";
}
} else {
warn "SNMP problem: $SNMP_Session::errmsg\n";
}
}
sub usage () {
die "usage: $0 [-4] [-v (1|2)] hostname [community]";
}
|
