look what I've found

                                                    @x=qw/e n d/;if(
                             $kg){$e=13;$_="setrand(@{[int((rand)*90)]})

;K=vector(2,g,nextprime(random(10^$s)));e=$e;n=K[1]*
                             K[2];d=e^-1%((K[1]-1)*(K[2]-1));";s/\s//sg;for(
                              `echo "$_ e\nn\nd\n"|gp -q`){print$x[$j++]
                            ,"=",`echo "10i16o$_ p"|dc`}exit}$t=
                           unpack'H*',join'',<>;$l=length$n;$y
                        =$e?$l-2:$l;$i="16dio";while  (){$M=
                    ($e&&1+int(rand 8)).(substr     $t,$p
                 ,$y or last);$i.="\U$M $k        $n\E|
              pc";$p+=$y}for(reverse
         `echo "$i"|dc`){chop
 ;$d&&s/^(.)//||($_=
   sprintf"%0${l}s"
    ,$_); $f
    .=$_}#
    print
    pack
   'H*'
 ,$f


"This is a dolphin", you might think, and my answer is yes and no, yes,
because it has a dolphin's shape, and no because it's actually an
implementation of the famous RSA encryption algorithm.

(from: http://www.thinkgeek.com/rsa-dolphin.html)

Andreas Krennmair
--
...ceterum censeo Microsoft esse delendam.

Related ASCII art in the Gallery

Explore these categories from our collection of 11,000+ artworks:

 __ .  . __
(o.\ \/ /.o)
 \__\/\/__/
 /O /==\ O\
(;O/ \/ \O;)

   _______
  |.-----.|
  || jgs ||
  ||_   _||
  `--)-(--`
 __[=== o]___
|:::::::::::|\
`-=========-`() 

     ,sSSs
   ,SSSS_/ ,_
   sS/`))\//
  sS//|_(_/      _,
  SS\\\  `""-.-'` /
sSS` jgs-==-'`'-._\

 ___________
|  _______  |
| |       | |
| |       | |
| |       | |
| |_______| |
|___________|

//O\\

|\/\/\/|
|      |
|      |
| (o)(o)
C      _)
 | ,___|
 |   /
/____\

Make your own ASCII art

Turn images, text or 3D into ASCII, or draw your own – right in your browser.