Репозитории ALT
S: | 1.92-alt1 |
5.1: | 1.35-alt2 |
4.1: | 1.33_01-alt1 |
4.0: | 1.25-alt3.1 |
3.0: | 1.25-alt3 |
Группа :: Разработка/Perl
Пакет: perl-Net-SSLeay
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-Net-SSLeay-1.25-deb-entropy-CAN-2005-0106.patch
Скачать
Скачать
libnet-ssleay-perl (1.25-1.1) unstable; urgency=high
* Non-maintainer upload.
* Applied patch by Javier <jfs@computer.org> to fix insecure
entropy source [SSLeay.pm, CAN-2005-0106]
-- Steve Kemp <skx@debian.org> Fri, 18 Feb 2005 13:57:43 +0000
--- libnet-ssleay-perl-1.25.orig/SSLeay.pm
+++ libnet-ssleay-perl-1.25/SSLeay.pm
@@ -1853,8 +1853,8 @@
my ($rn_seed_file, $seed, $egd_path) = @_;
my $rnsf = defined($rn_seed_file) && -r $rn_seed_file;
+ $egd_path = '';
$egd_path = $ENV{'EGD_PATH'} if $ENV{'EGD_PATH'};
- $egd_path = '/tmp/entropy' unless $egd_path;
RAND_seed(rand() + $$); # Stir it with time and pid
@@ -1865,7 +1865,7 @@
RAND_load_file($rn_seed_file, -s _) if $rnsf;
RAND_seed($seed) if $seed;
RAND_seed($ENV{RND_SEED}) if $ENV{RND_SEED};
- RAND_egd($egd_path) if -S $egd_path;
+ RAND_egd($egd_path) if -e $egd_path && -S $egd_path;
RAND_load_file($Net::SSLeay::random_device, $Net::SSLeay::how_random/8)
if -r $Net::SSLeay::random_device;
}