Parse nmap scan data with perl
use Nmap::Parser; my $np = new Nmap::Parser;
$np->parsescan($nmap_path, $nmap_args, @ips); #or $np->parsefile($file_xml);
my $session = $np->get_session(); #a Nmap::Parser::Session object
my $host = $np->get_host($ip_addr); #a Nmap::Parser::Host object
my $service = $host->tcp_service(80); #a Nmap::Parser::Host::Service object
my $os = $host->os_sig(); #a Nmap::Parser::Host::OS object
#---------------------------------------
my $np2 = new Nmap::Parser;
$np2->callback(\&my_callback);
$np2->parsefile($file_xml); #or $np2->parsescan($nmap_path, $nmap_args, @ips);
sub my_callback {
my $host = shift; #Nmap::Parser::Host object #.. see documentation for all methods ...
}
For a full listing of methods see the documentation corresponding to each object.
This module implements a interface to the information contained in an nmap scan. It is implemented by parsing the xml scan data that is generated by nmap. This will enable anyone who utilizes nmap to quickly create fast and robust security scripts that utilize the powerful port scanning abilities of nmap.
This module has an internal framework to make it easy to retrieve the desired information of a scan. Every nmap scan is based on two main sections of informations: the scan session, and the scan information of all hosts. The session information will be stored as a Nmap::Parser::Session object. This object will contain its own methods to obtain the desired information. The same is true for any hosts that were scanned using the Nmap::Parser::Host object. There are two sub objects under Nmap::Parser::Host. One is the Nmap::Parser::Host::Service object which will be used to obtain information of a given service running on a given port. The second is the Nmap::Parser::Host::OS object which contains the operating system signature information (\s-1OS\s0 guessed names, classes, osfamily..etc).
Nmap::Parser -- Core parser | +--Nmap::Parser::Session -- Nmap scan session information | +--Nmap::Parser::Host -- General host information | | | |-Nmap::Parser::Host::Service -- Port service information | | | |-Nmap::Parser::Host::OS -- Operating system signature information
\$1
The main idea behind the core module is, you will first parse the information and then extract data. Therefore, all parse*() methods should be executed before any get_*() methods.
Parses the nmap scan information in $string. Note that is usually only used if you have the whole xml scan information in $string or if you are piping the scan information.
Parses the nmap scan data in $xml_file. This file can be generated from an nmap scan by using the '-oX filename.xml' option with nmap. If you get an error or your program dies due to parsing, please check that the xml information is compliant. The file is closed no matter how \*(C`parsefile()\*(C' returns.
This method runs an nmap scan where $nmap is the path to the nmap executable, $args are the nmap command line parameters, and @ips are the list of \s-1IP\s0 addresses to scan. parsescan() will automagically run the nmap scan and parse the information. See section \s-1EXAMPLES\s0 for a short tutorial Note: You cannot have one of the nmap options to be '-oX', '-oN' or '-oG'. Your program will die if you try and pass any of these options because it decides the type of output nmap will generate. The \s-1IP\s0 addresses can be nmap-formatted addresses (see nmap\|(1) If you get an error or your program dies due to parsing, please check that the xml information is compliant. If you are using parsescan() or an open filehandle , make sure that the nmap scan that you are performing is successful in returning xml information. (Sometimes using loopback addresses causes nmap to fail).
Cleans the xml scan data from memory. This is useful if you have a program where you are parsing lots of nmap scan data files with persistent variables.
Sets the parsing mode to be done using the callback function. It takes the parameter of a code reference or a reference to a function. If no code reference is given, it resets the mode to normal (no callback). $np->callback(\&my_function); #sets callback, my_function() will be called $np->callback(); #resets it, no callback function called. Back to normal.
Obtains the Nmap::Parser::Session object which contains the session scan information.
Obtains the Nmap::Parser::Host object for the given $ip_addr.
Deletes the stored Nmap::Parser::Host object whose \s-1IP\s0 is $ip_addr.
Returns an array of all the Nmap::Parser::Host objects for the scan. If the optional status is given, it will only return those hosts that match that status. The status can be any of the following: \*(C`(up|down|unknown|skipped)\*(C'
Returns the list of \s-1IP\s0 addresses that were scanned in this nmap session. They are sorted using ipv4_sort. If there are IPv6 addresses, or mixed, it might not be in correct sorted order. If the optional status is given, it will only return those \s-1IP\s0 addresses that match that status. The status can be any of the following: \*(C`(up|down|unknown|skipped)\*(C'
This function takes a list of IPv4 addresses and returns the correctly sorted version of the list. This object contains the scan session information of the nmap scan.
Returns the numeric time that the nmap scan finished.
Returns the version of nmap used for the scan.
If numservices is called without argument, it returns the total number of services that were scanned for all types. If $type is given, it returns the number of services for that given scan type. See scan_types() for more info.
Returns a string which contains the nmap executed command line used to run the scan.
Returns the protocol type of the given scan type (provided by $type). See scan_types() for more info.
Returns the list of scan types that were performed. It can be any of the following: \*(C`(syn|ack|bounce|connect|null|xmas|window|maimon|fin|udp|ipproto)\*(C'.
Returns the human readable format of the start time.
Returns the numeric form of the time the nmap scan started.
Returns the human readable format of the finish time.
Returns the version of nmap xml file. This object represents the information collected from a scanned host.
Returns the state of the host. It is usually one of these \*(C`(up|down|unknown|skipped)\*(C'.
Returns the main \s-1IP\s0 address of the host. This is usually the IPv4 address. If there is no IPv4 address, the IPv6 is returned (hopefully there is one).
Returns the address type of the address given by addr() .
Returns a list of all hostnames found for the given host.
Returns the number of extraports found.
Returns the state of all the extraports found.
As a basic call, hostname() returns the first hostname obtained for the given host. If there exists more than one hostname, you can provide a number, which is used as the location in the array. The index starts at 0; #in the case that there are only 2 hostnames hostname() eq hostname(0); hostname(1); #second hostname found hostname(400) eq hostname(1) #nothing at 400; return the name at the last index
Explicitly return the IPv4 address.
Explicitly return the IPv6 address.
Explicitly return the \s-1MAC\s0 address.
Return the vendor information of the \s-1MAC\s0.
Returns an Nmap::Parser::Host::OS object that can be used to obtain all the Operating System signature (fingerprint) information. See Nmap::Parser::Host::OS for more details. $os = $host->os_sig; $os->name; $os->osfamily;
Returns the class, index and values information respectively of the tcp sequence.
Returns the class and values information respectively of the ipid sequence.
Returns the class and values information respectively of the tcpts sequence.
Returns the human readable format of the timestamp of when the host had last rebooted.
Returns the number of seconds that have passed since the host's last boot from when the scan was performed.
Returns the sorted list of TCP|UDP ports respectively that were scanned on this host. Optionally a string argument can be given to these functions to filter the list. $host->tcp_ports('open') #returns all only 'open' ports (even 'open|filtered') $host->udp_ports('open|filtered'); #matches exactly ports with 'open|filtered' Note that if a port state is set to 'open|filtered' (or any combination), it will be counted as an 'open' port as well as a 'filtered' one.
Returns the total of TCP|UDP ports scanned respectively.
Returns the state of the given port, provided by the port number in $portid.
Returns the list of open TCP|UDP ports respectively. Note that if a port state is for example, 'open|filtered', it will appear on this list as well.
Returns the list of filtered TCP|UDP ports respectively. Note that if a port state is for example, 'open|filtered', it will appear on this list as well.
Returns the list of closed TCP|UDP ports respectively. Note that if a port state is for example, 'closed|filtered', it will appear on this list as well.
Returns the Nmap::Parser::Host::Service object of a given service running on port, provided by $portid. See Nmap::Parser::Host::Service for more info. $svc = $host->tcp_service(80); $svc->name; $svc->proto;
Nmap::Parser::Host::Service
This object represents the service running on a given port in a given host. This object is obtained by using the tcp_service($portid) or udp_service($portid) method from the Nmap::Parser::Host object. If a portid is given that does not exist on the given host, these functions will still return an object (so your script doesn't die). Its good to use tcp_ports() or udp_ports() to see what ports were collected.
Returns the confidence level in service detection.
Returns any additional information nmap knows about the service.
Returns the detection method.
Returns the service name.
Returns the process owner of the given service. (If available)
Returns the port number where the service is running on.
Returns the product information of the service.
Returns the protocol type of the service.
Returns the \s-1RPC\s0 number.
Returns the tunnel value. (If available)
Returns the version of the given product of the running service.
Nmap::Parser::Host::OS
This object represents the Operating System signature (fingerprint) information of the given host. This object is obtained from an Nmap::Parser::Host object using the \*(C`os_sig()\*(C' method. One important thing to note is that the order of \s-1OS\s0 names and classes are sorted by \s-1DECREASING\s0 \s-1ACCURACY\s0. This is more important than alphabetical ordering. Therefore, a basic call to any of these functions will return the record with the highest accuracy. (Which is probably the one you want anyways).
Returns the list of all the guessed \s-1OS\s0 names for the given host.
A basic call to class_accuracy() returns the osclass accuracy of the first record. If $index is given, it returns the osclass accuracy for the given record. The index starts at 0.
Returns the total number of \s-1OS\s0 class records obtained from the nmap scan.
A basic call to name() returns the \s-1OS\s0 name of the first record which is the name with the highest accuracy. If $index is given, it returns the name for the given record. The index starts at 0.
A basic call to name_accuracy() returns the \s-1OS\s0 name accuracy of the first record. If $index is given, it returns the name for the given record. The index starts at 0.
Returns the total number of \s-1OS\s0 names (records) for the given host.
A basic call to osfamily() returns the \s-1OS\s0 family information of the first record. If $index is given, it returns the \s-1OS\s0 family information for the given record. The index starts at 0.
A basic call to osgen() returns the \s-1OS\s0 generation information of the first record. If $index is given, it returns the \s-1OS\s0 generation information for the given record. The index starts at 0.
Returns the closed port number used to help identify the \s-1OS\s0 signatures. This might not be available for all hosts.
Returns the open port number used to help identify the \s-1OS\s0 signatures. This might not be available for all hosts.
A basic call to type() returns the \s-1OS\s0 type information of the first record. If $index is given, it returns the \s-1OS\s0 type information for the given record. The index starts at 0.
A basic call to vendor() returns the \s-1OS\s0 vendor information of the first record. If $index is given, it returns the \s-1OS\s0 vendor information for the given record. The index starts at 0.
I think some of us best learn from examples. These are a couple of examples to help create custom security audit tools using some of the nice features of the Nmap::Parser module. Hopefully this can double as a tutorial. More tutorials (articles) can be found at www.nmapparser.com You can run a nmap scan and have the parser parse the information automagically. The only constraint is that you cannot use '-oX', '-oN', or '-oG' as one of your arguments for nmap command line parameters passed to parsescan().
use Nmap::Parser;
my $np = new Nmap::Parser; my @hosts = @ARGV; #get hosts from cmd line
#runs the nmap command with hosts and parses it automagically $np->parsescan('/usr/bin/nmap','-sS O -p 1-1023',@hosts);
for my $host ($np->all_hosts()){ print $host->hostname."\n"; #do mor stuff... } This is probably the easiest way to write a script with using Nmap::Parser, if you don't need the general scan session information. During the parsing process, the parser will obtain information of every host. The callback function (in this case 'booyah()') is called after the parsing of every host (sequentially). When the callback returns, the parser will delete all information of the host it had sent to the callback. This callback function is called for every host that the parser encounters. The callback function must be setup before parsing
use Nmap::Parser; my $np = new Nmap::Parser;
$np->callback( \&booyah );
$np->parsefile('nmap_results.xml'); # or use parsescan()
sub booyah { my $host = shift; #Nmap::Parser::Host object, just parsed print 'IP: ',$host->addr,"\n"; # ... do more stuff with $host ...
#when it returns, host object will be deleted from memory #(good for processing VERY LARGE files or scans) } Using multiple instances of Nmap::Parser is extremely useful in helping audit/monitor the network Policy (ohh noo! its that 'P' word!). In this example, we have a set of hosts that had been scanned previously for tcp services where the image was saved in base_image.xml. We now will scan the same hosts, and compare if any new tcp have been open since then (good way to look for suspicious new services). Easy security Compliance detection. (ooh noo! The 'C' word too!).
use Nmap::Parser; use vars qw($nmap_exe $nmap_args @ips); my $base = new Nmap::Parser; my $curr = new Nmap::Parser;
$base->parsefile('base_image.xml'); #load previous state $curr->parsescan($nmap_exe, $nmap_args, @ips); #scan current hosts
for my $ip ($curr->get_ips ) { #assume that IPs in base == IPs in curr scan my $ip_base = $base->get_host($ip); my $ip_curr = $curr->get_host($ip); my %port = ();
#find ports that are open that were not open before #by finding the difference in port lists my @diff = grep { $port{$_} < 2} (map {$port{$_}++; $_} ( $ip_curr->tcp_open_ports , $ip_base->tcp_open_ports ));
print "$ip has these new ports open: ".join(',',@diff) if(scalar @diff);
for (@diff){print "$_ seems to be ",$ip_curr->tcp_service($_)->name,"\n";}
}
If you have questions about how to use the module, or any of its features, you can post messages to the Nmap::Parser module forum on CPAN::Forum. <http://www.cpanforum.com/dist/Nmap-Parser> Please submit any bugs to: <http://sourceforge.net/tracker/?group_id=97509&atid=618345>
Please make sure that you submit the xml-output file of the scan which you are having trouble. This can be done by running your scan with the -oX filename.xml nmap switch. Please remove any important \s-1IP\s0 addresses for security reasons.
nmap, XML::Twig
The Nmap::Parser page can be found at: <http://www.nmapparser.com>. It contains the latest developments on the module. The nmap security scanner homepage can be found at: <http://www.insecure.org/nmap/>.
Anthony G Persaud <[email protected]> <http://www.anthonypersaud.com>
This program is free software; you can redistribute it and/or modify it under the terms of the \s-1GNU\s0 General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but \s-1WITHOUT\s0 \s-1ANY\s0 \s-1WARRANTY\s0; without even the implied warranty of \s-1MERCHANTABILITY\s0 or \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. See the \s-1GNU\s0 General Public License for more details.
<http://www.opensource.org/licenses/gpl-license.php>