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.222
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 /
doc /
perl-LDAP /
contrib /
[ HOME SHELL ]
Name
Size
Permission
Action
LWPsearch.pl
2.67
KB
-rw-r--r--
README
1.2
KB
-rw-r--r--
dot.tklkup
1.75
KB
-rw-r--r--
isMember.pl
9.45
KB
-rw-r--r--
jpegDisplay.pl
7.01
KB
-rw-r--r--
jpegLoad.pl
7.1
KB
-rw-r--r--
ldapmodify.pl
1.43
KB
-rw-r--r--
ldifdiff.pl
10.49
KB
-rw-r--r--
ldifsort.pl
3.18
KB
-rw-r--r--
ldifuniq.pl
1.59
KB
-rw-r--r--
printMembers.pl
6.46
KB
-rw-r--r--
recursive-ldap-delete.pl
1022
B
-rw-r--r--
schema2ad.pl
9.47
KB
-rw-r--r--
simple-proxy.pl
2.82
KB
-rw-r--r--
tklkup
169.14
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ldapmodify.pl
#! /usr/bin/perl # $Id: ldapmodify.pl,v 1.1 2001/10/23 15:07:41 gbarr Exp $ =head1 NAME ldapmodify.pl - A (simplified) ldapmodify clone written in Perl. =head1 DESCRIPTION ldapmodify.pl is a simplified ldapmodify clone written in Perl. =head1 SYNOPSIS ldapmodify.pl [B<-a>] [B<-c>] [B<-e errors>] [B<-f file>] [B<-D binddn>] [B<-w passwd>] [B<-h ldaphost>] [B<-p port>] The options have the same meaning as those for the standard ldapmodify command. =cut use Net::LDAP; use Net::LDAP::LDIF; use Getopt::Std; use IO::File; use vars qw(%opt); use strict; getopts('acD:e:f:h:p:P:w:', \%opt); $opt{h} ||= 'localhost'; my $conn = Net::LDAP->new($opt{h}) or die "$opt{h}: $!\n"; my $result = $conn->bind($opt{D}, password => $opt{w}); $result->code && die("$opt{h}: bind: ", $result->error, "\n"); my $ldif = Net::LDAP::LDIF->new($opt{f}, "r"); $ldif->{changetype} = 'add' if $opt{a}; my $ldiferr; while (my $change = $ldif->read_entry()) { print "dn: ", $change->dn, "\n"; my $result = $change->update($conn); if ($result->code) { print STDERR "ldapmodify: ", $result->error, "\n"; if ($opt{e}) { if (!$ldiferr) { $ldiferr = Net::LDAP::LDIF->new($opt{e}, 'a', change => 1) or die "$opt{e}: $!\n"; } print { $ldiferr->{fh} } "# Error: ", $result->error; $ldiferr->write_entry($change); print { $ldiferr->{fh} } "\n"; } last unless $opt{c}; } print "\n"; } =head1 AUTHOR Kartik Subbarao <subbarao@computer.org> =cut
Close