[KOTay]

так шифрование от сервера Все ОК нормальные пакеты получаю (спасибо PanAm)
procedure TXorCoding.DecryptGP(var Data; const Size: Word);
var
k:integer;
pck:array[0..$4FFF] of Byte absolute Data;
begin
if (pck[0] = 0) and not CryptDone then begin
CryptoInit := true;
InitKey(pck[2]);
exit;
end;
for k:=size-1 downto 1 do
pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];
if size<>0 then pck[0]:=pck[0] xor GKeyR[0];
Inc(PLongWord(@GKeyR[keyLen-7])^,size);
end;
Но в обратку что не как не могу сделать. (бред просто пакеты получается)

В чем я ошибаюсь?

procedure TXorCoding.EncryptGP(var Data; const Size: Word);
var
i:integer;
pck:array[0..$4FFF] of Byte absolute Data;
begin
if CryptoInit and not CryptDone then begin
CryptoInit := false;
CryptDone := true;
exit;
end;
if size<>0 then pck[0]:=pck[0] xor GKeyS[0];
for i:=1 to size-1 do
pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1];
Inc(PLongWord(@GKeyS[keyLen-7])^,size);
end;