Help for this page

Select Code to Download


  1. or download this
    @b{@b{0..27}=(_,a..z,'.')}=0..27;@s=pop=~/./g;$p[$_[0]*$_%+@s]=$b{($b{
+$s[$_]}+$_)%28}for 0..$#s;join'',@p
  2. or download this
    @e=split//,pop;
@e=pop=~/./g;
  3. or download this
    @;{@;{0..27}=(_,a..z,'.')}=0..27;$,=0;$;[$_[0]*$,++%@s]=$;{($;{$_}+$,)
+%28}for@s=pop=~/./g;join'',@;