AstraCrypt1 - внешний модуль шифрования данных Описание функций модуля

Описание функций внешней компоненты AstraCrypt

Название функции:Шифровать(ИсходныйТекстДляШифрования,ПарольШифрования,"1");

Описание:
Сжать и зашифровать текстовую строку с использованием пароля. Алгоритм шифрования RC6 длина ключа 2048 бит. Алгоритм расчета ключа SHA-512.

Параметры:
ИсходныйТекстДляШифрования - исходный текст для шифрования.
ПарольШифрования - пароль шифрования.
"1" - дополнительный параметр (для будущего использования).
Рекомендация:
Для использования полных возможностей компоненты и защиты данных рекомендуемая длина пароля (в символах): при использовании 64 латинских символов и цифр - 1024, при использовании 64 русских букв и 64 латинских символов и цифр - 512.
Предупреждение:
Если вы забыли или потеряли пароль, автор модуля и никто другой вам не смогут помочь. Для восстановления пароля и зашифрованных данных могут понадобиться многие сто(тысяче)летия беспрерывных вычислений, а может быть и больше. Короче говоря вариантов перебора ключа шифрования 2²⁰⁴⁸ намного больше чем: число атомов в галактике 2²²³, число атомов во вселенной 2²⁶⁵ или объема вселенной 2²⁸⁰см³. Если учитывать, что полное время жизни нашей вселенной 2⁶¹ секунд, возможно расшифровать данные и восстановить потеряный пароль в этой жизни вам не удастся.

Возвращаемое значение:
Шифрованная строка тип "Строка". При повторном шифровании всегда возвращается различное значение зашифрованной строки для усложения криптоанализа.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
ОбъектШифрования=Новый ("AddIn.NStringCrypt");
ШифрованнаяСтрока=ОбъектШифрования.Шифровать(ИсходныйТекстДляШифрования,ПарольШифрования,"1");

Если переменная ИсходныйТекстДляШифрования="Тестовая строка" и переменная ПарольШифрования="h5t8t4fd6d99fh"
тогда переменная ШифрованнаяСтрока может содержать текст:

Lh5EMcsI7vq4mJ0a5bgQ6Vsigh_5Z3NJnyaFzV8Dn43StLJH

или такой

QauyaAaN18pGt74dgkBo5oO-xDZtMoYX-obGyhFtef3If6g1

или такой

kT4J0hj59ysUE8QmcOoN1JGF49sgKvBC1nIuNlnFWvBVSOBP

и т.д. При расшифровке этих строк с ПаролемШифрования получаем исходный текст.

Название функции:Дешифровать(ШифрованнаяСтрока,ПарольДешифрования,"1");

Описание:
Расшифровать зашифрованную текстовую строку с использованием пароля. Алгоритм шифрования RC6 длина ключа 2048 бит. Алгоритм расчета ключа SHA-512.

Параметры:
ШифрованнаяСтрока - зашифрованная строка.
ПарольДешифрования - пароль дешифрования.
"1" - дополнительный параметр (для будущего использования).

Возвращаемое значение:
Дешифрованния строка тип "Строка".

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
ОбъектШифрования=Новый ("AddIn.NStringCrypt");
ДешифрованнаяСтрока=ОбъектШифрования.Дешифровать(ШифрованнаяСтрока,ПарольДешифрования,"1");

Название функции:ПоследнийПароль();

Описание:
Возвращает последний использованный пароль при шифровании строки. В целях обеспения безопасности, пароль сохраняется только в одном сеансе работы компоненты.

Параметры:
Нет.

Возвращаемое значение:
Последний пароль типа "Строка".

Пример использования:

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

Название функции:ОчиститьПароль();

Описание:
Очистить последний использованный пароль. Необходимо очищать пароль, когда он не используется. Это позволит вам повысить надежность защиты данных.

Параметры:
Нет.

Возвращаемое значение:
Строка "OK" тип "Строка".

Пример использования:

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

Название функции:ШифроватьФайлRC6(ИмяИсходногоФайла,ИмяШифрованногоФайла,ПарольШифрования);

Описание:
Зашифровать файл с использованием пароля. Алгоритм шифрования RC6 длина ключа 2048 бит. Алгоритм расчета ключа SHA-512. Для улучшения защиты от криптоанализа применяется шифрование со случайным числом SALT и случайным числом IV. Поэтому при каждом шифровании одного и того-же файла с однаковым паролем, содержамое зашифрованного файла будет различным.

Параметры:
ИмяИсходногоФайла - имя исходного файла.
ИмяШифрованногоФайла - имя шифрованного файла.
ПарольШифрования - пароль шифрования.
Рекомендация:
Для использования полных возможностей компоненты и защиты данных рекомендуемая длина пароля (в символах): при использовании 64 латинских символов и цифр - 1024, при использовании 64 русских букв и 64 латинских символов и цифр - 512.
Предупреждение:
Если вы забыли или потеряли пароль, автор модуля и никто другой вам не смогут помочь. Для восстановления пароля и зашифрованных данных могут понадобиться многие сто(тысяче)летия беспрерывных вычислений, а может быть и больше. Короче говоря вариантов перебора ключа шифрования 2²⁰⁴⁸ намного больше чем: число атомов в галактике 2²²³, число атомов во вселенной 2²⁶⁵ или объема вселенной 2²⁸⁰см³. Если учитывать, что полное время жизни нашей вселенной 2⁶¹ секунд, возможно расшифровать данные и восстановить потеряный пароль в этой жизни вам не удастся.

Возвращаемое значение:
Число ноль тип "Число" в случае успешного шифрования. В случае ошибки возвращается число больше нуля. Описание ошибки возвращается функцией: ПоследняяОшибкаШифрования().

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Если Объект.ШифроватьФайлRC6(ИмяИсходногоФайла,ИмяШифрованногоФайла,ПарольШифрования)=0 Тогда
Сообщить("Файл успешно зашифрован");
Иначе
Сообщить("Ошибка! "+Объект.ПоследняяОшибкаШифрования());
КонецЕсли;

Название функции:ДешифроватьФайлRC6(ИмяШифрованногоФайла,ИмяДешифрованногоФайла,ПарольШифрования);

Описание:
Дешифровать файл с использованием пароля. Алгоритм шифрования RC6 длина ключа 2048 бит. Алгоритм расчета ключа SHA-512.

Параметры:
ИмяШифрованногоФайла - имя зашифрованного файла.
ИмяДешифрованногоФайла - имя дешифрованного файла.
ПарольШифрования - пароль для дешифрования.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Если Объект.ДешифроватьФайлRC6(ИмяШифрованногоФайла,ИмяДешифрованногоФайла,ПарольШифрования)=0 Тогда
Сообщить("Файл успешно дешифрован");
Иначе
Сообщить("Ошибка! "+Объект.ПоследняяОшибкаШифрования());
КонецЕсли;

Название функции:ПоследняяОшибкаШифрования();

Описание:
Возвращает последнюю ошибку при шифровании/дешифровании файлов. Если нет ошибки возвращает пустую строку.

Параметры:
Нет.

Возвращаемое значение:
Если нет ошибки возвращает пустую строку. Иначе возвращает значения типа "Строка". Возможны следующие варианты:

Файл с таким именем уже существует:
Ошибка открытия файла для чтения:
Ошибка создания файла:
Файл не является зашифрованным пакетом:
Введен неверный пароль для расшифровки файла
Файл не существует:
Файл не является зашифрованным пакетом по размеру

Пример использования:

Название функции:ДобавитьНули(СтрокаЧисло,ДлинаСтроки);

Описание:
Добавляем в начало строки нули до нужной длины.

Параметры:
СтрокаЧисло - строки с числом.
ДлинаСтроки - длина строки.

Возвращаемое значение:
Строка с длиной равной ДлинаСтроки в начале строки добавлены нули.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");
Сообщить("Добавить нули в начале:"+Объект.ДобавитьНули("13",15));
// Добавить в начало строки нули до 15 символов;

Название функции:ПросмотрКаталога(ЛокальныйКаталог);

Описание:
Вывести список файлов и каталогов из локального каталога.

Параметры:
ЛокальныйКаталог - имя локального каталога (Например: "С:\").

Возвращаемое значение:
Текстовая строка с названиями файлов и каталогов.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Сообщить("Просмотр каталога С:/"+Символы.ПС+Объект.ПросмотрКаталога("C:/"));

Название функции:ХешSHA512(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешSHA384(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешSHA256(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешSHA1(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешHaval(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешMD5(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешMD4(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешRipeMD128(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешRipeMD160(ИсходныйТекст,СтрокаРазделитель);
Название функции:ХешTiger(ИсходныйТекст,СтрокаРазделитель);

Описание:
Расчитать Хеш-функции из строки. Возвращается HEX-строка, каждый байт разделен символом разделителем.

Параметры:
ИсходныйТекст - исходный текст.
СтрокаРазделитель - строка разделитель для каждого байта (Например: "-" или пустая строка).

Возвращаемое значение:
HEX-Строка каждый байт разделен строкой разделителем. Длина строки зависит от алгоритма.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Сообщить("Хеш SHA512: "+Объект.ХешSHA512(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш SHA384: "+Объект.ХешSHA384(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш SHA256: "+Объект.ХешSHA256(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш SHA1: "+Объект.ХешSHA1(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш Haval: "+Объект.ХешHaval(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш MD5: "+Объект.ХешMD5(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш MD4: "+Объект.ХешMD4(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш RipeMD128: "+Объект.ХешRipeMD128(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш RipeMD160: "+Объект.ХешRipeMD160(ИсходныйТекстДляШифрования,"-"));
Сообщить("Хеш Tiger: "+Объект.ХешTiger(ИсходныйТекстДляШифрования,"-"));

Если исходный текст содержит строку "Тестовая строка". В окне служебных сообщений появляется текст:

Хеш SHA512: E1-86-43-8F-B2-3B-F9-0E-E3-78-29-82-D9-5B-0D-71-8E-F7-3B-B3-4A-51-3E-94-AE-4B-2F-E7-BD-4F-DD-8C-09-37-29-CF-E3-B6-79-FD-01-04-96-97-11-A0-B8-63-41-F0-67-11-DE-D1-87-1D-C1-AF-97-8C-85-54-6A-F9
Хеш SHA384: A6-95-DA-C9-40-8F-59-6F-12-B4-04-F6-44-1D-D0-3D-89-38-B4-93-61-EF-65-DD-AF-FA-11-ED-C0-21-3A-DD-71-78-26-A1-56-5C-C0-08-03-99-AA-7E-0E-4F-3C-C5
Хеш SHA256: 0A-05-ED-A6-7C-9F-1E-73-C3-34-B9-C4-00-FD-41-F3-85-D5-EA-EF-9C-9A-CF-68-7D-33-B7-CC-16-1C-67-F1
Хеш SHA1: C8-EF-8D-12-01-63-AC-25-87-CE-48-E9-F8-06-87-F1-C5-A3-9A-86
Хеш Haval: CE-16-01-72-E2-CB-75-95-C3-DE-F9-97-FD-B0-98-9E-5D-B0-2D-67-15-E2-EE-01-42-8B-B1-F2-6A-5B-19-42
Хеш MD5: 02-9C-E4-32-F4-75-C8-7B-AB-3E-B0-01-15-48-FB-50
Хеш MD4: DB-C8-C9-DB-F7-6D-10-F3-09-EC-8F-CA-CF-DB-EB-8B
Хеш RipeMD128: 99-65-42-70-6E-FC-93-54-AE-2E-7E-C4-8C-70-F9-64
Хеш RipeMD160: 6E-18-35-D2-D8-86-82-0A-BC-20-57-EA-78-D0-6D-D6-7E-03-2E-A5
Хеш Tiger: D7-AE-33-80-BF-35-8E-FB-49-D9-C8-40-BE-8F-0A-07-61-03-0F-FC-67-BE-D4-C0

Название функции:ХешSHA512Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешSHA384Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешSHA256Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешSHA1Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешHavalФайл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешMD5Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешMD4Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешRipeMD128Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешRipeMD160Файл(ИмяФайла,СтрокаРазделитель);
Название функции:ХешTigerФайл(ИмяФайла,СтрокаРазделитель);

Описание:
Расчитать Хеш-функции из локального файла. Возвращается HEX-строка, каждый байт разделен символом разделителем.

Параметры:
ИмяФайла - имя файла.
СтрокаРазделитель - строка разделитель для каждого байта (Например: "-" или пустая строка).

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Сообщить("Хеш SHA512: "+Объект.ХешSHA512Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш SHA384: "+Объект.ХешSHA384Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш SHA256: "+Объект.ХешSHA256Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш SHA1: "+Объект.ХешSHA1Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш Haval: "+Объект.ХешHavalФайл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш MD5: "+Объект.ХешMD5Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш MD4: "+Объект.ХешMD4Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш RipeMD128: "+Объект.ХешRipeMD128Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш RipeMD160: "+Объект.ХешRipeMD160Файл(ИмяИсходногоФайла,"-"));
Сообщить("Хеш Tiger: "+Объект.ХешTigerФайл(ИмяИсходногоФайла,"-"));

В окне служебных сообщений появляется текст:

Название функции:ТестироватьФайлRC6(ИмяШифрованногоФайла);

Описание:
Тестировать, является ли файл шифрованным пакетом RC6.

Параметры:
ИмяШифрованногоФайла - имя зашифрованного файла.

Возвращаемое значение:
Ноль в случае если тестирование прошло успешно. В случае ошибки возвращается число больше нуля. Описание ошибки возвращается функцией: ПоследняяОшибкаШифрования().

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Если Объект.ТестироватьФайлRC6(ИмяШифрованногоФайла)=0 Тогда
Сообщить("Тестирование прошло успешно");
Иначе
Сообщить("Ошибка! "+Объект.ПоследняяОшибкаШифрования());
КонецЕсли;

Название функции:ПолучитьРазмерФайлаRC6(ИмяШифрованногоФайла);

Описание:
Получить размер исходного файла, зашифрованного алгоритмом RC6.

Параметры:
ИмяШифрованногоФайла - имя зашифрованного файла.

Возвращаемое значение:
Если значение больше нуля возвращается размер файла. В случае ошибки возвращается ноль. Описание ошибки возвращается функцией: ПоследняяОшибкаШифрования().

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Результат1=Объект.ПолучитьРазмерФайлаRC6(ИмяШифрованногоФайла);
Если Результат1>0 Тогда
Сообщить("Размер зашифрованного файла:"+Результат1+" байт");
Иначе
Сообщить("Ошибка! "+Объект.ПоследняяОшибкаШифрования());
КонецЕсли;

Название функции:ПолучитьИмяФайлаRC6(ИмяШифрованногоФайла);

Описание:
Получить имя исходного файла, зашифрованного алгоритмом RC6.

Параметры:
ИмяШифрованногоФайла - имя зашифрованного файла.

Возвращаемое значение:
Возвращает строку с названием исходного файла. В случае ошибки возвращается пустая строка. Описание ошибки возвращается функцией: ПоследняяОшибкаШифрования().

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Результат1=Объект.ПолучитьИмяФайлаRC6(ИмяШифрованногоФайла);
Если Результат1<>"" Тогда
Сообщить("Имя зашифрованного файла:"+Результат1);
Иначе
Сообщить("Ошибка! "+Объект.ПоследняяОшибкаШифрования());
КонецЕсли;

Название функции:УдалитьНеЛатинские(ИсходнаяСтрока,СтрокаЗаменитель);

Описание:
Удаляет или заменяет все буквы нелатинского алфавита.

Параметры:
ИсходнаяСтрока - строка может содержать латинские и нелатинские символы.
СтрокаЗаменитель - строка замещающая буквы нелатинского алфавита (Например: "-" или пустая строка).

Возвращаемое значение:
Возвращает строку в которой удалены или заменены буквы нелатинского алфавита..

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Сообщить("Удалить не латинские: "+Объект.УдалитьНеЛатинские("Привет absde Sabaka","-"));

Выводит результат в окне служебных сообщений:

Удалить не латинские: -------absde-Sabaka

Название функции:РусскийВЛатинский(ИсходнаяСтрока);

Описание:
Перевести буквы русского алфавита в буквы латинского алфавита.

Параметры:
ИсходнаяСтрока - исходная строка.

Возвращаемое значение:
Возвращает строку, в которой все буквы русского алфавита заменены аналогичными буквами латинского алфавита.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

Сообщить("Русский в латинский: "+Объект.РусскийВЛатинский("Это тестовая строка! Привет как дела!"));

Выводит результат в окне служебных сообщений:

Русский в латинский: Eto testovaya stroka! Privet kak dela!

Название функции:СделатьИмя(КоличествоСимволов);
Название функции:СделатьИмя2(КоличествоСимволов);

Описание:
Пробует создать человеческое имя из случайных символов латинского алфавита, СделатьИмя2 - создает имя с буквы верхнего регистра.

Параметры:
КоличествоСимволов - количество символов в имени.

Возвращаемое значение:
Строка человеческого имени в латинском алфавите длина строки равна переменной КоличествоСимволов.

Пример использования:

ИмяКомпоненты="AstrCrypt1.dll";
ЗагрузитьВнешнююКомпоненту(ИмяКомпоненты);
Объект=Новый ("AddIn.NStringCrypt");

// Пробуем сделать себе имя
Сообщить("Сделать имя: "+Объект.СделатьИмя(10)+" "+Объект.СделатьИмя(10));
// Пробуем сделать себе имя с большой буквы
Сообщить("Сделать имя2: "+Объект.СделатьИмя2(10)+" "+Объект.СделатьИмя2(10));

Выводит результат в окне служебных сообщений:

Сделать имя: bekhogakhyfy wudechokacy
Сделать имя2: Zyhukekhewy Nojukhocecu

Также результат может быть таким

Сделать имя: quchopucesu zypejyquxo
Сделать имя2: Cezycizadi Pynichykhyca