tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-28 00:04:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

2008-06-17 Sancho Lerena <slerena@artica.es>

Browse Source 
* pandora_recon: First code to implement traceroute functionality
        using Pureperl module.  Added code for remote OS fingerprinting.



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@868 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
slerena 2008-06-17 11:10:29 +00:00
parent a1a5799516
commit a730edf328
2 changed files with 48 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pandora_server/ChangeLog
View File

@ -1,7 +1,8 @@
2008-06-17 Sancho Lerena <slerena@artica.es> 2008-06-17 Sancho Lerena <slerena@artica.es>
* pandora_recon: First code to implement traceroute functionality * pandora_recon: First code to implement traceroute functionality
using Pureperl module. using Pureperl module. Added code for remote OS fingerprinting.
2008-06-16 Sancho Lerena <slerena@artica.es> 2008-06-16 Sancho Lerena <slerena@artica.es>

46
pandora_server/bin/pandora_recon
View File

@ -133,6 +133,52 @@ sub pandora_recon_subsystem {
} }
} }
##########################################################################
# SUB pandora_detect_os (paconfig, host)
# Detect OS using xprobe2 tool. Return tconfig_os id code.
##########################################################################
sub pandora_detect_os {
my $pa_config = $_[0];
my $host = $_[1];
# my $pa_config->{"xprobe2"} = "/usr/bin/xprobe2";
# my $xprobe2 = $pa_config->{"xprobe2"};
my $xprobe2 = "/usr/bin/xprobe2";
if (! -e $xprobe2){
return 10;
}
my $command = `$xprobe2 $host 2> /dev/null | grep "Running OS" | head -1`;
if ($command =~ m/Windows/i){
return 9;
}
elsif ($command =~ m/Linux/i){
return 1;
}
elsif ($command =~ m/BSD/i){
return 4;
}
elsif ($command =~ m/Cisco/i){
return 7;
}
elsif ($command =~ m/SunOS/i){
return 2;
}
elsif ($command =~ m/Solaris/i){
return 2;
}
elsif ($command =~ m/AIX/i){
return 3;
}
elsif ($command =~ m/HP-UX/i){
return 5;
}
else {
return 10;
}
}
########################################################################## ##########################################################################
# SUB pandora_exec_task (pa_config, id_task) # SUB pandora_exec_task (pa_config, id_task)
# Execute task # Execute task