在perl中将签名添加到PDF中

Question

如何在perl中使用数字签名签署pdf文件？我能够提取pdf的内容并通过生成签名字符串

#$ content - >要签名的pdf内容

my $ private_key Crypt :: OpenSSL :: RSA-> new_private_key($ key_string);
$ private_key-> use_md5_hash();
my $ signature = $ private_key-> sign($ content);

因此,$签名可以转换为十六进制格式,但我不知道如何将其添加到PDF文件中.我知道十六进制形式的签名应放在/ Contents字段中,签名文本的范围由/ ByteRange数组给出.

有没有用于此目的的模块？或者你可以给我任何建议怎么做？谢谢

Answer 1

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();
my $signature = $private_key->sign($plaintext);