#! /usr/bin/perl

use warnings;
use strict;
use Crypt::PasswdMD5;
my $shadow = 'shadow';
my $passw = 'passwd';
my $reversedpassword;

open (PW, "<", $passw) or die $!;
open (SH, "<", $shadow) or die $!;

while (<PW>)
{
	my @values = split (':' , $_);
	my $password = (substr $values[4], 0,11);
	my $reversedpassword = reverse($password);
	my %passwordhash = $password;
	}

	print $reversedpassword;
	while (<SH>)
	{
	#my @shadowvalues = split (':',$_);
        #my $salt = substr ($shadowvalues[1], 3,8);



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