#!\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)," ";}
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 :)