将Python PyCrypto与Perl Crypt:：CBC结合使用

Question

一方面，我有一个文本加密/解密与Perl的Crypt::CBC

my $key = 'key to the gates'; 
my $cipher = Crypt::CBC->new(
    -key    => $key,
    -cipher => 'Blowfish',
    -salt   => '12341234'  
);

另一方面，我有Python的PyCrypto，我需要它来解码来自Perl的数据，但也发送Perl密码可以在给定加密的情况下读取的文本。

我拥有来自Perl程序的密钥，并对Perl发送到Python系统的\u hex:ed密码短语进行加密。

但是Python似乎绝对希望有IV来完成它的工作

cipher = Blowfish.new( self.key, Blowfish.MODE_CBC, self.iv )
        return hexlify(cipher.encrypt(raw))

然而，Crypt:：CBCdocumnetation似乎表明IV已经存在

“盐”——将密码短语与一个8字节的随机值结合起来，从提供的密码短语中生成分组密码密钥和IV。盐将被附加到数据流的开头，允许解密重新生成密钥和IV，并给出正确的密码。

有没有办法通过PyCrypto从密钥/密码短语中提取IV？还是必须以某种方式单独发送IV？

这可能是一个幼稚的问题，但我不是每天都这么做。

我知道我可以从Perl端获取IV，但如果可能的话，我真的想在Python端提取它。

Answer 1

Crypt:：CBC声称与OpenSSL兼容。这意味着它执行一个特定于OpenSSL的BytesToKey基于密码的密钥派生函数（PBKDF）。在此推导过程中，还计算了IV。因此，您为Crypt:：CBC提供的密钥实际上被视为密码。

您必须查找EVP_BytesToKey的实现，并将其集成到您的程序中。您可以从GitHub开始使用以下代码：

def bytes_to_key(data, salt="12345678"):
    # Simplified version of M2Crypto.m2.bytes_to_key(). Based on:
    # https://github.com/ajmirsky/M2Crypto/blob/master/M2Crypto/EVP.py#L105
    # http://stackoverflow.com/questions/8008253/c-sharp-version-of-openssl-evp-bytestokey-method
    assert len(salt) == 8, len(salt)
    data += salt
    key = md5(data).digest()
    key += md5(key + data).digest()
    return key

然后取第一个字节作为键，接下来的8个字节作为IV。但是请注意以下关于Crypt： CBC的声明：

如果未指定-keysize，则Crypt::CBC 将使用56字节（448位）的最大长度Blowfish密钥大小。

因此，您可能还需要一些key=md5（密钥数据）。digest（）调用，因为md5输出只有128位。