РазXORивание большого файла

[Человек_Борща]

Доброго времени суток!

Имеется некий файл, который просто "зашифрован" XOR'ом.
Нужно его расшифровать. Файл не шибко большой - 105 Мб.

Вот должно работать:

var
  FS, ffs: TFileStream;
  i, ilen: NativeInt;
  Buff: PChar;

begin
  FS := TFileStream.Create('F:\file.dat', fmOpenReadWrite);
  try
    FS.Seek(0, soFromBeginning);
    ilen := FS.Size;
    GetMem(Buff, FS.Size);
    FS.Read(Buff^, ilen);
    try
      for i := 0 to FS.Size do
      begin
        Buff[i] := chr(Ord(Buff[i]) xor 45);
        if Buff[i] = #0 then
          Buff[i] := ' ';
      end;
      ffs := TFileStream.Create('F:\file_encoded.dat',
        fmCreate or fmOpenReadWrite);
      try
        ffs.Write(Buff^, FS.Size);
      finally
        FreeAndNil(ffs);
      end;
    finally
      FreeMem(Buff);
    end;
  finally
    FreeAndNil(FS);
  end;
end;

В цикле, внезапно вылетает ошибка записи в память. В Чем причина?

[BDA]

 for i := 0 to FS.Size - 1 do

Наверное, это.

[Человек_Борща]

Нет, не помогло.
Цикл, самое интересное, всегда обрывается на одно и том же числе: 53018160

[Аватар]

Char сикока байт занимает?

 Buff: PByte;
...
      for i := 0 to FS.Size-1 do
      begin
        Buff[i] := Buff[i] xor 45;
        if Buff[i] = 0 then
          Buff[i] := 32;
      end;
...

[iworm2009]

В продолжение поста выше))
Выдержка из справки

TStream is the base class type for stream objects that can read from or write to various kinds of storage media, such as disk files, dynamic memory, and so on.

Use specialized stream objects to read from, write to, or copy information stored in a particular medium. Each descendant of TStream implements methods for transferring information to and from a particular storage medium, such as a disk file, dynamic memory, and so on. In addition to methods for reading, writing, and copying bytes to and from the stream, stream objects permit applications to seek to an arbitrary position in the stream. Properties of TStream provide information about the stream, such as its size and the current position in the stream.

если у вас PChar = ^Char, а Char = WideChar, то все справедливо.

[3D Hunter]

Везде замените строковые типы данных на однобайтовый ansichar. И настораживает родной для х86 тип nativeint... каков у него диапазон?

[Человек_Борща]

А что можно придумать если файл размером 2-3 гб?

Оперативы у меня свободной, есть 5 Гб. Но если файл больше 1 гб, то вылетает с Out Of Memory. Стэк увеличивал до 100 мб, толку 0.

[BDA]

Читать в буфер, ксорить буфер, писать буфер.
Повторять, пока файл не кончится.
(Буфер фиксированного размера)

[Человек_Борща]

Нашел способ проще:
Memory Mapped Files(Чтение) + TFileStream(запись)

[Аватар]

Нашел способ проще

Чем он проще?