Name: Anonymous 2013-08-13 10:13
create an image which displays its end MD5 sum in the image itself
#!/usr/bin/perl -l
use bignum;
for($i = 0; $i < 0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF; $i++) {
$x = sprintf("%032x", $i);
`convert label:$x $x.png`;
$md5 = `md5sum $x.png | awk '{print $1}'`;
print "found one: $x" if ($md5 eq $x);
unlink "$x.png";
}