type_2_message_header = packed record
  protocol: array [1..8] of Char;
  _type: LongWord;
  host_len1: Word;
  host_len2: Word;
  host_off: LongWord;
  flags: LongWord;
  nonce: array [1..8] of Char;
  some_len1: Word;
  some_len2: Word;
  some_off: LongWord;
  some1_len1: Word;
  some1_len2: Word;
  some1_off: LongWord;
  end;