PHP:PEAR:使用Crypt_CBC加密,使用Perl的CBC解密

我必须完成的任务之一需要我从PHP端加密一些东西,然后用Perl解密它.

我发现的PEAR模块似乎适合我的需求是Crypt_CBC.但是,必须有一些我做错或者不理解的事情,因为到目前为止我无法获得正确的结果.

下面的代码摘录专门用于测试目的,因为我想在将它应用到我的实际项目代码之前尝试全部.

首先,这是我的PHP代码,我使用它加密传递给$ text参数的任何内容(即cryptTest.php？text = hello)

require_once('Crypt/CBC.php');  

$key = "8326554161EB30EFBC6BF34CC3C832E7CF8135C1999603D4022C031FAEE";  
$cipher = new Crypt_CBC($key, 'BLOWFISH');

$encrypted = $cipher->encrypt($text);  

if (PEAR::isError($encrypted)) {  
    echo $encrypted->getMessage();  
} else {  
    echo "ENCRYPTED STRING: " . $encrypted;  
}  

从那时起,我复制从此脚本回显的任何内容(在我的浏览器输出上)并将其粘贴到我的PERL脚本的$ encrypted变量中:

use Crypt::CBC; 
$encrypted = "RandomIVá´bp3Ó¯làK”Á(Û";  
my $key = "8326554161EB30EFBC6BF34CC3C832E7CF8135C1999603D4022C031FAEE";  
my $vector = "\0\0\0\0\0\0\0\0";  

my $cipher = Crypt::CBC->new(  
                       {'key'             =>$key,  
                        'cipher'          => 'Blowfish',  
                        'iv'              => $vector,  
                        'prepend_iv'      => 0  
                       });  

my $plaintext = $cipher->decrypt($encrypted);

print $plaintext;

我一直在尝试很多东西,比如没有在Perl方面指定IV等等,但它一直给我错误.这个表单是唯一一个我可以获得任何输出的表单.

使用原始$ text ="hello"执行上述操作的结果是:Pñšîî7àÐŽZÊ&Rhello

我发现我的原始内容被正确解密,但不是在我想要的部分之前没有添加一堆垃圾字符.

任何人都可以指出我做错了什么以及如何解决它？

谢谢一堆.

我终于找到了解决问题的方法.

感谢你们两位,你们的答案确实有所帮助.我确实按照你的建议在base64中编码/解码,因此避免了任何纯文本编码问题.

为了使解密工作,我必须做的是将'header'=>'randomiv'添加到我的Perl脚本的密码创建中,因为PEAR的Crypt_CBC类在加密时使用Random IV.

我在Crypt :: CBC的文档中找到了特定的参数.

此外,直视CBC.php的解密功能,我发现了什么,以确定IV做:取头的("RandomIV")的长度,并把它作为一个偏移量SUBSTR加密字符串到块大小的值(默认为8).我还指定了keysize(默认为56)以获得良好的衡量标准.

为了完整性和参考,以下是我更新的测试脚本:

PHP(cryptTest.php):

require_once('Crypt/CBC.php');

$key = "8326554161EB30EFBC6BF34CC3C832E7CF8135C1999603D4022C031FAEE";  
$cipher = new Crypt_CBC($key, 'BLOWFISH');

$encrypted = $cipher->encrypt($text);

if (PEAR::isError($encrypted)) {  
    echo $encrypted->getMessage();  
} else {  
    echo "ENCRYPTED STRING: " . base64_encode($encrypted);  
}

PERL(decryptTest.pl)

use Crypt::CBC;  
use MIME::Base64;

my $encrypted = decode_base64("UmFuZG9tSVbrNE3ony00FlUbiprLn0fu");  
my $key = "8326554161EB30EFBC6BF34CC3C832E7CF8135C1999603D4022C031FAEE";  
my $header_spec = "randomiv";  
my $blocksize = 8;  
my $keysize = 56;  

my $iv_offset = length $header_spec;  
my $iv = substr $encrypted, $iv_offset, $blocksize;

my $cipher = Crypt::CBC->new(  
                {'key'        =>$key,  
                'cipher'        => 'Blowfish',  
                'iv'            => $iv,  
                'header'        => $header_spec,  
                'prepend_iv'    => $iv_offset,  
                'blocksize'  => $blocksize,  
                'keysize'      => $keysize   
                })  

my $plaintext = $cipher->decrypt($encrypted);

print $plaintext;

你去吧 再次,非常感谢!

马蒂厄