loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.19, 2006/12/24 21:22:33	version 1.21, 2007/07/20 19:07:25
Line 47 sub encryptseed {	Line 47 sub encryptseed {
my %descargs = ( 'one_time' => 1);	my %descargs = ( 'one_time' => 1);
my %course =	my %course =
&Apache::lonnet::coursedescription($cid,\%descargs);	&Apache::lonnet::coursedescription($cid,\%descargs);
my %seedhash =	$seed = $course{'internal.encseed'};
&Apache::lonnet::get('environment',['internal.encseed'],
$course{'domain'},$course{'num'});
$seed = $seedhash{'internal.encseed'};
}	}
}	}
if (defined($seed)) {	if (defined($seed)) {
Line 59 sub encryptseed {	Line 56 sub encryptseed {
$seed=substr($seed.$seed,0,32);	$seed=substr($seed.$seed,0,32);
return pack("H32",$seed);	return pack("H32",$seed);
} else {	} else {
return;	return pack("H32",1);
}	}
}	}