Check whether a given password matches a given salted hash from /etc/shadow.

matchpwhash.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Crypt::Passwd::XS;

print "Paste hash here: ";
my $hash = <>;
print "Enter password (will not echo): ";
system('stty', '-echo');
my $pass = <>;
system('stty', 'echo');
print "\n";

chomp $hash;
chomp $pass;

if (Crypt::Passwd::XS::crypt($pass, $hash) eq $hash){
	print "OK: Password and hash match.\n";
}else{
	print "SORRY: Password and hash DO NOT match.\n";
}