version 1.49.2.28.2.22, 2025/03/15 01:24:03
|
version 1.49.2.28.2.23, 2025/05/13 07:19:19
|
Line 1890 sub get_credentials {
|
Line 1890 sub get_credentials {
|
my $privkey = $privhash{'key'}; |
my $privkey = $privhash{'key'}; |
$privnum = $privhash{'version'}; |
$privnum = $privhash{'version'}; |
if (($privnum) && ($privkey ne '')) { |
if (($privnum) && ($privkey ne '')) { |
$cipher = Crypt::CBC->new({'key' => $privkey, |
$cipher = Crypt::CBC->new(-pass => $privkey, |
'cipher' => 'DES'}); |
-cipher => 'Crypt::DES'); |
} |
} |
} |
} |
} |
} |