使用Crypt：：RSA和Crypt：：RSA：：SS：：PSS在Perl中验证RSA PSS签名时出现问题

Question

我无法使用Crypt：：RSA和Crypt：：RSA：：SS：：PSS在Perl中验证PSS签名。

echo -n hello | 
openssl dgst -verify pubkey.pem -signature hello.sig -sha1 \
             -sigopt rsa_padding_mode:pss -sigopt rsa_pss_saltlen:20

• 字符串“hello”是由设备签名的缓冲区。
• “pubkey.pem”是设备的RSA公钥，用PEM_write_RSA_PUBKEY()从设备导出。
• “hello.sig”包含由设备生成的二进制（原始）签名。（因为有填充，所以是128字节。）

我试图在Perl中使用crypt：：rsa和crypt：：rsa：：ss：：pss来执行上述操作，但无法使其正常工作。

我已经测试了这两个模块，并且能够在生成自己的密钥时用Perl生成和验证PSS签名，如下所示：

use Crypt::RSA;
use Crypt::RSA::SS::PSS;

my ($message, $rsa, $pss, $signature, $verify);
my ($public, $private);


 # The message to be encrypted
 #
$message = "hello";


 # Generate RSA key
 #
$rsa = new Crypt::RSA;
($public, $private) = $rsa->keygen( Size => 1024, Filename => "key" );


 # Generate PSS signature
 #
$pss = new Crypt::RSA::SS::PSS;

$signature = $pss->sign ( Message => $message, Key => $private ) || die $pss->errstr;

$verify = $pss->verify ( Message => $message, Key => $public, Signature => $signature ) || die $pss->errstr;

 # $verify returns true, it worked.

  $publicKey = new Crypt::RSA::Key::Public ( Filename => "key.public"  );
  ...
 # I pack the 256 character (128 byte) hex string of the signature
 # that's generated by the device.
  $signature = pack ("H*", '03808458…..73E92'); 

我想我应该能够指出它应该使用SHA1和AES-128（与Blowfish相反）。
我是不是找错人了？

谢谢…。

Answer 1

如果无法对文件和代码进行测试以进行调试，则不确定如何帮助您。但是，虽然不是最好的解决方案，但一个很好的工作是在Perl中使用系统调用。如果您能够在命令提示符上验证它，您可以使用一些选项来检查它。第一个是系统:

my $return_code = system("some command");
# or...
my $return_code = system("command", "some", "args");

这样做时，将在$return_code中收到返回的退出代码。如果在命令提示符中验证它的任何操作都在验证失败时以错误代码退出，那么当一切顺利时，您将收到0，当出错时，您将收到另一个数字。

分析系统调用答案的其他方法，如果您想读取实际答案，请使用backticks id：

my $answer = `some system call`;
# or...
my $answer = qx[some system call];

if ($return_code == 0) {
    print "Verified!";
}
# or...
if ($answer =~ /OpenSSL.*?Verification sucess.*?Signature code:(\d+)/) {
    # I'm just making up stuff here, I don't know the answer of your command!
    print "Verification succesful. Signature code was $1";
}

我希望这能有所帮助。我希望我能测试实际的脚本和文件，并给出一个纯Perl的答案，但这至少可以帮助您目前取得进展。

弗朗西斯科