Generar Shadow Passwords

Para generar shadow passwords con PERL simplemente se usa la función crypt.

perl -e 'print crypt("jorge", "./"),"\n"'

Para cambiar passwd a usuario

usermod -p $(perl -e 'print crypt("jorge", "./"),"\n"') yorch