parent
23d1b09e3b
commit
8c7e8a48d3
84
perl-Crypt-OpenSSL-RSA-openssl30.patch
Normal file
84
perl-Crypt-OpenSSL-RSA-openssl30.patch
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
diff --git a/README b/README
|
||||||
|
index c7d4bb7..3da6d1d 100644
|
||||||
|
--- a/README
|
||||||
|
+++ b/README
|
||||||
|
@@ -10,7 +10,6 @@ SYNOPSIS
|
||||||
|
Crypt::OpenSSL::Random::random_seed($good_entropy);
|
||||||
|
Crypt::OpenSSL::RSA->import_random_seed();
|
||||||
|
$rsa_pub = Crypt::OpenSSL::RSA->new_public_key($key_string);
|
||||||
|
- $rsa_pub->use_sslv23_padding(); # use_pkcs1_oaep_padding is the default
|
||||||
|
$ciphertext = $rsa->encrypt($plaintext);
|
||||||
|
|
||||||
|
$rsa_priv = Crypt::OpenSSL::RSA->new_private_key($key_string);
|
||||||
|
@@ -140,10 +139,6 @@ Instance Methods
|
||||||
|
all new applications. It is the default mode used by
|
||||||
|
"Crypt::OpenSSL::RSA".
|
||||||
|
|
||||||
|
- use_sslv23_padding
|
||||||
|
- Use PKCS #1 v1.5 padding with an SSL-specific modification that
|
||||||
|
- denotes that the server is SSL3 capable.
|
||||||
|
-
|
||||||
|
use_md5_hash
|
||||||
|
Use the RFC 1321 MD5 hashing algorithm by Ron Rivest when signing
|
||||||
|
and verifying messages.
|
||||||
|
@@ -168,7 +163,7 @@ Instance Methods
|
||||||
|
pkcs1_oaep_padding
|
||||||
|
at most 42 bytes less than this size.
|
||||||
|
|
||||||
|
- pkcs1_padding or sslv23_padding
|
||||||
|
+ pkcs1_padding
|
||||||
|
at most 11 bytes less than this size.
|
||||||
|
|
||||||
|
no_padding
|
||||||
|
diff --git a/RSA.pm b/RSA.pm
|
||||||
|
index 31e6949..1b63e99 100644
|
||||||
|
--- a/RSA.pm
|
||||||
|
+++ b/RSA.pm
|
||||||
|
@@ -34,8 +34,7 @@ Crypt::OpenSSL::RSA - RSA encoding and decoding, using the openSSL libraries
|
||||||
|
Crypt::OpenSSL::Random::random_seed($good_entropy);
|
||||||
|
Crypt::OpenSSL::RSA->import_random_seed();
|
||||||
|
$rsa_pub = Crypt::OpenSSL::RSA->new_public_key($key_string);
|
||||||
|
- $rsa_pub->use_sslv23_padding(); # use_pkcs1_oaep_padding is the default
|
||||||
|
- $ciphertext = $rsa->encrypt($plaintext);
|
||||||
|
+ $ciphertext = $rsa->encrypt($plaintext);
|
||||||
|
|
||||||
|
$rsa_priv = Crypt::OpenSSL::RSA->new_private_key($key_string);
|
||||||
|
$plaintext = $rsa->encrypt($ciphertext);
|
||||||
|
@@ -220,11 +219,6 @@ an empty encoding parameter. This mode of padding is recommended for
|
||||||
|
all new applications. It is the default mode used by
|
||||||
|
C<Crypt::OpenSSL::RSA>.
|
||||||
|
|
||||||
|
-=item use_sslv23_padding
|
||||||
|
-
|
||||||
|
-Use C<PKCS #1 v1.5> padding with an SSL-specific modification that
|
||||||
|
-denotes that the server is SSL3 capable.
|
||||||
|
-
|
||||||
|
=item use_md5_hash
|
||||||
|
|
||||||
|
Use the RFC 1321 MD5 hashing algorithm by Ron Rivest when signing and
|
||||||
|
@@ -267,7 +261,7 @@ the text to be encrypted should be:
|
||||||
|
|
||||||
|
at most 42 bytes less than this size.
|
||||||
|
|
||||||
|
-=item pkcs1_padding or sslv23_padding
|
||||||
|
+=item pkcs1_padding
|
||||||
|
|
||||||
|
at most 11 bytes less than this size.
|
||||||
|
|
||||||
|
diff --git a/RSA.xs b/RSA.xs
|
||||||
|
index d474d11..711e4e7 100644
|
||||||
|
--- a/RSA.xs
|
||||||
|
+++ b/RSA.xs
|
||||||
|
@@ -640,12 +640,6 @@ use_pkcs1_oaep_padding(p_rsa)
|
||||||
|
CODE:
|
||||||
|
p_rsa->padding = RSA_PKCS1_OAEP_PADDING;
|
||||||
|
|
||||||
|
-void
|
||||||
|
-use_sslv23_padding(p_rsa)
|
||||||
|
- rsaData* p_rsa;
|
||||||
|
- CODE:
|
||||||
|
- p_rsa->padding = RSA_SSLV23_PADDING;
|
||||||
|
-
|
||||||
|
# Sign text. Returns the signature.
|
||||||
|
|
||||||
|
SV*
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Name: perl-Crypt-OpenSSL-RSA
|
Name: perl-Crypt-OpenSSL-RSA
|
||||||
Version: 0.31
|
Version: 0.31
|
||||||
Release: 10%{?dist}
|
Release: 11%{?dist}
|
||||||
Summary: Perl interface to OpenSSL for RSA
|
Summary: Perl interface to OpenSSL for RSA
|
||||||
License: GPL+ or Artistic
|
License: GPL+ or Artistic
|
||||||
URL: https://metacpan.org/release/Crypt-OpenSSL-RSA
|
URL: https://metacpan.org/release/Crypt-OpenSSL-RSA
|
||||||
@ -8,7 +8,6 @@ Source0: https://cpan.metacpan.org/authors/id/T/TO/TODDR/Crypt-OpenSSL-RS
|
|||||||
BuildRequires: gcc
|
BuildRequires: gcc
|
||||||
BuildRequires: findutils
|
BuildRequires: findutils
|
||||||
BuildRequires: make
|
BuildRequires: make
|
||||||
BuildRequires: openssl
|
|
||||||
BuildRequires: openssl-devel
|
BuildRequires: openssl-devel
|
||||||
BuildRequires: perl-devel
|
BuildRequires: perl-devel
|
||||||
BuildRequires: perl-generators
|
BuildRequires: perl-generators
|
||||||
@ -33,11 +32,14 @@ Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $versi
|
|||||||
Requires: perl(Crypt::OpenSSL::Random)
|
Requires: perl(Crypt::OpenSSL::Random)
|
||||||
Requires: perl(Crypt::OpenSSL::Bignum)
|
Requires: perl(Crypt::OpenSSL::Bignum)
|
||||||
|
|
||||||
|
Patch1: perl-Crypt-OpenSSL-RSA-openssl30.patch
|
||||||
|
|
||||||
|
|
||||||
%description
|
%description
|
||||||
Crypt::OpenSSL::RSA - RSA encoding and decoding, using the openSSL libraries
|
Crypt::OpenSSL::RSA - RSA encoding and decoding, using the openSSL libraries
|
||||||
|
|
||||||
%prep
|
%prep
|
||||||
%setup -q -n Crypt-OpenSSL-RSA-%{version}
|
%autosetup -p1 -n Crypt-OpenSSL-RSA-%{version}
|
||||||
|
|
||||||
%build
|
%build
|
||||||
%{__perl} Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
|
%{__perl} Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
|
||||||
@ -59,6 +61,9 @@ make test
|
|||||||
%{_mandir}/man3/*
|
%{_mandir}/man3/*
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Tue May 18 2021 Pavel Zhukov <pzhukov@redhat.com> - 0.31-11
|
||||||
|
- Build with openssl 3.0
|
||||||
|
|
||||||
* Fri Apr 16 2021 Mohan Boddu <mboddu@redhat.com> - 0.31-10
|
* Fri Apr 16 2021 Mohan Boddu <mboddu@redhat.com> - 0.31-10
|
||||||
- Rebuilt for RHEL 9 BETA on Apr 15th 2021. Related: rhbz#1947937
|
- Rebuilt for RHEL 9 BETA on Apr 15th 2021. Related: rhbz#1947937
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user