Расшифровка базы ответов теста формата .qst с последующей перезаписью (Delphi)

uses
  Windows;
 
type
Tqst =packed record
      signature: word;
      unknown:   word;
      reccount:  word;
      comment:   array[0..255] of AnsiChar;
      data:      array[0..1024] of packed record
                                   Question: array[0..6 shl 8-1] of byte;
                                   answers:  array[0..4,0..255] of byte;
                                   end;
      end;
 
const
  key: array[0..$386] of AnsiChar='Примечателен тот факт, что участники сообщества Упячки постоянно'+
                                  ' создают карикатуры с участием одних и тех же личностей. Это: Он'+
                                  'отоле (Анатолий Вассерман) — главный «бог» и «вдохновитель» «вое'+
                                  'нов»[7]; Чаке (Чак Норрис) — ещё одно «божество» Упячки, часто у'+
                                  'поминается вместе с Онотоле.[7] Крабе — Владимир Путин. По утвер'+
                                  'ждению Lenta.ru, прозвище «крабе» родилось из его заявления на б'+
                                  'ольшой пресс-конференции в феврале 2008 года: «Все эти восемь ле'+
                                  'т я пахал, как раб на галерах».[8] На самом деле Путина стали на'+
                                  'зывать на Упячке словом «крабе» задолго до этого[9]. Шмеле — Дми'+
                                  'трий Медведев.[8] В день его избрания президентом России в блоге'+
                                  ' было принято решение привязать к нему образ, как это было с пре'+
                                  'дшественником. В первой версии образ был УЛИТОЧКА, только затем '+
                                  'ШМЕЛЬ. Параллельно писалась фраза «Я НЕ УЛИТОЧКА, Я ШМЕЛЬ, ВОТ В'+
                                  ' ЧЁМ СОЛЬ». Свидетель — безымянный свидетель из Фрязино на свадь'+
                                  'бе[10].';
 
var
  f,fm:  THANDLE;
  i,k,l: cardinal;
  view:  ^Tqst;
begin
  f :=CreateFile('default.qst',GENERIC_READ+GENERIC_WRITE,0,0,OPEN_EXISTING,0,0);
  fm:=CreatefileMapping(f,0,PAGE_READWRITE,0,0,0);
  pointer(view):=MapViewOfFile(fm,FILE_MAP_READ+FILE_MAP_WRITE,0,0,0);
  for i:=view^.reccount xor pword(@key[4])^-1 downto 0 do
  begin
      for k:=255 downto 1 do
      begin
        l:=(i*sizeof(view^.data[0])+sizeof(view^.data[0].question)+k);
        view^.data[i].answers[0,k]:=view^.data[i].answers[0,k-1] xor byte(key[(l-1) mod length(key)]) xor byte(key[l mod length(key)]);
      end;
      view^.data[i].answers[0,0]:=ord('+') xor byte(key[(l-1) mod length(key)]);
  end;
  UnmapViewOfFile(view);
  CloseHandle(fm);
  CloseHandle(f);
end.