Unnamed

function DecryptPacket(var Packet: array of Byte; Length: Integer): Array of Byte;  //odszyfrowywanie
var
  i, j: integer;
  data: TLong2;
  Key: TTeaKey;
begin
  Key := GetKey;        //klucz //jeb to narazie
  i := 0;               // i jest ronw 0
  while i <= Length-8 do    // dopki i <= dlugosc - 8 wykonuj petle
  begin
    for j := 0 to 7 do     //dla j = 0 do7 rob(8powtorzen)
      TByte8(data)[j] := Packet[i+j+2];  // przypisane tablicy 8bajtow bez 2 pierwszych bo to dlugosc
    XTeaDecrypt(data, Key);
    for j := 0 to 7 do
      Packet[i+j+2] := TByte8(data)[j];
    inc(i,8);
  end;

  Result := @packet;
end;