xor, как говорилось одним из старых рыцарей королевства Дельфи, нельзя, но если очень хочется, то можно, например вот так:
Код:
procedure TXorCodingOut.EncryptGP(var Data; const Size: Word);
var
i:integer;
pck:array[0..$FFFF] of Byte absolute Data;
NewSize:word;
begin
case pck[0] of
$C0:
begin
if Size = 28 then
begin
NewSize:=39;//Size;
Sign(@pck);
copymemory(@Size, @NewSize, 2); //NewSize=39
end;
end;
end;
....
и погнали ксорить