为什么 C# 无法解密 Perl 的 Crypt::Rijndael 的输出？

Question

文件已被 Perl 加密。 初始解密尝试失败，我现在试图确定是否有任何 hoojoo 发生（需要一些其他设置）

Duff Perl 代码：

use strict;

use Crypt::Rijndael;

my $key ='...';

my $rcipher = Crypt::Rijndael->new ($key, Crypt::Rijndael::MODE_CBC());

undef $/;
my $encrypted = <>;

print $rcipher->decrypt($encrypted);

C# 解密实现

        CryptoStream decryptor = null;
        StreamReader srDecrypt = null;
        FileStream fsIn = null;
        RijndaelManaged rijndaelCipher = null;
        string fileContents;
        try
        {
            rijndaelCipher = new RijndaelManaged();
            rijndaelCipher.Mode = CipherMode.CBC;
            rijndaelCipher.Key = Encoding.UTF8.GetBytes(Password);
            rijndaelCipher.IV = Encoding.UTF8.GetBytes(Password);
            rijndaelCipher.Padding = PaddingMode.None;

            fsIn = new FileStream(FilePath, FileMode.Open);
            decryptor = new CryptoStream(fsIn, rijndaelCipher.CreateDecryptor(), CryptoStreamMode.Read);
            srDecrypt = new StreamReader(decryptor);
            fileContents = srDecrypt.ReadToEnd();
        }
        finally
        {
            if (decryptor != null)
                decryptor.Close();
            if (fsIn != null)
                fsIn.Close();
            if (srDecrypt != null)
                srDecrypt.Close();

            if (rijndaelCipher != null)
                rijndaelCipher.Clear();
        }

Perl 如何实现代码应阅读

binmode OUTF;

my $key ="..."; # Your secret key

my $rcipher = Crypt::Rijndael->new ($key, Crypt::Rijndael::MODE_CBC());

$rcipher->set_iv($key); # You may wish this IV to be something different from the Secret Key

my $plaintext = "Please encrypt me"; # Your string to be encrypted

if(length($plaintext) % 16 != 0 ) {

$plaintext .= ' ' x (16 - (length($plaintext) % 16)); } 

my $rencrypted = $rcipher->encrypt($plaintext);

Answer 1

我是 Perl 的 Crypt::Rijndael 的维护者。 我没有编写原始代码，但当它对其他人来说失败时，我会尝试使其工作。

我收到了另一份类似的报告 RT #27632。 模块中的问题是一个有符号整型，它本应是一个无符号整型。 最新版本的 Crypt::Rijndael 1.07 应该已修复。 您使用的是哪个版本？

此外，其中一些问题与平台相关。 如果您查看发行版中的 rijndael.h 代码，您会发现我必须跳过才能为各种平台获得正确的字体大小。 我想你在 Windows 上（但不是 Cygwin）。 您使用的是哪个版本的 Windows？

正如 RT 票证中所述，第一步是使用 Crypt::Rijndael 和 C# 实现。 您应该得到相同的输出。 如果你没有得到相同的密文，那就有问题了。

让我知道这对您来说效果如何，以便我可以将其作为 Crypt::Rijndael bug，如果我需要的话。

Answer 2

我假设你在 Windows 上运行它。 您正在处理二进制数据，因此需要考虑到这一点。 在 Perl 中，您必须使用 binmode。 我认为你需要在 C# 中使用 BinaryReader （但我不是 C# 程序员，所以我不确定）。

Answer 3

你们有相同的 IV 尺寸吗？ 我问这个问题是因为我在 Perl 到 C# 加密转换方面遇到了类似的问题，其中 Perl 中的 IV 大小不同。

您的 KeySize 是 256（位），但 Perl 代码中的密钥是 3 个字节，12 位，如果我记得 Perl 会用空格填充它。

Answer 4

您是否尝试过加密/解密简单的字符串？
这样您就可以验证加密中是否存在某些内容（而不是读取文件）。