#!/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; }
January 8, 2004
chkmd5cap
Leave a Comment »
No comments yet.
Leave a Reply