forked from openkylin/imagemagick
27 lines
597 B
Perl
27 lines
597 B
Perl
|
#!/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:');
|