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

Update 'malware4.pl'

Browse Source
This commit is contained in:
Malin
2017-03-29 08:14:44 +02:00
parent 3a82a2aa89
commit a7e9d7038a
1 changed files with 4 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
malware4.pl
View File

@@ -126,31 +126,10 @@ sub dir {
foreach my $file (sort @files) { foreach my $file (sort @files) {
next if $file eq 'error_log'; next if $file eq 'error_log';
next if $file eq 'tcpdf.php'; next if $file eq 'tcpdf.php';
next if $file eq '*.xls'; next if $file eq 'charmap.php';
next if $file eq '*.doc'; next if $file eq 'main-modules.php';
next if $file eq '*.pdf'; next if $file eq 'wp-super-cache.php';
next if $file eq '*.sql'; next if $file eq 'user-edit.php';
next if $file eq '*.docx';
next if $file eq '*.eml';
next if $file eq '*.csv';
next if $file eq '*.zip';
next if $file eq '*.tar.gz';
next if $file eq '*.jpa';
next if $file eq '*.rar';
next if $file eq '*.tar';
next if $file eq '*.gz';
next if $file eq '*.mov';
next if $file eq '*.avi';
next if $file eq '*.mp3';
next if $file eq '*.mp4';
next if $file eq '*.webm';
next if $file eq '*.flv';
next if $file eq '*.fla';
next if $file eq '*.swf';
next if $file eq '*.ini';
next if $file eq '*.txt';
next if $file eq '*.po';
next if $file eq '*.mo';
print "Scanning $start_dir/$file... "; print "Scanning $start_dir/$file... ";
unless (-r "$start_dir/$file") { unless (-r "$start_dir/$file") {