需要有关“打包”的帮助对于 perl 和 php

Question

我的任务是将某人用 perl 编写的 crypt 函数转换为 php 代码。除了这个之外，一切都正常：

Perl：

$wert = Encode::encode( "utf8", $wert );
$len=length $wert;
$pad = ($len % 16)?"0".chr(16 - ($len % 16)):"10";
$fuell = pack( "H*", $pad x (16 - $len % 16));

PHP：

$wert = utf8_encode($wert);
$len = mb_strlen($wert);
$pad = ( $len%16 ) ? '0'.chr(16 - ($len%16)) : '10';
$fuell = pack("H*", str_repeat($pad, (16 - $len % 16)));

php 版本对于某些字符串工作正常。但是当我有类似 '2010-01-01T00:00:00.000' 的内容时，perl 版本可以正常工作，没有任何错误，并且 php 版本会打印“PHP 警告：pack()：类型 H：非法十六进制数字”。

如果有人能发现 php 版本中的错误，我将非常感激。

编辑：

这是我要转换为 php 的完整函数。它是由一家不再为我们工作的公司的程序员制作的，所以我无法真正说出其初衷是什么。

sub crypt
{
    my $self = shift;
    my ($wert,$pw)= @_;
    $wert = Encode::encode( "utf8", $wert );
    $pw = Encode::encode( "utf8", $pw );
    $len=length $wert;
    $pad = ($len % 16)?"0".chr(16 - ($len % 16)):"10";
    $fuell = pack( "H*", $pad  x (16 - $len % 16));
    $wert=$wert.$fuell;
    $lenpw=length $pw;
    $fuell = ($lenpw % 16)? pack ("H*", "00" x (16 - $lenpw % 16)):"";
    $pw=$pw.$fuell;
    $cipher = new Crypt::Rijndael $pw, Crypt::Rijndael::MODE_CBC;
    $cipher->set_iv($pw);
    $crypted = encode_base64($cipher->encrypt($wert),"");

    return $crypted;
}

Answer 1

看来错误实际上存在于两个版本中。格式代码 H 查找十六进制数字，正如 PHP 错误中所述，它没有找到（合法的）数字。罪魁祸首似乎是这个表达式：

chr(16 - ($len % 16))

Perl 版本没有抱怨，因为 Perl 版本的 pack 会转换字符，无论它是否是十六进制数字（这可能不是您想要的）。 文档更详细地介绍了实际发生的情况。

为了防止出现错误，请尝试以下操作：

sprintf('%x', 16 - ($len % 16))

注意：虽然这应该可以解决您遇到的错误，但我不知道这是否是可接受的解决方案，因为我不知道原始的确切意图Perl 代码的作者。

Answer 2

看来 pack() 的 Perl 实现能够容忍输入字符串中的无效十六进制数字，而 PHP 版本则绝对不能。

考虑一下：

print pack("H*", "ZZ");

这会在 Perl 中打印 3 （出于某种原因），但会导致您在 PHP 中提到的错误。

我不确定 Perl 到底用这些“数字”做什么，但它绝对和 PHP 不一样。

编辑：看起来，Perl 实际上会将十六进制数字域向前“滚动”到字符集中。也就是说：

0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ  #-- Give this to Perl...
0123456789ABCDEF0123456789ABCDEF0123  #-- .. and it's treated as this hex digit

因此，“ZZ”与“33”相同，这就是它打印 3 的原因。请注意，根据文档，此行为未明确定义。因此，Perl 中的原始实现可以被认为是有缺陷的，因为它依赖于未明确定义的行为。