Help for this page

Select Code to Download


  1. or download this
    K Q O W E F V J P U J U U N U K G L M E K J I
    
    ...
    D G M E E Y G U O T D G G Q E U J Y O T V G G
    
    B R U J Y S
    
  2. or download this
    $ cat trajan  | perl -pe 's/\W|\s//gm' |  perl babbage.pl
    
  3. or download this
    $ tail -12 vigenere.pl | perl -pe 's/\W|\s//gm' \
      | perl vigenere.pl - | perl babbage.pl
    
  4. or download this
    $,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
    +plit//=>$*
    ){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
    +C]=$/;($#C
    >$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
    +$$C[$%++]}