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

Diff for /loncom/Lond.pm between versions 1.25 and 1.26

version 1.25, 2023/12/28 18:14:08 version 1.26, 2025/05/13 04:07:06
Line 1277  sub crslti_itemid { Line 1277  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 1364  sub domlti_itemid { Line 1365  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 1540  sub get_lti_credentials { Line 1542  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.25  
changed lines
  Added in v.1.26

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