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 { |