[xkor]

Дешифровка:
for k:=size-1 downto 1 do pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];
pck[0]:=pck[0] xor GKeyR[0];
Inc(PCardinal(@GKeyR[keyLen-7])^,size);

Шифровка:
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(PCardinal(@GKeyS[keyLen-7])^,size);

ЗЫ keyLen для интерлюда и дальше равен 15