#!/usr/local/bin/perl

print "Enter Username:";
$uname = <STDIN>;
chomp $uname;
print "Enter Password:";
$password = <STDIN>;
chomp $password;

open (fshdw, "/etc/shadow");
@shfil=<fshdw>;
chomp @shfil;
close (fshdw);

@gshdw=grep (/^$uname/,@shfil);
$nam=$gshdw[0];
@stemp=split (/:/,$nam);
$c1=$stemp[1];
$cs=substr($c1,0,2);
$c2=crypt($password,$cs);
print "\n c1 - $c1, cs - $cs, c2 - $c2\n\n";