Общая логика шифрования вынесена из функций OnEncryptClick (текст) и DoEncryptFile (файлы) в единую централизованную функцию CreateEncryptedPayloadV16.
Это устраняет дублирование кода, упрощает дальнейшую поддержку и повышает надежность криптографического ядра за счет внесения изменений только в одном месте.

После успешного шифрования файла программа теперь предлагает уничтожить исходный (незашифрованный) файл.
При выборе "Да" содержимое исходного файла сначала перезаписывается случайными данными для предотвращения его восстановления, а затем сам файл удаляется.

Скачать можно в облаке
disk.yandex.ru/d/pSxwq7mMhKsOwg