如何在Perl中使用ExtFilterDefine作为一个线性程序来处理png文件?

4nkexdtk  于 2022-11-15  发布在  Perl
关注(0)|答案(1)|浏览(75)

由于md5哈希扫描工具,如wpscan,我想防止脚本小子检测尽可能多的信息,我的WordPress网站.与以下Perl片段,我试图添加一些额外的字符到所有要求的png文件。但它不工作,我不知道为什么。有人可以帮助我吗?我的目标是不改变它的权利内的文件-仅用于屏幕上请求输出
ExtFilterDefine pngfilter mode=output intype=image/png cmd="/usr/bin/perl -pe 'END { unless (-f q{/tmp/md5_filter.tmp}) { print qq(\/*) . time() . qq(\*/) } }'"
我对css和js文件使用了相同的代码段逻辑。在这里它按预期工作。

fgw7neuy

fgw7neuy1#

它 * 确实 * 有效。

$ perl -pe 'END { print qq(/*) . time() . qq(*/) }' derpkin.png >derpkin_.png

$ diff <( hexdump -C derpkin.png ) <( hexdump -C derpkin_.png )
3023,3024c3023,3025
< 0000bce0  00 00 00 00 49 45 4e 44  ae 42 60 82              |....IEND.B`.|
< 0000bcec
---
> 0000bce0  00 00 00 00 49 45 4e 44  ae 42 60 82 2f 2a 31 36  |....IEND.B`./*16|
> 0000bcf0  35 36 33 35 30 37 37 36  2a 2f                    |56350776*/|
> 0000bcfa

至少,它的工作方式完全符合您的要求。但是,在PNG末尾添加任意文本是否有意义呢?我对PNG文件格式不够熟悉,无法回答这个问题。
警告:由于CRLF LF转换,它在Windows上不起作用。

相关问题