#!/usr/bin/perl
sub checkpass {
 my($user,$salt);
 if (!open (SHADOW,"</etc/shadow")) {
  print "Error:", $!, "\n";
  return - 1 ;
 }
 while (<SHADOW>) {
  ($user,$salt)=split(':',$_);
  if ($user eq @_[ 0 ]) {
   close(SHADOW);
   $s=crypt(@_[ 1 ],$salt);
   if ($s eq $salt) {
    return  0 ;
   }
   return - 1 ;
  }
 }
 close(SHADOW);
 return - 1 ;
}

if (length(ARGV) <  3 ) {exit - 1 ;}

$user=$ARGV[ 0 ];
$pass=$ARGV[ 1 ];

if (checkpass($user,$pass)) {
 print "not Ok for $user\n";
 exit - 1 ;
}

print "Ok for $user\n";
exit  0 ;

!/usr/bin/perl

sub checkpass {
 ($name,$pwcode) = getpwnam(@_[ 0 ]);
 if ($name eq @_[ 0 ]) {
  if (crypt(@_[ 1 ],$pwcode) eq $pwcode) {return  0 ;}
 }

 return - 1 ;
}

if (length(ARGV) <  3 ) {exit - 1 ;}

$user=$ARGV[ 0 ];
$pass=$ARGV[ 1 ];

if (checkpass($user,$pass)) {
 print "not Ok for $user\n";
 exit - 1 ;
}

print "Ok for $user\n";
exit  0 ;