Thanks for the sharing. 2010/12/20 joe jiang <[email protected]>: > Sorry, it should be Day 21 in the mail subject. Christmas is so near now ... > 2010/12/20 joe jiang <[email protected]> >> >> =for advent_year 2010 >> >> =for advent_day 21 >> >> =for advent_title PDF::API2 >> >> =for advent_author Joe Jiang >> >> PDF::API2 是久负盛名的 PDF 处理利器，我们这里演示的是如何用它来追踪 PDF 侵权的用户。 >> =begin pre >> >> #!/usr/bin/perl -w >> >> use strict; >> >> use PDF::API2; >> >> my $file=PDF::API2->openScalar(do{join(q(),<STDIN>)}); >> >> my $font=$file->corefont(q(Courier)); >> >> do {my $t=$_->text; $t->font($font, 8); $t->fillcolor(q(white)); >> $t->translate(40,10); $t->text(q(Hello world))} for map >> {$file->openpage($_)} 1..$file->pages; >> >> print $file->stringify >> >> =end pre >> 这段代码能从标准输入读取 PDF 文件，只要它没有被加过密，就可以在它每一页的相对位置 40,10 处用白色字体打印 Hello World，然后用 >> stringfy 和 print 输出到标准输出。只要重定向到文件，就可以储存下来。假如我们把以上的代码储存为 >> watermark.pl，那么就可以这样调用： >> =begin pre >> $ cat abc.pdf | ./watermark.pl > def.pdf >> =end pre >> 现在，因为大多数的 PDF 是用白色作为背景色，那么页脚处的 Hello world >> 就不容易被发现，然后你可以在网上设置一个收索机器人，专门搜索内含此字的 PDF >> 文件，那就是被人盗用的。如果其中加入用户的帐号、下载日期等等，就可以用来作为追诉的依据。Thanks Alfred & the community! > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >
-- Fayland Lam // http://www.fayland.org/ -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
