#!/usr/bin/perl -w
require 5.000;
use strict;
# Test if this System can handle MD5 Passwords
my $testpw = '$1$oTg0Hgpx$lI1RZ2NHlP2TBv21ntM0h/'; # "foo"
print STDERR "Checking for MD5 password compatibility... ";
if ($testpw eq (crypt('foo', $testpw))){
print STDERR "Yes.\n";
exit 0;
}else{
print STDERR "No.\n";
exit 1;
}
Advertisements
Leave a Reply