Perl Hex CRC-16 +多项式脚本

Question

我正在尝试使用一个十六进制输入创建一个perl脚本（我是perl的新手）。 （例如AAE3E9） perl脚本必须使用所有可能的键（4个十六进制字符）列出所有输出。 我知道这很多但是需要做。

示例：

Input = AAE3E9
Function solve(key) { Calculate 16-bit checksum of Hex input }
Output = solve(0000): 0
         Solve(0001): ...
         ...
         solve(AAE2): ...
and so on...

我该怎么做？我想的是：

My $input = 'FF12AE';
My $output = # array of solve($input);
# foreach $output print value \n
Solve(input) {
    # foreach possible polynomial (4 characters) {
        # $checksumarray .= Calculate checksum
    }
    Return $checksumarray;
}
(This is very, very roughly)

提前致谢！

编辑：注意：它也可以在PHP中