使用 Perl 验证 GPG 文件签名

Question

我想验证 GPG 签名文件（使用 archive.tar.gz.sign 验证 archive.tar.gz）。

ATM 我只是直接调用 gpg 并解析退出代码和输出。虽然这是一个适合我的解决方案，但我认为必须有更好的方法以更有效的方式做到这一点。

但作为一名编程新手，我无法理解如何使用 GPG CPAN 模块。

非常感谢任何提示！

Answer 1

CPAN 上的 GnuPG 模块 在概要中包含以下内容

use GnuPG qw( :algo );
my $gpg = new GnuPG();
$gpg->verify( signature => "file.txt.asc", file => "file.txt" );

：干净的。

Answer 2

Crypt::OpenPGP 模块可能会有帮助。它是 OpenPGP 规范的纯 Perl 实现。

描述

Crypt::OpenPGP 是 OpenPGP 标准 的纯 Perl 实现。除了支持标准本身之外，Crypt::OpenPGP 还声称与许多其他 PGP 实现兼容，包括支持该标准的实现和之前的标准。

Crypt::OpenPGP 提供签名/验证、加密/解密、密钥环管理和密钥对生成；简而言之，它应该为您提供启用 PGP 所需的一切。

这是使用它来验证文件的示例：

my $pgp = Crypt::OpenPGP->new;

# Verify the detached signature $signature, which should be of the
# source file $file.
my $is_valid = $pgp->verify(
    Signature  => $signature,
    Files      => [ $file ],
);