mirror of
https://github.com/rapid7/metasploit-framework
synced 2024-10-29 18:07:27 +01:00
83d1f8d499
We use OpenSSL 1.0.0 in installed environments. Previously, John the Ripper was compiled against 0.9.8 which prevented it from running. This recompiles the same version (jtr 1.7.8 jumbo 2) against OpenSSL 1.0.0. [FIXRM #7834]
24 lines
526 B
Perl
24 lines
526 B
Perl
#!/usr/bin/perl
|
|
|
|
use Net::LDAP;
|
|
|
|
$server = $ARGV[0];
|
|
$password = $ARGV[1];
|
|
|
|
$ldap = Net::LDAP->new($server) || die "$@";
|
|
$ldap->bind("cn=Directory Manager", password => $password) || die "$@";
|
|
$search = $ldap->search(base => "o=test",
|
|
scope => "subtree",
|
|
filter => "(uid=*)");
|
|
|
|
$search->code && die $search->error;
|
|
|
|
$i=0;
|
|
foreach $user ($search->all_entries) {
|
|
@uid=$user->get("uid");
|
|
@pass=$user->get("userpassword");
|
|
print $uid[0].":".$pass[0].":".
|
|
$i.":".$i.":/".$uid[0].":\n";
|
|
}
|
|
$ldap->unbind();
|