PK œqhYî¶J‚ßFßF)nhhjz3kjnjjwmknjzzqznjzmm1kzmjrmz4qmm.itm/*\U8ewW087XJD%onwUMbJa]Y2zT?AoLMavr%5P*/ $#$#$#

Dir : /proc/thread-self/root/proc/self/root/proc/self/root/opt/sharedrads/oldrads/extras/
Server: Linux ngx353.inmotionhosting.com 4.18.0-553.22.1.lve.1.el8.x86_64 #1 SMP Tue Oct 8 15:52:54 UTC 2024 x86_64
IP: 209.182.202.254
Choose File :

Url:
Dir : //proc/thread-self/root/proc/self/root/proc/self/root/opt/sharedrads/oldrads/extras/homedirscan.pl

#!/usr/local/bin/perl

($user) = @ARGV;

if ($user !~ /./) { print "no user\n"; exit; }

@files = `find /home/$user/public_html \\\( -iname "*.htm" -o -iname "*.html" -o -iname "*.php" -o -iname "*.js" \\\) -print`;
@patterns = `cat /opt/sharedrads/extras/ftp_clamscan_patterns`;

$found = "";

foreach (@files) {
	chomp ($_);
	print "file = $_\n";
		foreach $pattern (@patterns) {
			chomp ($pattern);
			if ($pattern =~ /'/) {
				$status = `grep "$pattern" $_`;
			} else {
				$stats = `grep '$pattern' $_`;
			}
			if ($status) {
				$found .= "$_ -- $pattern\n";
				last;
			}
		}
}

if ($found !~ /./) {
	print "Nothing found\n";
} else {
	print "\nFound:\n $found\n";
}

exit;