/PerlMagick/demo/steganography.pl
Perl | 26 lines | 14 code | 2 blank | 10 comment | 0 complexity | bea4fe2a52b0ddfc03f60cc2f3f5b10a MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception
- #!/usr/bin/perl
- 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:');