borekon/lynis-report-converter
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added prime check

Browse Source
This commit is contained in:
dataking 2016-07-18 00:22:18 -07:00
parent 4c29612774
commit 44d3309225
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lynis_report.pl
View File

@ -498,6 +498,7 @@ if (($arrlen % 5) == 0) {
print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'pam_module[]'}}[$i]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 1)]</td></tr>\n"; print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'pam_module[]'}}[$i]</td><td>${$lynis_report_data{'pam_module[]'}}[($i + 1)]</td></tr>\n";
} }
} else { } else {
if (&is_prime($arrlen)) { print colored("Number ($arrlen) is prime. \n", "bold yellow"); }
die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red"); die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red");
} }
print OUT <<END; print OUT <<END;
@ -542,6 +543,7 @@ if (($arrlen % 5) == 0) {
} elsif (($arrlen % 2) == 0) { } elsif (($arrlen % 2) == 0) {
print "ARRLEN divisible by 2. \n"; print "ARRLEN divisible by 2. \n";
} else { } else {
if (&is_prime($arrlen)) { print colored("Number ($arrlen) is prime. \n", "bold yellow"); }
die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n","bold red"); die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n","bold red");
} }
print OUT <<END; print OUT <<END;
@ -611,6 +613,7 @@ if (($arrlen % 5) == 0) {
print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'installed_packages_array'}}[$i]</td><td>${$lynis_report_data{'installed_packages_array'}}[($i + 1)]</td></tr>\n"; print OUT "\t\t\t\t\t<tr><td>${$lynis_report_data{'installed_packages_array'}}[$i]</td><td>${$lynis_report_data{'installed_packages_array'}}[($i + 1)]</td></tr>\n";
} }
} else { } else {
if (&is_prime($arrlen)) { print colored("Number ($arrlen) is prime. \n", "bold yellow"); }
die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red"); die colored("ARRLEN appears to be number with a divisor larger than 5 or 1 ($arrlen) \n", "bold red");
} }
print OUT <<END; print OUT <<END;
@ -652,6 +655,21 @@ END
exit 0; exit 0;
} }
sub is_prime {
my $num = shift(@_);
if ($num < 2 ) { return 0; }
if ($num == 2) { return 1; }
else {
for (my$i=2;$i<sqrt($num);$i++) {
if ($num % $i == 0) {
return 0;
}
}
return 1;
}
}
sub dedup_array { sub dedup_array {
my @ary = shift; my @ary = shift;
my %hash; my %hash;