德尔福5至2010

Question

我在 Delphi 5 和 2010 中使用了相同的函数（ OneWayEncrypt(edit1.Text) ）。
为什么结果不同？ （或者我怎样才能从 Delphi 2010 中得到相同的结果？）

uses Sysutils, Windows, Dialogs, classes;

function OneWayEncrypt(AStr: string): string;
PROCEDURE CalcCRC32 (p:  pointer; ByteCount:  DWORD; VAR CRCvalue:  DWORD);

implementation

const 
  table:  ARRAY[0..255] OF DWORD = 
  (
    //table consts are here
  );

PROCEDURE CalcCRC32(p: pointer; ByteCount: DWORD; VAR CRCvalue: DWORD);
VAR
  i: DWORD;
  q: ^Byte;
BEGIN
  q := p;
  FOR i := 0 TO ByteCount - 1 DO
  BEGIN
    CRCvalue := (CRCvalue SHR 8) XOR table[q^ XOR (CRCvalue AND $000000FF)];
    INC(q);
  END
END;

function OneWayEncrypt(AStr: string): string;
var
  dwCrc: DWORD;
  s: string;
begin
  dwCrc := $FFFFFFFF; 
  s := 'X' + AStr + '7F';
  CalcCRC32(Addr(s[1]), Length(s), dwCrc);
  result := IntToHex(dwCrc, 8);
end;

Answer 1

您是否知道，string 在 D2010 中指的是 Unicode 字符串，而在 版本中指的是 AnsiString。 D2009？这应该是你问题的根源。

所以你有两个选择：

• 你可以用 AnsiString 替换所有出现的 string 。这应该会给你与 D5 相同的结果，当然没有 Unicode 支持
• 你可以重构你的代码。我想指针——“黑客攻击”是这里的关键部分。但我必须承认，我没有花时间完全理解代码;-)
  （很可能你的代码无论如何都不能与 Unicode 一起使用，因为 255 个 consts = ISO8859？）

Answer 2

D2010（和 D2009）使用 Unicode 字符串（宽字符串），因此字符大小不同（字节）。尝试将所有字符串引用切换为 AnsiString。

Answer 3

最小端口，一行更改：

  // old code:
  CalcCRC32(Addr(s[1]), Length(s), dwCrc);

  // delphi 2010 code:
  CalcCRC32( PAnsiChar(AnsiString(s)), Length(s), dwCrc);

请注意，unicode“String”中的任何 unicode 内容都将丢失，但您之前使用的任何 ANSI（AZ、1、3、4，你知道）代码点，例如“Hello”，应该像以前一样工作。由于这是 CRC32 算法，因此它也可以轻松地对字符串的 UTF8 编码执行 CRC32。