perl - 使用 Perl 的数据签名

Question

我参与过这个涉及发送签名数据的项目。

我已经获得了一个 .pem 文件和一个服务器证书，我应该将其导入到另一台服务器，我应该从该服务器使用这些文件对数据进行签名，然后将签名的数据发送到另一台服务器进行验证和处理。

我的问题是:

• 如何将这两个文件导入我的服务器？
• 如何使用 perl 使用文件对数据进行签名？

请注意，我要导入到 linux (Suse) 中。

这是我目前所做的我已将 .pem 文件添加到/etc/ssl我正在使用下面的代码从 .pem 文件中读取然后签署数据

my $rsa = new Crypt::RSA;
my $file = 'path to file';
my $key = new Crypt::RSA::Key::Private(  Filename => $file , Password => "*****");
my $signature = $rsa->sign(Message => $data, Key => $key, Armour => 0);

当我尝试运行如下脚本时出现错误Bareword 在第 4 行(eval 30)处找到运算符(operator)预期的位置，靠近“/S2YUeaABL1sO3rk4HhjyDSMIJoc91n .....

我注意到 .pem 文件的内容在导致这些问题的文件中有斜线。看 sample

-----BEGIN RSA PRIVATE KEY-----
MIICXAIBAAKBgQCMdoWd+LEk22TMaEihLqwl8tJtuFzndJ8dTGrLw6twjfAeV0sg
PsDQbVu5/S2YUeaABL1sO3rk4HhjyDSMIJoc91nfE3kYueRxEA9eL5JlxPDg2Z3s

Answer 1

1. 阅读Import Certificates and Private Key with Copy and Paste

2. RSA 登录 Perl(未经测试的代码):

   use Crypt::OpenSSL::RSA;
   use File::Slurp;
   
   my $keystring = read_file('private_key.pem');
   my $private_key = Crypt::OpenSSL::RSA->new_private_key($keystring);
   $private_key->use_md5_hash(); # use_sha1_hash is the default
   my $signature = $private_key->sign($plaintext);
   

祝你好运!