NAME

Fierce::Parser - Parse fierce scan data with Perl

VERSION

This document describes Fierce::Parser version 0.01

SYNOPSIS

use Fierce::Parser;
my $fp = new Fierce::Parser;

# a Fierce::Parser Object
my $parser = $fp->parse_file('test1.xml');

# a Fierce::Parser::Host Object
my $host = $parser->get_node('google.com');

For a full listing of methods see the documentation corresponding to each object.

DESCRIPTION

OVERVIEW

Fierce::Parser                               -- Core parser
|
+--Fierce::Parser::Session                   -- Fierce scan session information
|  
+--Fierce::Parser::Domain                    -- General domain information
|  |
|  |--Fierce::Parser::Domain::NameServers    -- Nameserver Information about the Domain
|  |
|  |--Fierce::Parser::Domain::ZoneTransfer   -- Zone Transfer information
|  |
|  |--Fierce::Parser::Domain::Bruteforce     -- Nodes found using Bruteforce 
|  |
|  |--Fierce::Parser::Domain::ExtBruteforce  -- Nodes found using Extension Bruteforce 
|  |
|  |--Fierce::Parser::Domain::ReverseLookups -- Nodes found using Reverse Lookups
|  |
|  |--Fierce::Parser::Domain::WildCard       -- Information about MX records found
|  |
|  |--Fierce::Parser::Domain::WhoisLookup    -- Information about Whois lookups
|  |
|  |--Fierce::Parser::Domain::FindMX         -- Information about MX records found
|  |
|  |--Fierce::Parser::Domain::Vhost          -- Information about Virtual Hosts found

METHODS

Fierce::Parser

The main idea behind the core modules is, you will first parse the scan data then extract the information. Therefore, you should run parse_file then you can use any of the subroutines.

parse_file($xml_file)

Parse a fierce XML file. The XML files are generated from using the following command:

fierce.pl -dns $DOMAIN -format xml -output domain.xml

get_session()

Obtain the fierce::Parser::Session object which contains the session scan information.

get_node($domain)

Obtain the Fierce::Parser::Host object which the host information.

get_all_nodes()

Obtain an Array of Fierce::Parser::Node objects which contain domain information.

Fierce::Parser::Session

This object contains the scan session information of the Fierce scan.

options(): Returns the options used to execute fierce.
startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.
fversion(): Returns the version of Fierce.
xmlversion(): Returns the xml version.

Fierce::Parser::Domain

This object contains the information for a domain.

domain(): returns the domain name.

Fierce::Parser::Node

This object contains the information for a node. A Node is a simplistic object containing information about a device found during a Fierce scan. Many of the Fierce modules use a Node to represent the a device.

ip(): returns the ip address of the node.
hostname(): returns the hostname of the node.

Fierce::Parser::Domain::NameServers

This object contains the Nameserver Information about the Domain.

startscan(): returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): returns the elasptime of the scan.
nodes(): returns an Arrayref to a list of Node Objects.

EXAMPLE

my $name_servers = $domain->name_servers;

foreach my $i ( @{ $name_servers->nodes } ) {
    print "\thostname:" . "\t" . $i->hostname . "\n";
    print "\tip:" . "\t\t" . $i->ip . "\n";
}

Fierce::Parser::Domain::ZoneTransfer

This object contains the Zone Transfer information.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.

EXAMPLE

my $name_servers = $domain->name_servers;
my $zone_transfers = $domain->zone_transfers;

foreach my $i ( @{ $name_servers->nodes } ) {
    print "\tIP:" . "\t\t" . $i->ip . "\n";
    print "\tZone Transfer:" . "\t";
    foreach ( @{ $zone_transfers->result } ) {
        if ($i->hostname eq $_->name_server ) {
            if ($i_->bool == 1) {
               print "Enabled\n";
               print "\n\tZone Trasfer Result:" . "\t";
               print "\t\t" . $_->output  . "\n";
            }
            else {
                print "Disabled\n";
            }
        }
     }
}

Fierce::Parser::Domain::Bruteforce

This object contains the Nodes found using Prefix Bruteforce.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.
nodes(): returns an arrayref to a list of node objects.

EXAMPLE

my $bruteforce = $domain->bruteforce;

foreach ( @{ $bruteforce->nodes } ) {
    print "\tHostname:" . "\t" . $_->hostname . "\n";
    print "\tIP: " . "\t\t" . $_->ip . "\n";
}

Fierce::Parser::Domain::ExtBruteForce

This object contains the Nodes found using Extension Bruteforce.

startscan(): returns the start time of the scan in unixtime format.
startscanstr(): returns the start time of the scan in a readable string.
endscan(): returns the end time of the scan in unixtime format.
endscanstr(): returns the end time of the scan in a readable string.
elasptime(): returns the elasptime of the scan.
nodes(): returns an arrayref to a list of node objects.

EXAMPLE

my $ext_bruteforce = $domain->ext_bruteforce;

foreach ( @{ $ext_bruteforce->nodes } ) {
    print "\thostname:" . "\t" . $_->hostname . "\n";
    print "\tip: " . "\t\t" . $_->ip . "\n";
}

Fierce::Parser::Domain::ReverseLookups

This object contains the Nodes found using Reverse Lookups.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.
nodes(): returns an ArrayRef to a list of Node Objects.

EXAMPLE

my $reverse_lookups = $domain->reverse_lookups;

foreach ( @{ $reverse_lookups->nodes } ) {
   print "\thostname:" . "\t" . $_->hostname . "\n";
   print "\tip: " . "\t\t" . $_->ip . "\n";
}

Fierce::Parser::Domain::WildCard

This object contains the Information about MX records found.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.

Fierce::Parser::Domain::WhoisLookup

This object contains the Information about Whois lookups.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.

EXAMPLE

my $whois_lookup = $domain->whois_lookup;

print "Whois:\n";
foreach ( @{ $whois_lookup->result } ) {
    print "\tNetHandle:" . "\t" . $_->net_handle . "\n";
    print "\tNetRange: " . "\t" . $_->net_range . "\n";
}
print "\n";

Fierce::Parser::Domain::FindMX

This object contains Information about MX records found.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.

EXAMPLE

my $reverse_lookups = $domain->reverse_lookups;

foreach ( @{ $findmx->result } ) {
    print "\tpreference:" . "\t" . $_->preference . "\n";
    print "\texchange: " . "\t" . $_->exchange . "\n";
}

Fierce::Parser::Domain::Vhost

This object contains Information about Virtual Hosts found.

startscan(): Returns the start time of the scan in unixtime format.
startscanstr(): Returns the start time of the scan in a readable string.
endscan(): Returns the end time of the scan in unixtime format.
endscanstr(): Returns the end time of the scan in a readable string.
elasptime(): Returns the elasptime of the scan.
nodes(): returns an ArrayRef to a list of Node Objects.

EXAMPLE

my $reverse_lookups = $domain->reverse_lookups;

foreach ( @{ $vhost->nodes } ) {
   print "\thostname:" . "\t" . $_->hostname . "\n";
   print "\tip: " . "\t\t" . $_->ip . "\n";
}

EXAMPLES

Here is an example of parsing an XML file using Fierce::Parser:

use Fierce::Parser;
my $fp = new Fierce::Parser;

if (defined($ARGV[0])){
   my $file = $ARGV[0];
   my $parser = $fp->parse_file($file);
   my @nodes    = $parser->get_all_nodes();

   foreach my $n (@nodes){
       my $domain = $n;
       my $name_servers = $domain->name_servers;
       my $zone_transfers = $domain->zone_transfers;
       my $bruteforce = $domain->bruteforce;
       my $vhost = $domain->vhost;
       my $subdomain_bruteforce = $domain->subdomain_bruteforce;
       my $ext_bruteforce = $domain->ext_bruteforce;
       my $reverse_lookups = $domain->reverse_lookups;
       my $wildcard = $domain->wildcard;
       my $findmx = $domain->findmx;
       my $find_nearby = $domain->find_nearby;

       print "==== " . $n->domain . " ====\n";
       if ( $name_servers ) {
           print "Nameservers:\n";
           foreach my $i ( @{ $name_servers->nodes } ) {
               print "\tHostname:" . "\t" . $i->hostname . "\n";
               print "\tIP:" . "\t\t" . $i->ip . "\n";
               print "\tZone Transfer:" . "\t";
               foreach ( @{ $zone_transfers->result } ) {
                   if ($i->hostname eq $_->name_server ) {
                       if ($i_->bool == 1) {
                           print "Enabled\n";
                           print "\n\tZone Trasfer Result:" . "\t";
                           print "\t\t" . $_->output  . "\n";
                       }
                       else {
                           print "Disabled\n";
                   }
               }
           }   
           print "\n";
       }
       if ( $findmx ) {
           print "MX:\n";
           foreach ( @{ $findmx->result } ) {
               print "\tpreference:" . "\t" . $_->preference . "\n";
               print "\texchange: " . "\t" . $_->exchange . "\n";
           }   
           print "\n";
       }
       
       if ($bruteforce) {
           print "Prefix Bruteforce:\n";
           foreach ( @{ $bruteforce->nodes } ) {
               print "\tHostname:" . "\t" . $_->hostname . "\n";
               print "\tIP: " . "\t\t" . $_->ip . "\n";
           }
           print "\n";
       }
       if ($vhost) {
           print "Virtual Hosts:\n";
           foreach ( @{ $vhost->nodes } ) {
               print "\thostname:" . "\t" . $_->hostname . "\n";
               print "\tip: " . "\t\t" . $_->ip . "\n";
           }
           print "\n";
       }
       if ($ext_bruteforce){
           print "Extension Bruteforce:\n";
           foreach ( @{ $ext_bruteforce->nodes } ) {
               print "\thostname:" . "\t" . $_->hostname . "\n";
               print "\tip: " . "\t\t" . $_->ip . "\n";
           }
           print "\n";
       }
       if ($reverse_lookups){
           print "reverse lookup:\n";
           foreach ( @{ $reverse_lookups->nodes } ) {
               print "\thostname:" . "\t" . $_->hostname . "\n";
               print "\tip: " . "\t\t" . $_->ip . "\n";
           }
           print "\n";
       }
      
       if ($find_nearby){ 
           print "Find Nearby:\n";
           foreach ( @{ $find_nearby->ptrs } ) {
               print "\tPtrdname:" . "\t" . $_->ptrdname . "\n";
               print "\tIP: " . "\t\t" . $_->ip . "\n";
           }
       }
   }

}
else {
   print "Usage: $0 [fierce-xml]\n";
}

AUTHOR

Joshua D. Abraham, <jabra AT spl0it DOT org>

COPYRIGHT AND LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

To install Fierce::Parser, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Fierce::Parser

CPAN shell

perl -MCPAN -e shell
install Fierce::Parser

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

VERSION

SYNOPSIS

DESCRIPTION

OVERVIEW

METHODS

Fierce::Parser

Fierce::Parser::Session

Fierce::Parser::Domain

Fierce::Parser::Node

Fierce::Parser::Domain::NameServers

EXAMPLE

Fierce::Parser::Domain::ZoneTransfer

EXAMPLE

Fierce::Parser::Domain::Bruteforce

EXAMPLE

Fierce::Parser::Domain::ExtBruteForce

EXAMPLE

Fierce::Parser::Domain::ReverseLookups

EXAMPLE

Fierce::Parser::Domain::WildCard

Fierce::Parser::Domain::WhoisLookup

EXAMPLE

Fierce::Parser::Domain::FindMX

EXAMPLE

Fierce::Parser::Domain::Vhost

EXAMPLE

EXAMPLES

SEE ALSO

AUTHOR

COPYRIGHT AND LICENSE

Module Install Instructions