#!\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 :)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.