如何在Perl中为凯撒密码分配字母表中的字母？

Question

我写了一个程序，对字母表中字母对应的数字进行加密和解密，但我如何做到当我要求输入时，我将每个字母分配给它的数字，然后进行操作，打印信息的加密和解密，而不需要几行代码？这是我的程序：

print "Caesar's Cipher\n\n";
print "Reference:\n\n";
print "A   B   C   D   E   F   G   H   I   J   K   L    M\n";
print "0   1   2   3   4   5   6   7   8   9   10  11   12\n\n";
print "N   O   P   Q   R   S   T   U   V   W   X   Y    Z\n";
print "13  14  15  16  17  18  19  20  21  22  23  24   25\n";
print "\nEnter a Message (User numbers separated by space):\n";
$string = <>; 

@sarray = split(" ",$string);

foreach $x (@sarray){
    if ($x >=0 && $x <= 25){
        $x = ($x+3)%26;
    } else {
        print "Entered incorrect message.\n"; 
        die;
    }
}
print "\nEncryption: \n";
print "@sarray\n";

foreach $x (@sarray){
    if ($x >=0 && $x <= 25){
        $x = ($x-3)%26;
    } else {
        print "Entered incorrect message.\n"; 
        die;
    }
}

print "Decryption: \n";
print "@sarray\n";

我想能够只是输入一些类似“你好”，然后它将加密和解密的消息。

Answer 1

你必须考虑大小写，数字，加上空格字符和标点符号。目前您只处理大写的alpha。您需要一个哈希将字符映射到数字，另一个哈希将字符映射到数字。

$inputChar = character to be encoded
$charset = " ABCDEFGHI...Zabcdef...z0123456789!@#$%^&*...";
$code = index($charset,$char);
# encode here as in your example using length($charset) instead of 26
$outputChar = substr($charset,$code,1);

将此逻辑应用于邮件中的所有字符以构建加密邮件。