granicus.if.org Git - imagemagick/blob - PerlMagick/demo/steganography.pl

   1 #!/usr/bin/perl
   2
   3 use Image::Magick;
   4
   5 #
   6 # Hide an image within an image
   7 #
   8 $watermark=Image::Magick->new;
   9 $watermark->ReadImage('smile.gif');
  10 ($width, $height)=$watermark->Get('width','height');
  11 #
  12 # Hide image in image.
  13 #
  14 $image=Image::Magick->new;
  15 $image->ReadImage('model.gif');
  16 $image->SteganoImage(image=>$watermark,offset=>91);
  17 $image->Write('model.png');
  18 $image->Write('win:');
  19 #
  20 # Extract image from image.
  21 #
  22 $size="$width" . "x" . "$height" . "+91";
  23 $stegano=Image::Magick->new(size=>$size);
  24 $stegano->ReadImage('stegano:model.png');
  25 $stegano->Write('stegano.gif');
  26 $stegano->Write('win:');