#! /usr/bin/perl -w
use strict;
use Passwd::Solaris qw/mgetpwnam/;
my( $user, $user_passwd ) = @ARGV;
my $shadow = (mgetpwnam $user)[1];
my ($salt, $passwd) = ($shadow =~ /^(..)(.*)$/);
if( $shadow ne crypt( $user_passwd, $salt )) {
print "No\n";
}
else {
print "Yes\n";
}
Oh, and please, drop the Hungarian notation? It is completely irrelevant in Perl and just adds noise. Perl scalars can morph from integers to strings and back without coercion as the need arises.
- another intruder with the mooring of the heat of the Perl
|