#!/usr/bin/perl -w
$user=$ARGV[0];
print "New Password: ";
$pass=<STDIN>;
chomp $pass;
$salt=join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
$pass=crypt($pass,$salt);
$FILE="|ldapmodify -D 'cn=Manager,o=MyCompany,c=DE' -w secret";
open FILE or die;
print FILE <<EOF;
dn: cn=$user,ou=apache,o=MyCompany,c=DE
changetype: modify
replace: userPassword
userPassword: {crypt}$pass
EOF
close FILE;
exit 0;