Sponsored by: █ Sparkhost - Hosting Without Compromises! █ Hybrid Performance Web Hosting █ Spark Host Stream Hosting █ Hybrid IRC & IRCd Server Shell Accounts
Private
Posted 22 February 2008 - 07:04 AM
Private First Class
Posted 22 February 2008 - 07:31 AM
Sergeant
Posted 22 February 2008 - 01:17 PM
Hey bny,
Maybe checkout the nmap-cgi project? I'm not too familiar with the scripting for this but you may find some info here:
hxxp://nmap-cgi.tuxfamily.org/
Also here is a list of related nmap projects. Maybe one will meet your needs?
hxxp://ftp.iasi.roedu.net/mirrors/download.insecure.org/nmap/nmap_relatedprojects.html
-J
Edit: Sorry I failed to see, when I originally posted this, that you were wanting it to be in Perl.
Private
Posted 25 February 2008 - 04:38 AM
#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Nmap::Parser;
# Variables
###########################
my $q = new CGI;
my $path = '/usr/bin/nmap';
my $args = '-sP';
my @ips = qw/192.168.1.*/;
# Scan the network for active IPs and do html stuff :/
######################################################
print "Content-Type: text/html\n\n";
print "<html><head><title>IPs in use: LAN</title></head>\n";
print "<body>\n";
my $nmap = new Nmap::Parser;
$nmap->parsescan($path, $args, @ips);
print "
<style type=text/css>
body {
font-family: helvetica, verdana, arial, sans-serif;
}
TABLE {
border-collapse: collapse;
border-spacing: 1;
border-width: 1;
border-color: rgb(180, 180, 200);
background-color: rgb(245, 245, 245);
font-family: helvetica, verdana, arial, sans-serif;
font-size: 80%;
font-weight: normal;
margin-top: 1ex;
margin-bottom: 1ex;
}
TH {
background-color: rgb(25, 42, 165);
color: rgb(250, 252, 255);
padding: 0.4ex 1ex;
text-align: left;
vertical-align: top;
}
TD {
background-color: inherit;
/*color: rgb(245, 249, 255);*/
padding: 0.4ex 1ex;
vertical-align: top;
}
</style>";
print "<h2>IP addresses that are in use</h2>
<p> This script scans the lan for active IP addresses.</p>";
print "<table width=500 border=1><tr><th width=150>Hostname</th> <th align=right width=100>IP address</th> <th>MAC address</th></tr></table>";
for my $host ($nmap->all_hosts(up)) {
$hostn = $host->hostname;
$ip_addr = $host->addr;
$mac_addr = $host->mac_addr;
# $vendor = $host->mac_vendor;
print "<table width=500 border=1><tr> <td width=150>$hostn</td> <td align=left width=100>$ip_addr</td> <td>$mac_addr</td></tr></table> \n";
}
print "</body>";
print "</html>\n";
)Private
Posted 26 February 2008 - 12:49 AM
0 members, 0 guests, 0 anonymous users
