Code:


function zastita(fu, fi, kript:String):Boolean;
var
  f, f2: File;
  size: Integer;
  buffer: PChar;
  i,j:Integer;
begin
{$I+}
  j := length(kript);
  AssignFile(f, fu);
  Reset(f, 1);
  Result:=false;
  try
    size := FileSize(f);
    GetMem(Buffer, Size);
    try
      BlockRead(f, buffer^, bize);
      for i := 0 to size-1 do
        begin
          byte (buffer[i]):=byte (buffer[i]) xor byte(kript[(i mod j)+1]);
        end;
      if fi=fu then
        begin
          Rewrite(f,1);
          BlockWrite(f, buffer^, size);
          Result:=true;
        end
      else
        begin
          AssignFile(f2, fi);
          Rewrite(f2,1);
          try
            BlockWrite(f2, buffer^, size,i);
            if i<>size then
              showmessage('neeeeeeeeeeeee. Ne mogu da upisem blok u fajl.');
            Result:=true;
          finally
            CloseFile(f2);
          end;
        end;
    finally
      FreeMem(buffer);
    end;
  finally
    CloseFile(f);
  end;
{$I+}
end;