codeunit.pas

来自「通常情况下, 用Delphi开发的程序, dfm是作为资源嵌入可执行文件的, 这」· PAS 代码 · 共 27 行

unit CodeUnit;

interface

procedure FastCode(var Str: string);

implementation

procedure FastCode(var Str: string);
const
  XorKey: array[0..7] of Byte = ($D7, $EE, $B0, $AE, $BA, $D0, $D7, $D3);
var                               
  I, J: Integer;
  P: PByte;
begin
  P := @Str[1];
  J := 0;
  for I := 1 to Length(Str) do
  begin
    P^ := P^ xor XorKey[J];
    Inc(P);
    J := (J + 1) mod 8;
  end;
end;

end.