#!/usr/local/bin/perl -s-- -export-a-crypto-sardine -RSA-PERL-fishes
'---------------------------------------------------------------------------.
|\~.         __......--------~~~~~~~~~~~~~~~~~~~~~~~~-------....____        |
|\  ~.__---~ ;($k,$n)=@ARGV;$m=unpack(H.$w,$m."\0"x$w),$_=`echo  "[o~~-._   |
|\~.         __......--------~~~~~~~~~~~~~~~~~~~~~~~~-------....____     ~. |
|\  ~.__---~ ;($k,$n)=@ARGV;$m=unpack(H.$w,$m."\0"x$w),$_=`echo  "[o~~-._ .`|
|\~.         __......--------~~~~~~~~~~~~~~~~~~~~~~~~-------....____     ~. |
|\  ~.__---~';($k,$n)=@ARGV;$m=unpack(H.$w,$m."\0"x$w),$_=`echo  "[o~~-._ .'|
| \  ]s!16do$w 2+4Oi0$d*-^1[d2%Sa2/d0<X+d*La1=z\U$n%0]SX$k"[$m*]"\E[     ~. |
| /  ]s!szlXx++p"|dc`,s/^.|\W//g,print pack('H*',$_)while read(STDIN,$m," .'|
|/  .-~~--.._" +($w=2*$d-1+length($n||die"$0 [-d] k n\n")&~1)/2);'  __..-~  |
|~-------------------------------------------------------------------------~|
|                            Crypto Canning Co.                             |
|                    http://www.dcs.ex.ac.uk/~aba/rsa/                       |
`---------------------------------------------------------------------------'