Perl LSB隐写脚本

Question

我一直在研究Andrew Ker提供的一个小示例Perl脚本，它在PGM和PPM文件中执行LSB隐写。(访问- http://www.cs.ox.ac.uk/andrew.ker/docs/ADK11B.pdf)

提供的脚本如下(在Ubuntu Linux上运行)：

perl -n0777 <cover-image > stego-image 
    -e’split/(\s+)/,<STDIN>,5;@z=map ord,split"",pop@_;srand key; for(0..$#z){@p[$k,$_]=($_,$p[$k=int rand$_]);} map{$z[$q=shift@p]+=($z[$q]-ord()&1)*(rand 2<=>1)} split"",unpack"B*",$_;print@_,map chr,@z;’ secret-text-file

然而，这给了我一个语法错误，我认为这是因为使用了‘字符。我没有使用Perl的经验，所以我放慢了脚步，试图找出问题所在。

任何建议都将不胜感激。

Answer 1

看起来字符’是由创建此PDF的文字处理程序转换的。这应该是一个单引号'。替换这两个实例，它应该可以工作。