Perl Crypt Eksblowfish加密字符串，必须在python中解密

Question

Perl脚本使用此模块加密字符串http://search.cpan.org/~zefram/Crypt-Eksblowfish-0.009/lib/Crypt/Eksblowfish.pm

我需要用python编写解密函数。我知道钥匙和盐。我试图使用py-bcrypt，但似乎两个等价函数

$ciphertext=$cipher-

没有实施。

我该怎么办？有没有python模块可以帮助我解密字符串？

Answer 1

更新：完整的答案是Perl代码：

my $cipher = Crypt::EksBlowFish->new($cost, $salt, $key);

相当于这个Python代码：

bf = Eksblowfish()
bf.expandkey(salt, key)
for i in xrange(cost << 1):
  bf.expandkey(0, key)
  bf.expandkey(0, salt)

见此回购例如代码：https://github.com/erantapaa/python-bcrypt-tests

原始答复：

部分答案。。。

我假设您是这样调用这个Perl代码的：

use Crypt::EksBlowfish;

my $cipher = Crypt::EksBlowFish->new($cost, $salt, $key);
$encoded = $cipher->encrypt("some plaintext");

新的方法由lib/Crypt/eksblowfish中的C函数setup_eksblowfish_ks（）实现。xs。这看起来与Python代码（link）中的expandKey方法相同

主要的区别是$cos参数，它在Python方法中不存在。在Perl代码中，$成本参数控制在设置了关键计划后执行此循环的次数：

    for(count = 1U << cost; count--; ) {
            for(j = 0; j != 2; j++) {
                    merge_key(j == 0 ? expanded_key : expanded_salt, ks);
                    munge_subkeys(ks);
            }
    }

Perl-

bf.cipher(xl, xr, bf.ENCRYPT)

其中，xl和xr是分别表示左32位和右32位的整数。

所以食谱应该是这样的：

1. 创建Python对象：bf=EksBlowfish（）
2. 初始化密钥计划：bf。expandkey（salt，key）
3. 使用成本参数（待定）进一步修改关键进度表
4. 用bf加密。密码（xl、xr、bf.加密）