Иснструкция для программирования с использованием модуля AstraCrypt1

Шаг 1.

Скопировать архив внешней компоненты на локальный диск, распаковать, файл с расширением DLL скопировать в каталог с установленной программой 1С Предприятие 8.0 / 7.7

Шаг 2.

Создать новую внешнюю обработку. Добавить кнопки и текст внешней обработки:

Перем ОбъектШифрования;

Процедура ШифроватьСтрокуНажатие(Элемент)

 ИмяКомпоненты="AstrCrypt1.dll";
   Попытка
    ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
    //Сообщить("Компонента загружена "+ИмяКомпоненты);
   Исключение
    Сообщить(ИмяКомпоненты);
    Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
    Возврат;
   КонецПопытки;

 Попытка
   ОбъектШифрования=Новый ("AddIn.NStringCrypt");
 Исключение
   Сообщить(ОписаниеОшибки());
   Возврат;
 КонецПопытки;

 ШифрованнаяСтрока=ОбъектШифрования.Шифровать(ИсходныйТекстДляШифрования,ПарольШифрования,"1");

КонецПроцедуры

Процедура ДешифроватьСтрокуНажатие(Элемент)

 ИмяКомпоненты="AstrCrypt1.dll";
 Попытка
   ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
   //Сообщить("Компонента загружена "+ИмяКомпоненты);
 Исключение
   Сообщить(ИмяКомпоненты);
   Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
 Возврат;
 КонецПопытки;

 Попытка
   ОбъектШифрования=Новый ("AddIn.NStringCrypt");
 Исключение
   Сообщить(ОписаниеОшибки());
   Возврат;
 КонецПопытки;

 ДешифрованнаяСтрока=ОбъектШифрования.Дешифровать(ШифрованнаяСтрока,ПарольДешифрования,"1");

КонецПроцедуры

Процедура ПоказатьПоследнийПарольНажатие(Элемент)
 Если ОбъектШифрования<>Неопределено Тогда
   Сообщить("Последний пароль:"+ОбъектШифрования.ПоследнийПароль());
 Иначе
   Сообщить("Шифрование не использовано");
 КонецЕсли;
КонецПроцедуры

Процедура ОчиститьПарольНажатие(Элемент)
 Если ОбъектШифрования<>Неопределено Тогда
   Сообщить("Удаление пароля:"+ОбъектШифрования.ОчиститьПароль());
 Иначе
   Сообщить("Шифрование не использовано");
 КонецЕсли;
КонецПроцедуры