德尔福加密算法

Question

我使用此代码加密文件：

procedure TForm9.EnDecryptFile(pathin, pathout: string; mem:TMemo; Chave: Word);
    var
       InMS, OutMS: TMemoryStream;
       cnt: Integer;
       C,A,B: byte;
       s:string;
     begin
       mem.Clear;
       InMS := TMemoryStream.Create;
       OutMS := TMemoryStream.Create;
       try
         InMS.LoadFromFile(pathin) ;
         InMS.Position := 0;
         for cnt := 0 to InMS.Size - 1 do
           begin
             InMS.Read(C, 1) ;
             A:=c;
             C := (C xor not (ord(chave shr cnt))) ;
             mem.Lines.Add(IntToStr(A)+^I+IntToStr(C));
             OutMS.Write(C, 1) ;
           end;
     OutMS.SaveToFile(pathout) ;
   finally
     InMS.Free;
     OutMS.Free;
   end;
 end;

当我在表单中添加 meme 控件并在加密之前/之后检查大约 2000 个字节时，我根本不了解算法。请帮助我理解这个标题：

• Xor 与非运算的组合。

请使用示例来展示算法操作。谢谢。

Answer 1

请帮助我理解xor 和not 操作的组合。

我从您的更新中得知您了解各个运算符的含义，但不确定表达式的含义

C xor not (ord(chave shr cnt))

被解释。

这个表达式的含义由operator precedence决定。从该链接可以看出，not 的优先级高于xor。所以在

C := (C xor not (ord(chave shr cnt)));

评估not，然后评估xor。这个赋值相当于：

A := ord(chave shr cnt);
B := not A;
C := C xor B;

请注意，在问题中的代码中，

C := (C xor not (ord(chave shr cnt)));

是虚假的，可以删除。确实，这行代码可以写成：

C := C xor not ord(chave shr cnt);

尽管在这种情况下明确优先级并写下可以说更清楚：

C := C xor (not ord(chave shr cnt));