#! /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";
}