loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.66, 2005/04/07 06:56:21	version 1.67, 2005/06/07 02:14:28
Line 340 ENDFAILED	Line 340 ENDFAILED
$FORM{$name}=$value;	$FORM{$name}=$value;
}	}

if ((!$FORM{'uname'}) \|\| (!$FORM{'upass'}) \|\| (!$FORM{'udom'})) {	if ((!$FORM{'uname'}) \|\| (!$FORM{'upass0'}) \|\| (!$FORM{'udom'})) {
failed($r,'Username, password and domain need to be specified.');	failed($r,'Username, password and domain need to be specified.');
return OK;	return OK;
}	}
Line 381 ENDFAILED	Line 381 ENDFAILED
else {	else {
$cipher=new DES $keybin;	$cipher=new DES $keybin;
}	}
	my $upass='';
	for (my $i=0;$i<=2;$i++) {
	my $chunk=
	$cipher->decrypt(unpack("a8",pack("H16",substr($FORM{'upass'.$i},0,16))));

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

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

# ---------------------------------------------------------------- Authenticate	# ---------------------------------------------------------------- Authenticate
my $authhost=Apache::lonnet::authenticate($FORM{'uname'},	my $authhost=Apache::lonnet::authenticate($FORM{'uname'},