codeunit.pas

通常情况下, 用Delphi开发的程序, dfm是作为资源嵌入可执行文件的, 这就或多或少地带来了一些安全方面的问题. 比如, 通过分析资源, 就能大致了解Form上用了哪些控件 甚至, 通过修改

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.