以下のような感じで"ABCD"を暗号化する。 use strict; use warnings; use Crypt::RSA; use Crypt::RSA::Primitives; my $rsa = Crypt::RSA->new; my ($public, $private) = $rsa->keygen(Size => 48) or die; print $public->serialize, "\n"; my $prim = Crypt::RSA::Primitives->new; my $message = unpack "L", "ABCD"; my $ctxt = $prim->core_encrypt (Key => $public, Plaintext => $message); print $ctxt, "\n"; __END__ $VAR1 = bless( {