$c=hex($c);
$M=Math::BigInt-new($c);
$C=$M-copy(); $C-bmodpow($E,$N);
$c=chr($C);
$dmess.=$c;
}
return \$dmess;
}
my $mess="RSA 娃哈哈哈～～～";
$mess=$ARGV[0] if @ARGV = 1;
print "原始串：",$mess,"\n";
my $r_cmess = RSA_ENCRYPT(\$mess);
print "加密串：",$$r_cmess,"\n";
my $r_dmess = RSA_DECRYPT($r_cmess);
print "解密串：",$$r_dmess,"\n";
#EOF
测试一下：
C:\Tempperl rsa-test.pl
N=2773 D=847 E=63
原始串：RSA 娃哈哈哈～～～
加密串：5CB6CD6BC58A7709470AA74A0AA74A0AA74A6C70A46C70A46C70A4
解密串：RSA 娃哈哈哈～～～
C:\Tempperl rsa-test.pl 安全焦点（xfocus）
N=2773 D=847 E=63
原始串：安全焦点（xfocus）
加密串：3393EC12F0A466E0AA9510D025D7BA0712DC3379F47D51C325D67B
解密串：安全焦点（xfocus）
【包含vb.netrsa的词条】关于vb.netrsa和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

• redis的热点数据缓存 redis热点数据切换
• 如何修改戴尔服务器的IP地址？ 戴尔服务器ip地址怎么改
• mysql中ext
• 优惠券功能的业务流程设计图谱 优惠券redis处理
• redis通配符的使用
• redis是开发工具吗 redis的开发人是谁
• mongodb查询字符串字段包含 mongodb查询字段不为空
• mysql备份一个表的数据 备份一个mysql库
• mysql中删除记录的命令 mysql删除中继日志
• mysql 判断 mysql的判断语句