小编SaA*_*chs的帖子

我正在编写 Perl 脚本 signature.pl 来构建 PDF 字典和签名字典对象 这在变量中声明了 PEM 和 PDF。我已经将 POSIX 用于 strftime

use strict;
use warnings;
use PDF::API2;
use PDF::API2::Basic::PDF::Utils;
use File::Slurp;
use POSIX;

use Crypt::OpenSSL::RSA;
use Crypt::OpenSSL::X509 qw/FORMAT_UNDEF FORMAT_ASN1 FORMAT_TEXT FORMAT_PEM/;
use Digest::SHA1 qw(sha1 sha1_hex);

my $add_mdp = 0;
my $input_filename = "signature.pdf";
my $tempfilename   = 'tmp.pdf';
my $outfilename    = 'tmp.pdf';

my $sig_algorithm  = 'pkcs7';
my $sig_length     = 20480;

my $cacert_filename   = "signature.pem";
my $x509_filename     = "signature.pem";
my $priv_key_filename = "signature.pem";

my $cacert   = Crypt::OpenSSL::X509->new_from_file($cacert_filename);
my $x509 …