Delphi ORD函数未返回预期值

Question

我有 2 个函数，一个用于加密，另一个用于解密字符串，它们使用 Ord() 函数。除了使用扩展的 Ascii 代码外，它工作得很好。

如果我使用字母 ê（Ascii 代码 136），Ord() 函数会返回 234，而我预期它会返回 136。

如果我对加密字符串运行解密，我得到的结果与原始字符串不同，ê 变成了 j。

有人可以帮忙解决这个问题吗？

procedure TForm1.btnEncryptClick(Sender: TObject);
var
  sTempString : string;
  iIndex,
  i: integer;
begin
  sTempString  := edtOriginalString.Text ;
  for iIndex := 1 to length(sTempString) do
  begin
    i := ord(sTempString[iIndex]);
    i := i shl 1;
    sTempString[iIndex] := Char(i);
  end;
  edtEncryptedString.Text := sTempString;
end;

procedure TForm1.btnDecryptClick(Sender: TObject);
var
  sTempString : string;
  iIndex,
  i : integer;
begin
  sTempString  := edtEncryptedString.Text ;
  for iIndex := 1 to length(sTempString) do
  begin
    i := ord(sTempString[iIndex]);
    i := i shr 1;
    sTempString[iIndex] := char(i);
  end;
  edtDecryptedString.Text := sTempString;
end;

Answer 1

如果我使用字母 ê（Ascii 代码 136）

不，这实际上是错误的。 ASCII 只有 128 个字符（0 到 127）。

但是，ê 是 Unicode 字符 U+00EA：带圆形的拉丁小写字母 E。

而 EA（十六进制）确实是 234（十进制）。

---

Delphi 字符和字符串在 Delphi 2009 之前为 8 位，在 Delphi 2009 及更高版本中为 Unicode。

所以在你的情况下，Delphi 6，一个字符是 8 位的。

因此，您的左移将使您丢失最高有效位 (MSB)，并且您不可能希望将其取回。

确实，如果我们以 ê (234) 为例，我们有

1110 1010 (ê)

将位向左移动一步，我们得到

1101 0100

将位向右移动一步，我们得到

0110 1010 (j).

因此，我们丢失了信息。

---

但是，您的方法将适用于 ASCII 字符 (不适用于 127 以上的任何字符，因为它们都有一个作为 MSB（因此即使 Ord 在您的情况下确实返回了 136，它也不起作用）。

---

因此，如果您想支持 127 以上的字符，则需要放弃或重新设计“加密”方法。例如，您可以旋转位而不是移位它们。或者你可以反转它们（使用not）。

如果你选择旋转而不是移位，你会得到这个：

1110 1010 (ê)
rotate left:
1101 0101
rotate back (right):
1110 1010 (ê)

---

虽然它与您的实际问题无关，但您可能仍然想知道为什么 Ord 没有像您预期的那样返回 136。

好吧，在 Unicode 之前（主要是在 1990 年代和更早的时期），只是有许多不同的（不兼容的）字符编码。通常，8 位编码/代码页（字符 0..255）包括 ASCII 字符（0..127），然后对剩余的字符（128..255）做出自己的选择。由于 ê 不是 ASCII 字符，这意味着这些“扩展 ASCII”代码页中只有一些可能包含 ê，而在包含 ê 的代码页中，实际数值可能会有很大差异。

换句话说，您的来源声称 ê 是 136，而您的 Delphi 程序使用不同的 8 位代码页。

在Unicode的现代世界中，这种问题已经不存在了。