---

// 1. Сами создаем входной файл прямо из 1С (без блокнота)
ДокСоздать = Новый ТекстовыйДокумент;
ДокСоздать.УстановитьТекст("Привет, Мир! 123");
ДокСоздать.Записать("d:\in.txt");

// 2. Читаем созданный файл
Документ = Новый ТекстовыйДокумент;
Документ.Прочитать("d:\in.txt");
Текст = Документ.ПолучитьТекст();

// 3. Шифруем (сдвиг кода символа на +5)
ШифрованныйТекст = "";
ДлинаТекста = СтрДлина(Текст);

Для А = 1 По ДлинаТекста Цикл
	СимволТекста = Сред(Текст, А, 1);
	Код = КодСимвола(СимволТекста);
	ШифрованныйКод = Код + 5;
	ШифрованныйТекст = ШифрованныйТекст + Символ(ШифрованныйКод);
КонецЦикла;

// 4. Записываем результат шифрования
ДокументВыход = Новый ТекстовыйДокумент;
ДокументВыход.УстановитьТекст(ШифрованныйТекст);
ДокументВыход.Записать("d:\out.txt");

ОткрытьЗначение("Зашифровано в d:\out.txt:" + Символы.ПС + ШифрованныйТекст);
```[span_2](start_span)[span_2](end_span)

Нажми **`F5`** — программа создаст файл на диске `D:\`, зашифрует его и покажет окно с результатом[span_3](start_span)[span_3](end_span)[span_4](start_span)[span_4](end_span).

---

### Упражнение №11 (Дешифрование)

Когда заскриншотишь 10-е, для 11-го просто замени код в `Модуле приложения` на этот[span_5](start_span)[span_5](end_span)[span_6](start_span)[span_6](end_span):

```bsl
// Читаем зашифрованный файл с диска D:
Документ = Новый ТекстовыйДокумент;
Документ.Прочитать("d:\out.txt");
Текст = Документ.ПолучитьТекст();

// Дешифруем (сдвиг кода символа на -5)
ДешифрованныйТекст = "";
ДлинаТекста = СтрДлина(Текст);

Для А = 1 По ДлинаТекста Цикл
	СимволТекста = Сред(Текст, А, 1);
	Код = КодСимвола(СимволТекста);
	ДешифрованныйКод = Код - 5;
	ДешифрованныйТекст = ДешифрованныйТекст + Символ(ДешифрованныйКод);
КонецЦикла;

// Записываем расшифрованный файл
ДокументВыход = Новый ТекстовыйДокумент;
ДокументВыход.УстановитьТекст(ДешифрованныйТекст);
ДокументВыход.Записать("d:\res.txt");

ОткрытьЗначение("Дешифровано в d:\res.txt:" + Символы.ПС + "Результат: " + ДешифрованныйТекст);
```[span_7](start_span)[span_7](end_span)

*(Если на компьютере физически нет диска `D:`, замени в путях `"d:\"` на путь к рабочему столу, например: `"C:\Users\Public\in.txt"` — папка «Общие» на диске C тоже всегда разрешена для записи).*