Криптование на Шоке

[dip56245]

ну если я все правильно понял
1. пакет от клиента - протокол (не трогается)
2. пакет от сервера - криптИнит - инициализируем криптование
3. пакет от клиента - хз, так и не понял шо это
4. пакет от сервера - список чаров - сдесь идет:
а. декриптование пакета

 
      cr.DecryptGP(PacketC.DataC, Packet.Size);

б. манипуляции

      ii:=$13 or ((Packet.size - 7) div 295) shl 8;
      PInteger(@PacketB[$02])^:=PInteger(@PacketB[$02])^ xor ii xor
                                  PInteger(@(cr.GKeyS[0]))^;

в. повторная инициализация криптования

      cr.InitKey(PacketB[$02],false);

но когда смотрю пакеты через l2phx - то я вижу 4 пакет правильно, а у себя нет... 8(((( хоть тресни