Шифрование данных в текстовом файле

uses
  Windows;
 
procedure Crypt(filename: string);
var
  f,fm:   THANDLE;
  i,size: cardinal;
  view:   array of byte;
begin
  f :=CreateFile(@FileName[1],GENERIC_READ+GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0); //Открываем файл на чтение/запись
  fm:=CreatefileMapping(f,nil,PAGE_READWRITE,0,0,nil);                             //Проецируем файл в память
  pointer(view):=MapViewOfFile(fm,FILE_MAP_READ+FILE_MAP_WRITE,0,0,0);             //Получаем указатель на проекцию файла
  size:=GetFileSize(f,nil);                                                        //Размер файла
 
  RandSeed:=45;                       //Ключ шифрования
 
  for i:=size-1 downto 0 do           //Шифрация
    view[i]:=view[i] xor random(256);
 
  UnmapViewOfFile(pointer(view));     //Освобождаем ресурсы
  CloseHandle(fm);
  CloseHandle(f);
  pointer(view):=nil;                 //Указатель нужно обнулить, иначе Delphi попытается это сделать за нас
end;
 
begin
  Crypt('D:\1.txt'); //Зашифровываем
  readln;
  Crypt('D:\1.txt'); //Расшифровываем
end.