Thêm chữ ký vào PDF trong perl

Question

Làm cách nào để ký một tệp pdf bằng chữ ký số trong perl? Tôi có thể trích xuất nội dung của pdf và để tạo ra chuỗi chữ ký qua

# $ nội dung -> Nội dung pdf sẽ được ký kết

của tôi $ private_key Crypt :: OpenSSL :: RSA-> new_private_key ($ key_string);
$ private_key-> use_md5_hash();
ký hiệu $ signature = $ private_key-> ($ content);

Do đó, chữ ký $ có thể được chuyển đổi thành định dạng hex, nhưng tôi không biết cách thêm nó vào tệp PDF. Tôi biết rằng chữ ký trong dạng hex nên được đặt trong trường/Nội dung và phạm vi của văn bản đã ký được đưa ra bởi mảng/ByteRange.

Có mô-đun nào cho mục đích này không? Hoặc bạn có thể cho tôi lời khuyên nào không? Cảm ơn

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); 

Answer 2

bạn có thể tìm thấy kịch bản này thú vị ... http://mschuette.name/files/pdfsign.pl nó sử dụng PDF :: API2 và Crypt :: OpenSSL todo kỳ diệu của nó ... nó có thể có thể làm cơ sở cho việc tạo ra một cái gì đó của riêng bạn.