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.

Andreas Krennmair wrote:
> 
>                                                     @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.

Perl,Html book time for me

--lgbeard

obascii
        _____ 
       /     \                      
      /       \
     | .(((((. |     buried
     (/       \)      in the
     ( <o> <o> )       book
   __ |___^___|____ 
  |P     |-| H     |
 >> E    |-|  T    <<
 >>  R   |-|   M   <<
 >>   L  |-|    L  <<
  |______|-|_______|