如何在PHP中使用扩展的ASCII而不是Unicode

Question

我有一个在Visual Fox Pro中开发的应用程序，在该应用程序中，我具有要转移到PHP代码的加密方法，该代码如下：

FUNCTION Encrypt
 LPARAMETER text
 LOCAL KEY, TEXT, J, LETTER
 key = ')&H%$V1#@^+=?/><:MN*-'
 textText = SPACE(0)
 c = 1
 FOR j = 1 TO LEN(text)
      letter = MOD(ASC(SUBSTR(text, j, 1))+ASC(SUBSTR(key, c, 1)), 256)
      teXtoenc = teXtoenc+CHR(letter)
      c = c+1
      IF c>=LEN(password)
           c = 1
      ENDIF
 ENDFOR
 RETURN text
ENDFUNC

PHP中的转换为：

<?php
function Encripta($teXto){
    $clAve = ")&H%\$V1#@^+=?/><:MN*-";
    $teXtoenc = "";
    $c = 1;
    for($j = 0; $j < strlen($teXto); $j++){
        $leTra = (odr($teXto[$j]) + ord($clAve[$c])) % 256;
        $c ++;
        $teXtoenc .= chr($leTra);
        if($c >= strlen($clAve))
            $c = 1;
    }
    return $teXtoenc;
}
?>

但是，当在PHP中执行代码时，两种方法都不一样，研究我发现原因是因为PHP可与Unicode一起使用，而不是扩展的ASCII

Answer 1

这是一个错误...在VFP中，第一个字符具有索引1。以下代码为您提供了密码字符串的第一个字符：

SUBSTR(key,1,1)

PHP基于零。以下代码为您提供了密码字符串的第一个字符：

$clAve[0]

您是用1而不是0来初始化密码的索引（$ clave）。因此，您最终进行了编码（无法调用此加密）与VFP相比，PHP中的字节不同。这是PHP中的工作版本：

function Encripta($teXto){
    $clAve = ")&H%\$V1#@^+=?/><:MN*-";
    $teXtoenc = "";
    $c = 0;
    for($j = 0; $j < strlen($teXto); $j++){
        $leTra = (ord($teXto[$j]) + ord($clAve[$c])) % 256;
        $c ++;
        $teXtoenc .= chr($leTra);
        if($c >= strlen($clAve))
            $c = 0;
    }
    return $teXtoenc;
}
?>

您在其中写$ C = 1;我将其更改为$ C = 0;。其余代码没有改变。

您本可以自己发现的方式是通过在VFP中打印PHP和ASC（）调用的两个ord​​（）调用的值。 PHP的结果将是：

72 38 / 111 72 / 108 37 / 97 36 

在VFP中，您会

72 41 / 111 38 / 108 72 / 97 37

注意到第二个数字（来自密码的字符）如何移动到PHP中，因为您从字符串中的第二个字符开始。