[Perl-unix-users] Crypt function for MD5

[Alex Moen]

Hey all,

I am using a crypt function in a script to check a password... here's a
snippet:

   # Match current passwd...
   $pass = $ent[1];
   $salt=substr($pass,0,2);
   $encrypt = crypt($oldpass, $salt);
   if ($pass ne $encrypt) {
      warn "Wrong password entered for $username";
      &auth_fail;
      return;
   }

How do I do the same thing with an MD5/shadow setup?

Thanks!

Alex

_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users