php rsa 模数 指数,php – 如何从模数,指数和私有指数创建Crypt :: RSA对象？

我正在尝试将以下php功能移植到perl：

public function loadKey($mod, $exp, $type = 'public')

{

$rsa = new Crypt_RSA();

$rsa->signatureMode = CRYPT_RSA_SIGNATURE_PKCS1;

$rsa->setHash('sha256');

$rsa->modulus = new Math_BigInteger(Magicsig::base64_url_decode($mod), 256);

$rsa->k = strlen($rsa->modulus->toBytes());

$rsa->exponent = new Math_BigInteger(Magicsig::base64_url_decode($exp), 256);

// snip...

}

我需要转换表单中的字符串(“RSA.$mod.$exp.$private_exp”)：

RSA.mVgY8RN6URBTstndvmUUPb4UZTdwvwmddSKE5z_jvKUEK6yk1u3rrC9yN8k6FilGj9K0eeUPe2hf4Pj-5CmHww==.AQAB.Lgy_yL3hsLBngkFdDw1Jy9TmSRMiH6yihYetQ8jy-jZXdsZXd8V5ub3kuBHHk4M39i3TduIkcrjcsiWQb77D8Q==

…到Crypt :: RSA对象.我已经拆分了组件,所以我有$mod,$exp和$private_exp,但perl Crypt :: RSA API似乎没有办法明确设置.