#!\perl\bin\perl -w
use strict;

            my$tm;foreach my$i(0..78){$tm.=chr($i+48);}my$m=0;
          my@ta;                                       foreac
        h m  y$y                                     (0.  .12
      ){f    ore                                   ach    my$
    n(0      ..5                                 ){$      ta[
  $y]        [$n                               ]=s        ubs
tr(          $tm                             ,$m          ,1)
;$m++;}}sub encryptor{my$w=shift;my($r,$r1,$r2,           $c1
,$c          2);                           for            (my
$i=          0;$                           i<l            eng
th(          $w)                           ;$i            +=2
){i          f($                           i<(            len
gth          ($w                           )-1            )){
my$          w1=                           sub            str
($w          ,$i                           ,1)            ;my
$w2          =su                           bst            r($
w,$          i+1                           ,1)            ;fo
rea          ch                            my$            y(0
..1          2){                           for            eac
hmy          $n(                           0..            5){
if(          $ta                           [$y            ][$
n]e          q$w                           1){            $r1
=$y          ;$c                           1=$            n;}
}}f          ore                           ach            my$
y(0          ..1                           2){            for
eac          h m                           y$n            (0.
.5)          {if                           ($t            a[$
y][          $n]                           eq$            w2)
{$r          2=$y;$c2=$n;}}}if($r1==$r2||$c1==$c2){$r.=$w2;$
r.=          $w1                           ; }           els 
e {         $r.                            =$t         a[$   
r2]       [$c                              1];        $r.    
=$t     a[$                                r1]      [$c      
2];   }}e                                  lse    {$r        
.=  sub                                    str  ($w          
,$i,1)                                     ;}}ret            
urn$r;}my@j=("vits","mbunbkr","dqlr","bgiew`");              

foreach my$a(@j){print encryptor($a)," ";}

[download]

I'll be really impressed if someone took the time to figure this one out... its my first try at this, so i kinda went overboard :)

In reply to A matrixy japh by jryan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.