Thank you very much for your quick and helpful answer, Peter.
/usr/src/libexec/login_passwd/login.c was what I wanted. (I only
looked in /src/usr.bin/login/login.c)
Regards,
johannes