PATH:
usr
/
share
/
doc
/
ImageMagick-perl-6.9.10.68
/
demo
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell use Image::Magick; # # Hide an image within an image # $watermark=Image::Magick->new; $watermark->ReadImage('smile.gif'); ($width, $height)=$watermark->Get('width','height'); # # Hide image in image. # $image=Image::Magick->new; $image->ReadImage('model.gif'); $image->SteganoImage(image=>$watermark,offset=>91); $image->Write('model.png'); $image->Write('win:'); # # Extract image from image. # $size="$width" . "x" . "$height" . "+91"; $stegano=Image::Magick->new(size=>$size); $stegano->ReadImage('stegano:model.png'); $stegano->Write('stegano.gif'); $stegano->Write('win:');
[-] steganography.pl
[edit]
[-] Turtle.pm
[edit]
[-] composite.pl
[edit]
[-] src.png
[edit]
[-] shadow-text.pl
[edit]
[-] model.gif
[edit]
[-] demo.pl
[edit]
[+]
..
[-] piddle.pl
[edit]
[-] README
[edit]
[-] shapes.pl
[edit]
[-] pink-flower.gif
[edit]
[-] yellow-flower.gif
[edit]
[-] dst.png
[edit]
[-] tree.pl
[edit]
[-] annotate.pl
[edit]
[-] compose-specials.pl
[edit]
[-] pixel-fx.pl
[edit]
[-] button.pl
[edit]
[-] tile.gif
[edit]
[-] single-pixels.pl
[edit]
[-] settings.pl
[edit]
[-] annotate_words.pl
[edit]
[-] Makefile
[edit]
[-] red-flower.gif
[edit]
[-] lsys.pl
[edit]
[-] smile.gif
[edit]