--- loncom/auth/lonauth.pm	2001/10/05 05:21:56	1.25
+++ loncom/auth/lonauth.pm	2001/10/08 22:37:50	1.26
@@ -17,6 +17,7 @@ use Apache::Constants qw(:common);
 use Apache::File;
 use CGI qw(:standard);
 use CGI::Cookie();
+use DynaLoader; # for Crypt::DES version
 use Crypt::DES;
 use Apache::lonnet();
 use Apache::lonmenu();
@@ -259,7 +260,13 @@ sub handler {
 
     my $keybin=pack("H16",$key);
 
-    my $cipher=new Crypt::DES $keybin;
+    my $cipher;
+    if ($Crypt::DES::VERSION>=2.03) {
+	$cipher=new Crypt::DES $keybin;
+    }
+    else {
+	$cipher=new DES $keybin;
+    }
 
     my $upass=$cipher->decrypt(
        unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));