VesperOS/shadow
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add common utility to compare the password and group files (with support

Browse Source 
of variable data (password salt, date, etc.))
This commit is contained in:
nekral-guest
2008-01-12 15:47:10 +00:00
parent 285046bd1e
commit 89c07802de
1 changed files with 46 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/common/compare_file.pl
Executable
+46
View File
@@ -0,0 +1,46 @@
#!/usr/bin/perl
open (TEMPLATE, $ARGV[0]) or die "Cannot open '".$ARGV[0]."': $!";
my $template = join "", <TEMPLATE>;
open (FILE, $ARGV[1]) or die "Cannot open '".$ARGV[1]."': $!";
my $file = join "", <FILE>;
my $today = int(time()/(24*3600));
$template =~ s/\@TODAY\@/$today/g;
if ($template =~ m/(.*):\@PASS_DES (.*)\@:/m) {
my $user = $1;
my $pass = $2;
$file =~ s/^$user:([^:]*):(.*)$/$user:\@PASS_DES $pass\@:$2/m;
my $cryptpass = $1;
# Check the password
my $checkpass = qx|/usr/bin/openssl passwd -crypt -salt $cryptpass $pass|;
chomp $checkpass;
die "Wrong password: '$cryptpass'. Expected password: '$checkpass'\n"
if ($checkpass ne $cryptpass);
}
if ($template =~ m/(.*):\@PASS_MD5 (.*)\@:/m) {
my $user = $1;
my $pass = $2;
$file =~ s/^$user:([^:]*):(.*)$/$user:\@PASS_MD5 $pass\@:$2/m;
my $cryptpass = $1;
# Check the password
my $salt = $cryptpass;
$salt =~ s/^\$1\$//;
my $checkpass = qx|/usr/bin/openssl passwd -1 -salt '$salt' '$pass'|;
chomp $checkpass;
die "Wrong password: '$cryptpass'. Expected password: '$checkpass'\n"
if ($checkpass ne $cryptpass);
}
exit 0 if ($file =~ m/^\Q$template\E$/s);
print "Files differ.\n";
system "diff", "-au", $ARGV[0], $ARGV[1];
exit 1