[BACK]Return to Lond.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/Lond.pm between versions 1.8.2.3.2.5 and 1.8.2.3.2.6

version 1.8.2.3.2.5, 2024/08/18 01:37:26 version 1.8.2.3.2.6, 2025/05/13 07:15:29
Line 1063  sub crslti_itemid { Line 1063  sub crslti_itemid {
                     my $keynum = $courselti{$id}{'cipher'};                      my $keynum = $courselti{$id}{'cipher'};
                     my $privkey = &get_dom("getdom:$cdom:private:$keynum:lti:key");                      my $privkey = &get_dom("getdom:$cdom:private:$keynum:lti:key");
                     if ($privkey ne '') {                      if ($privkey ne '') {
                         my $cipher = new Crypt::CBC($privkey);                          my $cipher = Crypt::CBC->new(-pass   => $privkey,
                                                        -cipher => 'Crypt::DES');
                         $secret = $cipher->decrypt_hex($secret);                          $secret = $cipher->decrypt_hex($secret);
                     }                      }
                 }                  }
Line 1150  sub domlti_itemid { Line 1151  sub domlti_itemid {
                     my $keynum = $lti{$id}{'cipher'};                      my $keynum = $lti{$id}{'cipher'};
                     my $privkey = &get_dom("getdom:$dom:private:$keynum:lti:key");                      my $privkey = &get_dom("getdom:$dom:private:$keynum:lti:key");
                     if ($privkey ne '') {                      if ($privkey ne '') {
                         my $cipher = new Crypt::CBC($privkey);                          my $cipher = Crypt::CBC->new(-pass   => $privkey,
                                                        -cipher => 'Crypt::DES');
                         $secret = $cipher->decrypt_hex($secret);                          $secret = $cipher->decrypt_hex($secret);
                     }                      }
                 }                  }
Line 1326  sub get_lti_credentials { Line 1328  sub get_lti_credentials {
                     unless ($privhost) {                      unless ($privhost) {
                         my $privkey = &get_dom("getdom:$cdom:private:$keynum:$privname:key");                          my $privkey = &get_dom("getdom:$cdom:private:$keynum:$privname:key");
                         if (($privkey ne '') && ($secret ne '')) {                          if (($privkey ne '') && ($secret ne '')) {
                             my $cipher = new Crypt::CBC($privkey);                              my $cipher = Crypt::CBC->new(-pass   => $privkey,
                                                            -cipher => 'Crypt::DES');
                             $secret = $cipher->decrypt_hex($secret);                              $secret = $cipher->decrypt_hex($secret);
                         } else {                          } else {
                             undef($secret);                              undef($secret);
Removed from v.1.8.2.3.2.5  
changed lines
  Added in v.1.8.2.3.2.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>