[Perl-openssl-users] panic: sv_setpvn called with negative strlen at -e line 1.

[Rene A. <ren...@gm...>]

Hi list,

some problems with Crypt::OpenSSL::RSA:

use Crypt::OpenSSL::RSA;
$rsa_priv =3D Crypt::OpenSSL::RSA->generate_key(1024);
$priv =3D $rsa_priv->get_private_key_string();
$pub =3D $rsa_priv->get_public_key_string();
$rsa_pub =3D Crypt::OpenSSL::RSA->new_public_key($pub);=20
$rsa_pub->use_sslv23_padding();
$ciphertext =3D $rsa_pub->encrypt("lallalaalalala");=20

print "---MARK---\n";    $rsa_priv =3D=20

Crypt::OpenSSL::RSA->new_private_key($priv);
$plaintext =3D $rsa_priv->encrypt($ciphertext);

Output:

=2D--MARK---
panic: sv_setpvn called with negative strlen at -e line 1.



Any ideas?=20


I'm using:
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
pool/main/libc/libcrypt-openssl-rsa-perl/libcrypt-openssl-rsa-perl_0.23-1_i=
386.deb


=2D-=20
Mit freundlichen Gr=FC=DFen

Rene Adrian K=F6nig


=46ingerprint: F6FD D3C8 22D1 4315 5781  4B59 C81B A5E6 6900 E21A