Хеширование данных с ключом по алгоритму SHA-1 штатными средствами 1С

05.06.14

Расчет хеш суммы данных по алгоритму SHA-1 с ключом штатными средствами 1С.

Потребовалось реализовать обмен данными с веб-сервером, одним из теребованием авторизации было хеширование данных с секретным ключом.

Пример реализации расчета хеш суммы данных по алгоритму SHA-1 с ключом штатными средствами 1С.

//Функция ХэшированиеШтатныеСредства(СтрокаJSON, Base64JSON ,КлючХешированияДанных = "")

//
//Описание:
// Реализует инкрементальный расчет хеш-суммы по добавленным данным, использую хеш функцию SHA1.
//
//Параметры:
// СтрокаJSON - Строка. Строка в формате JSON.
//
// КлючХешированияДанных - Строка. Закодированные данные идентификатора в base64.
//
// Возвращаемое значение:
// Строка. Закодированная хеш сумма в base64.
//
Функция ХэшированиеШтатныеСредства(СтрокаJSON, КлючХешированияДанных = "")

Base64JSON = ЗакодироватьВBase64(СтрокаJSON);

ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.SHA1);
ХешированиеДанных.Добавить(base64Значение(КлючХешированияДанных));
ХешированиеДанных.Добавить(base64Значение(Base64JSON));

ТипДвоичныеДанные = ФабрикаXDTO.Тип("http://www.w3.org/2001/XMLSchema", "base64Binary");
ДвоичныеДанные = ФабрикаXDTO.Создать(ТипДвоичныеДанные,ХешированиеДанных.ХешСумма);

Возврат ДвоичныеДанные.ЛексическоеЗначение;

КонецФункции

Функция ЗакодироватьВBase64(СтрокаДанных) 

ИмяФайлаЗаписьТекст = ПолучитьИмяВременногоФайла(); 

ЗаписьТекста = Новый ЗаписьТекста(ИмяФайлаЗаписьТекст); 
ЗаписьТекста.ЗаписатьСтроку(СтрокаДанных); 
ЗаписьТекста.Закрыть(); 

ДвДанны = Новый ДвоичныеДанные(ИмяФайлаЗаписьТекст); 

Возврат base64Строка(ДвДанны); 

КонецФункции

SHA-1 ХешФункция ХешированиеДанных ХешФункция.SHA1 Хеширование данных с ключом SHA-1 в 1с

+17 –

См. также

Запрет глобального поиска в конфигурации

Защита ПО и шифрование Программист Платформа 1С v8.3 1С:Бухгалтерия 3.0 Абонемент ($m)

Представляю вам микрорасширение, которое запрещает глобальный поиск по вашей конфигурации.

1 стартмани

09.02.2023 2698 11 aximo 5

Как защитить pdf файл

Защита ПО и шифрование Программист Абонемент ($m)

Для установки защиты pdf документа, полученного в 1С, написано консольное приложение на c#., использующее одну зависимость pdfSharp.dll. В результате работы приложения ограничены операции над документом и записаны метаданные. С помощью аргументов командной строки можно управлять работой приложения.

2 стартмани

30.01.2023 2126 2 olevlasam 3

Значения полей структуры сертификата криптографии

Защита ПО и шифрование Программист Платформа 1С v8.3 Бесплатно (free)

Что означают поля структуры сертификата криптографии.

13.12.2022 2447 janit 3

Универсальный синтаксический анализатор ASN.1 для декодирования .key, .cer, .der, .p7m, .p7s, .crt, .pem

Защита ПО и шифрование Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Универсальный синтаксический анализатор ASN.1, который может декодировать любую допустимую структуру ASN.1 DER или BER, независимо от того, закодирована ли она в кодировке Base64 (распознаются необработанные base64, защита PEM и begin-base64) или в шестнадцатеричном кодировании.

1 стартмани

04.12.2022 3558 16 keyn5565` 0

Шифрование строки на основе мастер-пароля в 1С Предприятие 8.3.19

Защита ПО и шифрование Программист Платформа 1С v8.3 Абонемент ($m)

Демонстрация возможностей шифрования строки на основе мастер-пароля в 1С Предприятие 8.3.19. AES без zip файла, RSA, PKDF2. (c использованием библиотеки С# через com).

2 стартмани

31.08.2022 4440 9 vit59 2

Обфускатор байт-кода

Защита ПО и шифрование Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Абонемент ($m)

Обработка, позволяющая запутывать и шифровать байт-код, поставлять модули без исходных текстов и т.д. Работает только в файловом варианте с версии платформы 8.3.18 из-за асинхронных конструкций "Асинх" и "Ждать". Протестировано на платформе 8.3.25.1394.

10 стартмани

16.06.2022 12629 104 ZhokhovM 12

Как уберечь конструкторскую документацию от воровства конкурентами?

Защита ПО и шифрование Программист Платформа 1С v7.7 Платформа 1С v8.3 Абонемент ($m)

Как уберечь конструкторскую документацию от воровства конкурентами? Недавно столкнулся с этой проблемой. Заказчик серьёзно обеспокоен утечкой информации о конструкторских разработках в адрес конкурентов, за счет подкупа исполнителей, занимающихся производством по конструкторской документации, операторов технологического оборудования и обрабатывающих центров по изготовлению деталей и сборочных единиц.

2 стартмани

09.03.2022 6110 3 ge_ni 9

Защита конфигураций, обработок, расширений 1С онлайн, управление версиями

Защита ПО и шифрование Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Система построена на веб платформе, все управление происходит на сайте в личном кабинете пользователя.

1 стартмани

27.12.2021 5075 2 idm80 12

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. bulpi 217 28.05.14 12:29 Сейчас в теме

В слове "ключ" мягкий знак не нужен :)

2. ZaPaSoff 28.05.14 21:47 Сейчас в теме

что такое ЗакодироватьВBase64(СтрокаJSON)?

3. dour-dead 272 29.05.14 09:22 Сейчас в теме

(2) ZaPaSoff, В моем варианте это

<pre style="color: blue; overflow: auto;">
// кодируем данные в base64, возможно переделать на штатные средства
Функция ЗакодироватьВBase64(Данные)

СтрокаДанных = Строка(Данные);

WSH = Новый COMОбъект("MSScriptControl.ScriptControl");
WSH.language = "JScript";

лКодbase64encode = "
 |function encode(input) {
 | var output = '';
 | var chr1, chr2, chr3, enc1, enc2, enc3, enc4;
 | var i = 0;
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | input = _utf8_encode(input);
 |
 | while (i < input.length) {
 |
 | chr1 = input.charCodeAt(i++);
 | chr2 = input.charCodeAt(i++);
 | chr3 = input.charCodeAt(i++);
 |
 | enc1 = chr1 >> 2;
 | enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
 | enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
 | enc4 = chr3 & 63;
 |
 | if (isNaN(chr2)) {
 | enc3 = enc4 = 64;
 | } else if (isNaN(chr3)) {
 | enc4 = 64;
 | }
 |
 | output = output +
 | _keyStr.charAt(enc1) + _keyStr.charAt(enc2) +
 | _keyStr.charAt(enc3) + _keyStr.charAt(enc4);
 |
 | }
 |
 | return output;
 |}
 |
 |// public method for decoding
 |function decode(input) {
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | var output = '';
 | var chr1, chr2, chr3;
 | var enc1, enc2, enc3, enc4;
 | var i = 0;
 |
 | input = input.replace(/[^A-Za-z0-9\+\/\=]/g, '');
 |
 | while (i < input.length) {
 |
 | enc1 = _keyStr.indexOf(input.charAt(i++));
 | enc2 = _keyStr.indexOf(input.charAt(i++));
 | enc3 = _keyStr.indexOf(input.charAt(i++));
 | enc4 = _keyStr.indexOf(input.charAt(i++));
 |
 | chr1 = (enc1 << 2) | (enc2 >> 4);
 | chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
 | chr3 = ((enc3 & 3) << 6) | enc4;
 |
 | output = output + String.fromCharCode(chr1);
 |
 | if (enc3 != 64) {
 | output = output + String.fromCharCode(chr2);
 | }
 | if (enc4 != 64) {
 | output = output + String.fromCharCode(chr3);
 | }
 |
 | }
 |
 | output = _utf8_decode(output);
 |
 | return output;
 |
 |}
 |
 |// private method for UTF-8 encoding
 |function _utf8_encode (string) {
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | string = string.replace(/\r\n/g,'\n');
 | var utftext = '';
 |
 | for (var n = 0; n < string.length; n++) {
 |
 | var c = string.charCodeAt(n);
 |
 | if (c < 128) {
 | utftext += String.fromCharCode©;
 | }
 | else if((c > 127) && (c < 2048)) {
 | utftext += String.fromCharCode((c >> 6) | 192);
 | utftext += String.fromCharCode((c & 63) | 128);
 | }
 | else {
 | utftext += String.fromCharCode((c >> 12) | 224);
 | utftext += String.fromCharCode(((c >> 6) & 63) | 128);
 | utftext += String.fromCharCode((c & 63) | 128);
 | }
 |
 | }
 |
 | return utftext;
 |}
 |
 |// private method for UTF-8 decoding
 |function _utf8_decode(utftext) {
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | var string = '';
 | var i = 0;
 | var c = c1 = c2 = 0;
 |
 | while ( i < utftext.length ) {
 |
 | c = utftext.charCodeAt(i);
 |
 | if (c < 128) {
 | string += String.fromCharCode©;
 | i++;
 | }
 | else if((c > 191) && (c < 224)) {
 | c2 = utftext.charCodeAt(i+1);
 | string += String.fromCharCode(((c & 31) << 6) | (c2 & 63));
 | i += 2;
 | }
 | else {
 | c2 = utftext.charCodeAt(i+1);
 | c3 = utftext.charCodeAt(i+2);
 | string += String.fromCharCode(((c & 15) << 12) | ((c2 & 63) << 6) | (c3 & 63));
 | i += 3;
 | }
 |
 | }
 |
 | return string;
 |}";

лКодbase64encode = СтрЗаменить(лКодbase64encode,"'",Символ(34));
WSH.AddCode(лКодbase64encode);

Рез1 = WSH.Run("encode",СтрокаДанных);

Возврат Рез1;

КонецФункции

</pre>

4. dour-dead 272 29.05.14 09:23 Сейчас в теме

(2) ZaPaSoff,

<pre style="color: blue; overflow: auto;">
// кодируем данные в base64, возможно переделать на штатные средства
Функция ЗакодироватьВBase64(Данные)

СтрокаДанных = Строка(Данные);

WSH = Новый COMОбъект("MSScriptControl.ScriptControl");
WSH.language = "JScript";

лКодbase64encode = "
 |function encode(input) {
 | var output = '';
 | var chr1, chr2, chr3, enc1, enc2, enc3, enc4;
 | var i = 0;
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | input = _utf8_encode(input);
 |
 | while (i < input.length) {
 |
 | chr1 = input.charCodeAt(i++);
 | chr2 = input.charCodeAt(i++);
 | chr3 = input.charCodeAt(i++);
 |
 | enc1 = chr1 >> 2;
 | enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
 | enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
 | enc4 = chr3 & 63;
 |
 | if (isNaN(chr2)) {
 | enc3 = enc4 = 64;
 | } else if (isNaN(chr3)) {
 | enc4 = 64;
 | }
 |
 | output = output +
 | _keyStr.charAt(enc1) + _keyStr.charAt(enc2) +
 | _keyStr.charAt(enc3) + _keyStr.charAt(enc4);
 |
 | }
 |
 | return output;
 |}
 |
 |// public method for decoding
 |function decode(input) {
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | var output = '';
 | var chr1, chr2, chr3;
 | var enc1, enc2, enc3, enc4;
 | var i = 0;
 |
 | input = input.replace(/[^A-Za-z0-9\+\/\=]/g, '');
 |
 | while (i < input.length) {
 |
 | enc1 = _keyStr.indexOf(input.charAt(i++));
 | enc2 = _keyStr.indexOf(input.charAt(i++));
 | enc3 = _keyStr.indexOf(input.charAt(i++));
 | enc4 = _keyStr.indexOf(input.charAt(i++));
 |
 | chr1 = (enc1 << 2) | (enc2 >> 4);
 | chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
 | chr3 = ((enc3 & 3) << 6) | enc4;
 |
 | output = output + String.fromCharCode(chr1);
 |
 | if (enc3 != 64) {
 | output = output + String.fromCharCode(chr2);
 | }
 | if (enc4 != 64) {
 | output = output + String.fromCharCode(chr3);
 | }
 |
 | }
 |
 | output = _utf8_decode(output);
 |
 | return output;
 |
 |}
 |
 |// private method for UTF-8 encoding
 |function _utf8_encode (string) {
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | string = string.replace(/\r\n/g,'\n');
 | var utftext = '';
 |
 | for (var n = 0; n < string.length; n++) {
 |
 | var c = string.charCodeAt(n);
 |
 | if (c < 128) {
 | utftext += String.fromCharCode©;
 | }
 | else if((c > 127) && (c < 2048)) {
 | utftext += String.fromCharCode((c >> 6) | 192);
 | utftext += String.fromCharCode((c & 63) | 128);
 | }
 | else {
 | utftext += String.fromCharCode((c >> 12) | 224);
 | utftext += String.fromCharCode(((c >> 6) & 63) | 128);
 | utftext += String.fromCharCode((c & 63) | 128);
 | }
 |
 | }
 |
 | return utftext;
 |}
 |
 |// private method for UTF-8 decoding
 |function _utf8_decode(utftext) {
 | var _keyStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
 | var string = '';
 | var i = 0;
 | var c = c1 = c2 = 0;
 |
 | while ( i < utftext.length ) {
 |
 | c = utftext.charCodeAt(i);
 |
 | if (c < 128) {
 | string += String.fromCharCode©;
 | i++;
 | }
 | else if((c > 191) && (c < 224)) {
 | c2 = utftext.charCodeAt(i+1);
 | string += String.fromCharCode(((c & 31) << 6) | (c2 & 63));
 | i += 2;
 | }
 | else {
 | c2 = utftext.charCodeAt(i+1);
 | c3 = utftext.charCodeAt(i+2);
 | string += String.fromCharCode(((c & 15) << 12) | ((c2 & 63) << 6) | (c3 & 63));
 | i += 3;
 | }
 |
 | }
 |
 | return string;
 |}";

лКодbase64encode = СтрЗаменить(лКодbase64encode,"'",Символ(34));
WSH.AddCode(лКодbase64encode);

Рез1 = WSH.Run("encode",СтрокаДанных);

Возврат Рез1;

КонецФункции

</pre>

5. dour-dead 272 29.05.14 09:24 Сейчас в теме

что то битрикс съедает часть текста)

Прикрепленные файлы:

ЗакодироватьВBase64.txt

6. ZaPaSoff 29.05.14 09:38 Сейчас в теме

Очень интересный вариант. Но в идеале конечно лучше сделать штатными средствами.

7. dour-dead 272 29.05.14 14:31 Сейчас в теме

(6) ZaPaSoff, такое возможно и штатными средствами

8. dour-dead 272 29.05.14 14:33 Сейчас в теме

Вот как пример

Функция ПолучитьBase64ИзСтроки(СтрокаДанных)
	
	ИмяФайлаЗаписьТекст = ПолучитьИмяВременногоФайла();
	
	ЗаписьТекста = Новый ЗаписьТекста(ИмяФайлаЗаписьТекст);
	ЗаписьТекста.ЗаписатьСтроку(СтрокаДанных);
	ЗаписьТекста.Закрыть();
	
	ДвДанны = Новый ДвоичныеДанные(ИмяФайлаЗаписьТекст);
	
	Возврат base64Строка(ДвДанны);
	
КонецФункции

Показать

9. Negator 05.03.18 09:00 Сейчас в теме

Здравствуйте.

Пытаюсь закодировать Json следующего содержания:
{"inputString":"Тест"}
ключом:
123456

Должно получиться (и получается при кодировке различных онлайн кодировщиков):
Dm0Oj8p9SCPeYojkxrtos2mMn9s=
а вместо этого описанная выше функция вообще отказывается работать пока ключ тоже не пропустишь через "ЗакодироватьВBase64", а после этого выдает результат:
zV8nNDDkrNW69zP/sdYCcucUdHU=

Подскажите пожалуйста как получить верный результат.

10. dour-dead 272 06.03.18 12:27 Сейчас в теме

(9)Добрый день. Скорее всего необходимо использовать одинаковые входные данные, что бы получить одинаковый результат на выходе.

12. han_kdz 11 19.03.18 15:16 Сейчас в теме

(9) (11)
та же история
Если делать ХЕШ по 1 строке - все совпадает с онлайн
Если делать по строке + ключ, не совпадает
Если найдено решение, прошу сообщить
Второй день, как рыба об лед (((

13. Negator 28.03.18 09:06 Сейчас в теме

(12)Штатными средствами получить верный результат не получилось. С использованием внешних же компонентов удалось добиться верного результата следующим образом:

Функция ВычислитьНаСервереХешСтрокиПоАлгоритму_HMAC_SHA1(Строка, Ключ, ВернутьBase64 = Истина) Экспорт
    
    Текст = Новый COMОбъект("System.Text.UTF8Encoding");
    КриптоSHA1 = Новый COMОбъект("System.Security.Cryptography.HMACSHA1");
    КриптоSHA1.key = Текст.GetBytes_4(Ключ);
    Если ВернутьBase64 Тогда
        
        Хэш1 = КриптоSHA1.ComputeHash_2(Текст.GetBytes_4(Строка)).Выгрузить();
        СтрокаХэша = Преобразовать64(, Хэш1);
        
    Иначе    
        
        Хэш1 = КриптоSHA1.ComputeHash_2(Текст.GetBytes_4(Строка));
        оStr = Новый COMОбъект("System.Text.StringBuilder");
        Для Каждого стр Из Хэш1 Цикл
            оStr.AppendFormat("{0:x02}", стр);
        КонецЦикла;

        СтрокаХэша = оStr.ToString; //последовательность байтов
        
    КонецЕсли;
        
    Возврат СтрокаХэша;
    
КонецФункции

Функция Преобразовать64(Строка64 = неопределено, Массив64 = неопределено)
    Таб64 = Новый ТаблицаЗначений;
    Таб64.Колонки.Добавить("Код");
    Таб64.Колонки.Добавить("Символ");
    Нпп = 0;
    Для Код = КодСимвола("A") По КодСимвола("Z") Цикл
        стр = Таб64.Добавить();
        стр.Код = Нпп;
        стр.Символ = Символ(Код);
        Нпп = Нпп + 1;
    КонецЦикла;
    Для Код = КодСимвола("a") По КодСимвола("z") Цикл
        стр = Таб64.Добавить();
        стр.Код = Нпп;
        стр.Символ = Символ(Код);
        Нпп = Нпп + 1;
    КонецЦикла;
    стр = Таб64.Добавить();
    стр.Код = Нпп;
    стр.Символ = "0";
    Нпп = Нпп + 1;
    Для Код = 1 По 9 Цикл
        стр = Таб64.Добавить();
        стр.Код = Нпп;
        стр.Символ = Формат(Код,"ЧЦ=1; ЧДЦ=0");
        Нпп = Нпп + 1;
    КонецЦикла;
    стр = Таб64.Добавить();
    стр.Код = Нпп;
    стр.Символ = "+";
    Нпп = Нпп + 1;
    стр = Таб64.Добавить();
    стр.Код = Нпп;
    стр.Символ = "/";
    
    Если Массив64 = неопределено Тогда 
        Если Строка64 = неопределено Тогда
            Сообщить("неверный вызов функции");
            Возврат неопределено;
        КонецЕсли;
        //Уберем переносы строк
        Строка64 = СтрЗаменить(Строка64, Символ(10), "");
        Строка64 = СтрЗаменить(Строка64, Символ(13), "");
        
        //преобразовываем строку в массив
        Если СтрДлина(Строка64) % 4 <> 0 Тогда
            Сообщить("длина строки на входе должна быть кратна 4"); 
            Сообщить(СтрДлина(Строка64)); 
            Возврат неопределено;
        КонецЕсли;
        Кол4 = Цел(СтрДлина(Строка64) / 4);
        РазмерМ = Кол4 * 3;
        Если Прав(Строка64, 2) = "==" Тогда
            РазмерМ = РазмерМ - 2;
        ИначеЕсли Прав(Строка64, 1) = "=" Тогда
            РазмерМ = РазмерМ - 1;
        КонецЕсли;            
        Массив64 = Новый Массив(РазмерМ);
        Для А = 1 По Кол4 Цикл
            Число3 = 0;
            Для Б = 1 По 4 Цикл
                Буква1 = Сред(Строка64, (А-1)*4 + Б, 1);    
                Если Буква1 = "=" Тогда
                    Код4 = 0;
                Иначе
                    стрН = Таб64.Найти(Буква1, "Символ");
                    Если стрН = Неопределено Тогда
                        Сообщить("ошибка при поиске "+ КодСимвола(Буква1));    
                    Иначе 
                        Код4 = стрН.Код;
                    КонецЕсли;
                КонецЕсли;
                Число3 = Число3 * 64 + Код4;
            КонецЦикла;
            Ост = Число3 % 256;
            Индекс = (А-1)*3 + 2;
            Если Индекс <= РазмерМ - 1 Тогда
                Массив64[Индекс] = Ост;
            КонецЕсли;
            Число3 = (Число3 - Ост) / 256;
            Ост = Число3 % 256;
            Индекс = (А-1)*3 + 1;
            Если Индекс <= РазмерМ - 1 Тогда
                Массив64[Индекс] = Ост;
            КонецЕсли;
            Число3 = (Число3 - Ост) / 256;
            Ост = Число3 % 256;
            Массив64[(А-1)*3 + 0] = Ост;
        КонецЦикла;
        Возврат Массив64;
    Иначе //Преобразовываем массив в строку
        Строка64 = "";
        Кол3 = Цел(Массив64.Количество() / 3);
        Если Массив64.Количество() % 3 <> 0 Тогда
            Кол3 = Кол3 + 1;
        КонецЕсли;
        Для А = 1 По Кол3 Цикл
            Число3 = Массив64[(А-1)*3];    
            Если (А-1)*3+1 <= Массив64.ВГраница() Тогда
                Код3 = Массив64[(А-1)*3+1];
            Иначе
                Код3 = 0;
            КонецЕсли;
            Число3 = Число3*256 + Код3;
            Если (А-1)*3+2 <= Массив64.ВГраница() Тогда
                Код3 = Массив64[(А-1)*3+2];
            Иначе
                Код3 = 0;
            КонецЕсли;
            Число3 = Число3*256 + Код3;
            
            Ост4 = Число3 % 64;
            Число3 = (Число3 - Ост4) / 64;
            Ост3 = Число3 % 64;
            Число3 = (Число3 - Ост3) / 64;
            Ост2 = Число3 % 64;
            Число3 = (Число3 - Ост2) / 64;
            Ост1 = Число3 % 64;
            Число3 = (Число3 - Ост1) / 64;
            стрН = Таб64.Найти(Ост1, "Код");
            Если стрН = неопределено Тогда
                Сообщить("Ошибка при поиске");
            Иначе
                Строка64 = Строка64 + стрН.Символ;
            КонецЕсли;
            стрН = Таб64.Найти(Ост2, "Код");
            Если стрН = неопределено Тогда
                Сообщить("Ошибка при поиске");
            Иначе
                Строка64 = Строка64 + стрН.Символ;
            КонецЕсли;
            стрН = Таб64.Найти(Ост3, "Код");
            Если стрН = неопределено Тогда
                Сообщить("Ошибка при поиске");
            Иначе
                Строка64 = Строка64 + стрН.Символ;
            КонецЕсли;
            стрН = Таб64.Найти(Ост4, "Код");
            Если стрН = неопределено Тогда
                Сообщить("Ошибка при поиске");
            Иначе
                Строка64 = Строка64 + стрН.Символ;
            КонецЕсли;
        КонецЦикла;
        //Если количество символов не делится на 3, то на конце должны быть
        //знаки "="
        Если Массив64.Количество() % 3 = 1 Тогда
            Строка64 = Лев(Строка64, СтрДлина(Строка64)-2)+ "==";    
        ИначеЕсли Массив64.Количество() % 3 = 2 Тогда
            Строка64 = Лев(Строка64, СтрДлина(Строка64)-1)+ "=";    
        КонецЕсли;
        Возврат Строка64;
    КонецЕсли;
КонецФункции

Показать

11. Negator 06.03.18 15:10 Сейчас в теме

Входящие данные идентичны - проверено например тут: https://hash.online-convert.com/ru/sha1-generator

14. Negator 26.06.18 10:42 Сейчас в теме

После долгих мытарств решение было найдено (не мое, но работает):
Функция ЗашифроватьSHA1ШтатнымиСредствами(СтрокаТекст,СтрокаКлюч) Экспорт

  
    СтрокаНули = "00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000";
    СтрокаОПАД = "5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c5c";
    СтрокаИПАД = "36363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636";
    
    К = ПолучитьДвоичныеДанныеИзСтроки(СтрокаКлюч);
    
    К = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(К);
    Нули = ПолучитьБуферДвоичныхДанныхИзHexСтроки(СтрокаНули);      
    Нули.ЗаписатьПобитовоеИли(0,К);             
    Шаг1 = ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных(Нули);
    
    ИПАД = ПолучитьБуферДвоичныхДанныхИзHexСтроки(СтрокаИПАД);
    БуферШаг1 = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Шаг1);
    ИПАД.ЗаписатьПобитовоеИсключительноеИли(0,БуферШаг1);
    Шаг2 = ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных(ипад);
    
    БуферШаг2 = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Шаг2);
    БуферТекст = ПолучитьБуферДвоичныхДанныхИзСтроки(СтрокаТекст);
    БуферШаг3 = БуферШаг2.Соединить(БуферТекст);
    Шаг3 = ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных(БуферШаг3);
    
    ХД = Новый ХешированиеДанных(ХешФункция.SHA1);
    ХД.Добавить(Шаг3);
    Шаг4 = ХД.ХешСумма;
    
    ОПАД = ПолучитьБуферДвоичныхДанныхИзHexСтроки(СтрокаОПАД);
    БуферШаг1 = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Шаг1);
    ОПАД.ЗаписатьПобитовоеИсключительноеИли(0,БуферШаг1);
    Шаг5 = ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных(ОПАД);
    
    БуферШаг4 = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Шаг4);
    БуферШаг5 = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Шаг5);
    БуферШаг6 = БуферШаг5.Соединить(БуферШаг4);
    Шаг6 = ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных(БуферШаг6);
    
    ХД = Новый ХешированиеДанных(ХешФункция.SHA1);
    ХД.Добавить(Шаг6);
    Шаг7 = ХД.ХешСумма;
    
    Возврат НРег(ПолучитьHexСтрокуИзДвоичныхДанных(Шаг7));      
    
КонецФункции

Показать

Если нужна другая функция хеширования - меняем в двух строчках ХешФункция.SHA1 на нужную и все.

15. sir 18 03.06.19 13:52 Сейчас в теме

(14) спасибо, заработало на sha256

Причем работает более чем в 10 раз быстрее нежели через COMОбъект("System.Security.Cryptography.HMACSHA256")

16. cwant 5 26.04.21 21:06 Сейчас в теме

(14) Большое спасибо!

17. SkAt91 04.07.22 00:17 Сейчас в теме

Добрый день, может кому-то пригодится. Упрощенный вариант получения SHA1 из строки:

Функция ПолучитьSHA1Строки(Строка)

	ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.SHA1);
	ХешированиеДанных.Добавить(Строка);
	
	Возврат СтрЗаменить(ХешированиеДанных.ХешСумма, " ", "");
	
КонецФункции

18. MaCCapAkIII 25.09.23 15:11 Сейчас в теме

Возможно таким же образом получить хеш-сумму пути файла в локальном репозитории Git?

Оставьте свое сообщение

E-mail:

Автор:

(dour-dead)

Рейтинг: 272

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 284214

Создание 27.05.14 13:36

Обновление 05.06.14 14:59

Статистика:

Просмотры 37626

Загрузки 0

Рейтинг 17

Комментарии 18

Характеристики:

Код открыт Не указано

Рубрики Защита ПО и шифрование

Кому Системный администратор ,
Программист

Тип файла Нет файла

Платформа Платформа 1С v8.3

Конфигурация Конфигурации 1cv8

Операционная система Windows

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)