[ create a new paste ] login | about

Link: http://codepad.org/7JS3TTjr    [ raw code | output | fork ]

Perl, pasted on Jun 23:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$mode = 'l';
$mode eq 'l' or $mode eq 'r' or die "\$mode must be \"l\" or \"r\".\n";

$input = "Frog Blast the Vent Core!";

if ($mode eq 'l')
   {$input =~ tr {1234567890\-=`wertyuiop[]\\qsdfghjkl;'axcvbnm,./z}
                 {`1234567890\-=qwertyuiop[]\\asdfghjkl;'zxcvbnm,./};
    $input =~ tr {!@#$%^&*()_+~WERTYUIOP\{\}|QSDFGHJKL:"AXCVBNM<>?Z}
                 {~!@#$%^&*()_+QWERTYUIOP\{\}|ASDFGHJKL:"ZXCVBNM<>?};}
else
   {$input =~ tr {`1234567890\-=qwertyuiop[]\\asdfghjkl;'zxcvbnm,./}
                  {1234567890\-=`wertyuiop[]\\qsdfghjkl;'axcvbnm,./z};
    $input =~ tr {~!@#$%^&*()_+QWERTYUIOP\{\}|ASDFGHJKL:"ZXCVBNM<>?}
                 {!@#$%^&*()_+~WERTYUIOP\{\}|QSDFGHJKL:"AXCVBNM<>?Z};}

print $input;


Output:
1
Deif Vk'ar rgw Cwbr Xiew~


Create a new paste based on this one


Comments: