Question

我正在尝试在PHP和Delphi之间进行加密和解密。

我的PHP代码是;

<?php
error_reporting(E_ALL);
$key = "5y';syhl0ngl4st1ngdfvt5tt";

function decrypt1($string, $key){

    $y = 1;
    for ($x = 1;$i < strlen($string); $i++) {
        $a = (ord($string[$x]) and 0x0f) ^ (ord($key[$y]) and 0x0f);
        $string[$x] = chr((ord($string[$x]) and 0xf0) + $a);

        $y++;
        if ($y > strlen($key)) $y = 1;
    }
    return $string;
}

echo decrypt1(base64_decode("cWx0fw=="),$key);
?>

我的德尔福是;

function Decrypt1(Str : String; Key: string): AnsiString;
var
  X, Y : Integer;
  A : Byte;
begin
  Y := 1;
  for X := 1 to Length(Str) do
  begin
    A := (ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);
    Str[X] := char((ord(Str[X]) and $f0) + A);

    Inc(Y);
    If Y > length(Key) then Y := 1;
  end;
  Result := Str;
end;

function Encrypt(Str : String; Key: string): String;
begin
result:= Decrypt1(str,key);
result:= EncodeBase64(result);
end;

加密/解密不起作用。当试图在PHP中解码来自Delphi的编码值时，我得到了一堆垃圾。

我觉得它可能与字符编码有关吗？

Answer 1

这里有一些问题：

PHP中的字符串索引从零开始，而不是像您的代码所假设的那样从一开始。
Delphi字符串（在现代Delphi中）是UTF-16编码的。您的代码假定一些未指定的8位编码。
加密/解密对二进制数据而不是文本进行操作，但您无法识别。

您应该像这样加密：

以特定的，明确定义的编码对文本进行编码。例如，UTF-8。这给出了一个字节数组。在Delphi中TBytes。
加密此字节数组以产生另一个字节数组。
使用base64对该字节数组进行编码以获取文本表示。

解密只是颠倒了这些步骤。要吸收的关键是加密/解密操作二进制数据而不是文本。

Answer 2

我将在这里猜测并说你正在使用Delphi版本，其中字符串是UnicodeString。 PHP通常使用一些ANSI编码which can be configured。处理此问题的最佳方法是将您的Delphi代码保存为UTF-8并从UTF-8加载，并确保您的PHP从UTF-8加载。全面标准化一种编码，然后不会发生这样的问题。

德尔福＆lt;＆gt; PHP XOR加密

2 个答案: