Current Path : /proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/auto/rvsitebuilderinstaller/scripts/

Upload File :

Current File : //proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/auto/rvsitebuilderinstaller/scripts/rvsexploit.pl

#!/usr/bin/perl

use strict;
use Carp;

#=======Begin Main Process =======
my $PathCheck = {
	#'Installer' => '/usr/local/cpanel/whostmgr/docroot/cgi/rvsitebuilderinstaller/',
	#'WHM' => '/usr/local/cpanel/whostmgr/docroot/cgi/rvsitebuilder/',
	#'rvglobalsoft' => '/var/cpanel/rvglobalsoft/.rvsitebuilder/',
	'rvsitebuilderMain' => '/var/cpanel/rvglobalsoft/rvsitebuilder/',
};
foreach my $eachKey (keys %{$PathCheck}){
	my @allFile = listAllFile($PathCheck->{$eachKey});
	#print Dumper(@allFile);
	foreach my $eachFile (@allFile){
		my $modeFile = getPermissions($eachFile);
		if($modeFile eq '0777'){
			print "[ $modeFile ]" . $eachFile . "\n";
		}
	}
}
#=======End Main Process =======

sub getPermissions{
	my $filename = $_[0];
	my  $mode = (stat($filename))[2];
	my $modeView = sprintf "%04o" ,$mode & 07777;
	return $modeView;
}

sub listAllFile {
    my ($path, $fileListRef) = @_;
    my @fileList = (defined $fileListRef) ? @{$fileListRef} : ();

    $path .= '/' if ($path !~ /\/$/);

    for my $eachFile (glob($path . '*')) {
        next if (-l $eachFile);
        if (-d $eachFile) {
            @fileList = listAllFile($eachFile, \@fileList);
        } else {
            push(@fileList, $eachFile);
        }
    }
    return @fileList;
}
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez