loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.24, 2001/08/20 12:57:02	version 1.26, 2001/10/08 22:37:50
Line 17 use Apache::Constants qw(:common);	Line 17 use Apache::Constants qw(:common);
use Apache::File;	use Apache::File;
use CGI qw(:standard);	use CGI qw(:standard);
use CGI::Cookie();	use CGI::Cookie();
	use DynaLoader; # for Crypt::DES version
use Crypt::DES;	use Crypt::DES;
use Apache::lonnet();	use Apache::lonnet();
use Apache::lonmenu();	use Apache::lonmenu();
Line 259 sub handler {	Line 260 sub handler {

my $keybin=pack("H16",$key);	my $keybin=pack("H16",$key);

my $cipher=new DES $keybin;	my $cipher;
	if ($Crypt::DES::VERSION>=2.03) {
	$cipher=new Crypt::DES $keybin;
	}
	else {
	$cipher=new DES $keybin;
	}

my $upass=$cipher->decrypt(	my $upass=$cipher->decrypt(
unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));	unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));