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

[ASSA]

2 PanAm
я так понимаю ты это имееш виду?

procedure DecryptGP(var pck: array of Byte; const Size: Word);
var
  k:integer;
  i,t:byte;
begin
  i:=0;
  for k:=0 to size-1 do
    begin
     t:=pck[k];
     pck[k]:=t xor GKeyR[k and 7] xor i;
     i:=t;
    end;
  Inc(PLongWord(@GKeyR[0])^,size);
end;

procedure EncryptGP(var pck: array of Byte; const Size: Word);
var
  i:integer;
begin
  pck[0]:=pck[0] xor GKeyS[0];
  for i:=1 to size-1 do begin
    pck[i]:=pck[i] xor GKeyS[i and 7] xor pck[i-1];
  end;
  Inc(PLongWord(@GKeyS[0])^,size);
end;

вот полезное файло...http://fursoffers.narod.ru/Packets.htm советую=))))
это взялось от сюда - форум флудерский но есть полезные весчи
http://allcheats.ru/t21043/