Perl LSB Steganography Script

Question

저는 PGM 및 PPM 파일에서 LSB 스테 가노 그래피를 수행하는 Andrew Ker의 작은 샘플 Perl 스크립트를보고있었습니다. (액세스 - http://www.cs.ox.ac.uk/andrew.ker/docs/ADK11B.pdf)

다음과 같이 제시 스크립트는

(우분투 리눅스에서 실행) : 그러나

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가 작성된 모든 워드 프로세싱 프로그램에 의해 변환 된 것처럼 보입니다. 작은 따옴표 '으로되어 있습니다. 두 인스턴스를 모두 바꾸면 제대로 작동합니다.