loncom/lonenc.pm - diff

Return to lonenc.pm CVS log

Up to [LON-CAPA] / loncom

version 1.14, 2006/04/07 22:15:34	version 1.15, 2006/05/30 12:45:12
Line 32 use strict;	Line 32 use strict;
use Apache::lonnet;	use Apache::lonnet;
use Crypt::IDEA;	use Crypt::IDEA;
use Time::HiRes qw(gettimeofday);	use Time::HiRes qw(gettimeofday);
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

sub encryptseed {	sub encryptseed {
my $seed=$env{'course.'.$env{'request.course.id'}.'.internal.encseed'};	my $seed=$env{'course.'.$env{'request.course.id'}.'.internal.encseed'};
$seed=~s/[^0-9a-f]/0/g;	$seed=~s/[^0-9a-f]/0/g;
Line 49 sub unencrypted {	Line 51 sub unencrypted {
unless ($seed) {	unless ($seed) {
return '/'.$uri;	return '/'.$uri;
}	}
$uri=&Apache::lonnet::unescape($uri);	$uri=&unescape($uri);
my $cipher=new IDEA $seed;	my $cipher=new IDEA $seed;
my $decuri='';	my $decuri='';
for (my $encidx=0;$encidx<length($uri);$encidx+=16) {	for (my $encidx=0;$encidx<length($uri);$encidx+=16) {
Line 101 sub encrypted {	Line 103 sub encrypted {
$encuri.=unpack("H16",	$encuri.=unpack("H16",
$cipher->encrypt(substr($uri,$encidx,8)));	$cipher->encrypt(substr($uri,$encidx,8)));
}	}
return '/enc/'.$cmdlength.'/'.&Apache::lonnet::escape($encuri);	return '/enc/'.$cmdlength.'/'.&escape($encuri);
}	}

sub check_encrypt {	sub check_encrypt {