Malin/LP-MSH-Scanner
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some fixes

Browse Source
This commit is contained in:
Palma Solutions LTD
2018-04-21 06:57:08 +02:00
parent 88e00a360f
commit 174f7c0e8b
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
malwaresh.pl
View File

@@ -729,22 +729,22 @@ $start_dir =~ s/\/lp-msh-scanner//;
$start_dir = substr($start_dir, 0, rindex($start_dir, '/'));
dir ($start_dir);
print "<br />\n<br />\n";
print 'Infected Files (' . scalar(@file_list) . "):<br />\n";
print "\n\n";
print 'Infected Files (' . scalar(@file_list) . "):\n";
foreach my $file (@file_list) {
print "$file<br />\n";
print "$file\n";
}
print "<br />\n<br />\n";
print 'Possibly Infected Files (' . scalar(keys(%possible_list)) . "):<br />\n";
print "\n\n";
print 'Possibly Infected Files (' . scalar(keys(%possible_list)) . "):\n";
foreach my $key (keys(%possible_list)) {
print "$key => $possible_list{$key}<br />\n";
print "$key => $possible_list{$key}\n";
}
sub dir {
my ($start_dir) = @_;
unless (opendir(DIR, $start_dir)) {
print "Skipping directory $start_dir: $! <br />";
print "Skipping directory $start_dir: $! ";
return;
}
@@ -768,17 +768,17 @@ foreach my $file (sort @files) {
print "Scanning $start_dir/$file... ";
unless (-r "$start_dir/$file") {
print " Skipping file, unable to read file<br />";
print " Skipping file, unable to read file\n";
next
}
if ((-s "$start_dir/$file") > 1024000) {
print " Skipping file, over 1MB<br />";
print " Skipping file, over 1MB\n";
next
}
my $fh;
unless (open ($fh, '<', "$start_dir/$file")) {
print " Unable to read file, $!<br />";
print " Unable to read file, $!\n";
next
}
@@ -799,7 +799,7 @@ my ($infected, $cleaned, $possible, $known, $sig);
}
print $infected ? ($cleaned ? "<font color='green'>Infected, Cleaned<br /></font>\n" : "Infected, Cleaning failed<br />\n") : ($possible ? "Possibly Infected<br />\nSignature Unknown: $sig<br />\n" : "Not infected<br />\n");
print $infected ? ($cleaned ? "Infected, Cleaned\n" : "Infected, Cleaning failed\n") : ($possible ? "Possibly Infected\nSignature Unknown: $sig\n" : "Not infected\n");
}