hash_table.pm

#!/usr/bin/perl -l
sub rotation_lock{
%lock = (
' ' => '0',
'a' => '1',
'b' => '2',
'c' => '3',
'd' => '4',
'e' => '5',
'f' => '6',
'g' => '7',
'h' => '8',
'i' => '9',
'j' => '10',
'k' => '11',
'l' => '12',
'm' => '13',
'n' => '14',
'o' => '15',
'p' => '16',
'q' => '17',
'r' => '18',
's' => '19',
't' => '20',
'u' => '21',
'v' => '22',
'w' => '23',
'x' => '24',
'y' => '25',
'z' => '26',
'A' => '27',
'B' => '28',
'C' => '29',
'D' => '30',
'E' => '31',
'F' => '32',
'G' => '33',
'H' => '34',
'I' => '35',
'J' => '36',
'K' => '37',
'L' => '38',
'M' => '39',
'N' => '40',
'O' => '41',
'P' => '42',
'Q' => '43',
'R' => '44',
'S' => '45',
'T' => '46',
'U' => '47',
'V' => '48',
'W' => '49',
'X' => '50',
'Y' => '51',
'Z' => '52',
'1' => '53',
'2' => '54',
'3' => '55',
'4' => '56',
'5' => '57',
'6' => '58',
'7' => '59',
'8' => '60',
'9' => '61',
'0' => '62',
'.' => '63',
',' => '64',
'?' => '65',
'!' => '66',
'°' => '67',
':' => '68',
';' => '69',
']' => '70',);

$lock_value = $lock{@_[0]};
return $lock_value;

}

sub unlock{


%unlock = (
'0' => ' ',
'1' => 'a',
'2' => 'b',
'3' => 'c',
'4' => 'd',
'5' => 'e',
'6' => 'f',
'7' => 'g',
'8' => 'h',
'9' => 'i',
'10' => 'j',
'11' => 'k',
'12' => 'l',
'13' => 'm',
'14' => 'n',
'15' => 'o',
'16' => 'p',
'17' => 'q',
'18' => 'r',
'19' => 's',
'20' => 't',
'21' => 'u',
'22' => 'v',
'23' => 'w',
'24' => 'x',
'25' => 'y',
'26' => 'z',
'27' => 'A',
'28' => 'B',
'29' => 'C',
'30' => 'D',
'31' => 'E',
'32' => 'F',
'33' => 'G',
'34' => 'H',
'35' => 'I',
'36' => 'J',
'37' => 'K',
'38' => 'L',
'39' => 'M',
'40' => 'N',
'41' => 'O',
'42' => 'P',
'43' => 'Q',
'44' => 'R',
'45' => 'S',
'46' => 'T',
'47' => 'U',
'48' => 'V',
'49' => 'W',
'50' => 'X',
'51' => 'Y',
'52' => 'Z',
'53' => '1',
'54' => '2',
'55' => '3',
'56' => '4',
'57' => '5',
'58' => '6',
'59' => '7',
'60' => '8',
'61' => '9',
'62' => '0',
'63' => '.',
'64' => ',',
'65' => '?',
'66' => '!',
'67' => '§',
'68' => ':',
'69' => ';',
'70' => ']',);
$unlocked_text = $unlock{@_[0]};
return $unlocked_text
}
1;