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
|
