16 byte XOR krypteret filer

hejsa

jeg sidder og roder med en algo, der kan dekryptere GTA san andreas (PC) radiostationerne. jeg har fundet ud af at det er XOR krypteret med en 16 byte sekvens (0xA1C43AEA, 0xF314A89A, 0x23D7B048, 0xF1FFE89D)

var
  Form1: TForm1;

  InF, OutF: file of Byte;
  a:array[0..4096] of char;
  BRead: ^Integer;
  FileLen: LongInt;
  SisendFail, ValjundFail: string;

procedure TForm1.btnKonverdiClick(Sender: TObject);
var
  i: Cardinal;
begin
  AssignFile(InF, SisendFail);
  AssignFile(OutF, ValjundFail);
      Reset(InF);
      ReWrite(OutF);
  FileLen:=FileSize(InF);
  lblStaatus.Caption:='Converting...';
  Application.ProcessMessages;
  with Progressbar1 do
  begin
      Min  := 0;
      Max  := FileLen;
      while filelen > 0 do
      begin
        New(BRead);
            BlockRead(InF, a[0], SizeOf(a), BRead^);
        FileLen:= FileLen - BRead^;
        for i:=0 to Length(a) do
        begin
            a[i]:= chr(ord(a[i]) xor ($22));
        end;
        BlockWrite(OutF, a[0], BRead^);
            Position:=Position+BRead^;
            lblStaatus.Caption:='Completed...';
        Dispose(BRead);
      end;
  end;
  ProgressBar1.Position:=0;
  CloseFile(OutF);
  CloseFile(InF);
end;

jeg fandt denne algo til vice city ADF filer, men jeg har på fornemmelsen at det er samme fremgangsmåde.

hvordan laver man så denne algo om, så den dekryptere San Andreas radiostationerne?

/FunteX! :-)