taskc-v2

#! /usr/bin/perl

use warnings;
use strict;
use Crypt::PasswdMD5;



my $shadow = 'shadow';  #krypterade#000000
my $passw = 'passwd'; #filen med dom riktiga

open (PW, "<", $passw) or die $!; #öppnar filen newusers.csv


while (<PW>) #whilesats som körs vid öppningen
{
	chomp;
	my @values = split (':' , $_);#splittar värdena i filen vid ,-tecknet och sparar ner dom i en array
	my $password = substr ($values[4], 0,11);
	my $reversedpassword = reverse($password);
	my $user = substr ( $values [0], 0,8);





open (SH, "<", $shadow) or die $!;
	while (<SH>){
		chomp;
	my @shadowvalues = split ('\$',$_);
	my $salt = substr ($shadowvalues[2], 0,8);
	my $user_new = (substr $shadowvalues[0], 0,8);
	if ("$user"eq"$user_new"){
	my $cryptedpassw = substr ($shadowvalues[3], 0,22);
	my $cryptedpassword = unix_md5_crypt($reversedpassword, $salt);
	my @array;
	@array = split ('\$', $cryptedpassword);

	my $crypted = substr ($array[3], 0,22);

	if ("cryptedpassw"eq"$crypted"){
		print "Användaren $user har inte bytt lösenord än\n";
	}
	else {
		print "Användaren $user har bytt lösenord\n";
}
	}
		}
			}
	close SH;
	close PW;