taskc

#! /usr/bin/perl

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



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

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


while (<PW>) #whilesats som körs vid öppningen
{
	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);


	#print  "person nummret: $password \n";
	#print "lösenordet: $reversedpassword \n";
	#print "Crypted verision: $cryptedpassword \n";


	open (SH, "<", $shadow) or die $!;
	while (<SH>)
	{
	my @shadowvalues = split (':',$_);
	my $salt = (substr $shadowvalues[1], 3,8);

	#print "Salten som ska användas: $salt \n";

	my $cryptedpassword = unix_md5_crypt($password, $salt);

	#print "hela salten med password: $cryptedpassword \n";
	my $cryptedpassw = (substr $cryptedpassword, 12,22);

	#print "lösenordet blir när det är hashat: $cryptedpassw \n";


	if ("$cryptedpassw"eq"$cryptedpassword"){
	#print "Samma lösenord";

	}
		else {
				print "Password Changed";
				#print "-------------------\n";
					}
	}

	}