convertShadowToLdif.pl

#!/usr/bin/perl -w
open SHD, "<", "/etc/shadow" or die "cannot open /etc/shadow: $_";
while(<SHD>) {
  @fields = split /:/;
  print("\ndn: uid=$fields[0],ou=People,dc=fachschaft,dc=informatik,dc=tu-darmstadt,dc=de\n");
  print("changetype: modify\n");
  print("replace: userPassword\n");
  print("userPassword: {crypt}$fields[1]\n");
}

close SHD;