Perl LSB Steganography Script

Question

私は、PGMとPPMファイルでLSBステガノグラフィを実行するAndrew Kerによる小さなサンプルのPerlスクリプトを見てきました。 （アクセス - 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が作成されたすべてのワープロプログラムによって変換されたように見えます。それは単一の引用'であるはずです。両方のインスタンスを置き換えると正常に動作します。