2 PanAm
я так понимаю ты это имееш виду?
delphi Код:
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/