Аффинная система подстановок Цезаря

athenians.pl

#!/usr/bin/perl
# Аффинная система подстановок Цезаря
# --dynax60

use strict;
use warnings;
use encoding 'utf8';
use Encode qw(decode);

my ($cmd, $a, $b, $txt) = @ARGV;
&usage unless @ARGV == 4;

$a = int($a);
$b = int($b);

$txt = decode 'utf-8', $txt;

# Определяем алфавит
my @alph = ('A'..'Z', 'a'..'z', 0..9,
	(map { chr } ord( 'А' ) .. ord( 'Я' ), ord('а') .. ord('я')), "Ё", "ё"
);

my $m = scalar(@alph);

my (%e, %d) = ();

my $action = {
	'encrypt' => sub { return join '', map { $e{$_} } split //, shift },
	'decrypt' => sub { return join '', map { $d{$_} } split //, shift },
};

&usage unless exists $action->{$cmd};

for (0..$m-1) {
	my $idx = ($a*$_+$b) % $m;
	$e{ $alph[$_] } = $alph[$idx];
	$d{ $alph[$idx] } = $alph[$_];
}

print $action->{$cmd}->($txt), "\n";

sub usage { die "Usage: $0 <encrypt|decrypt> A B text\n" }