From: Rene A. <ren...@gm...> - 2006-11-29 20:12:52
|
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 |