0. andrewks 1254 17.10.12 22:30 Сейчас в теме

Подписываем и шифруем алкогольные декларации (опт и розница) прямо в 1С 7.7

Подготавливаем (подписываем и шифруем) алкогольные декларации (все формы) прямо в 1С 7.7 (минуя программы-"посредники" типа КриптЭК-Д, КриптоАРМ и т.п.)!

Перейти к публикации

Комментарии
Избранное Подписка Сортировка: Древо
1. Dolly_EV 266 18.10.12 08:01 Сейчас в теме
23. M_W_W 8 26.01.18 12:34 Сейчас в теме
В общем, благодаря коллегам с Мисты, разобрались с проблемой. На самом деле, все там подписывается и шифруется правильно, но, выходные файлы получаются с BOM(Byte order mark), первые два символа с кодами 254 и 255. Если просматривать файлы например FAR-ом, то первые символы файла выглядят как "юя". Может быть ФСРАРовский сайт и проглотит такие файлы, не знаю, не пробовал. Но, тот-же КриптоАРМ вываливается с ошибкой "Неверный формат". Экспериментировать с подачей таких файлов в РАР возможности уже не было, пока разбирался, декларации уже все сдали. Поэтому, на будущее, решил разобраться, как записывать файлы без BOM.
Тут два варианта:
1. Написал универсальную функцию, которая вырезает эти символы из готовых файлов, код на VBS такой:

|Set objFSO = CreateObject(""Scripting.FileSystemObject"")
|Set writer = CreateObject(""Adodb.Stream"")
|Set reader = CreateObject(""Adodb.Stream"")
|reader.Open
|reader.LoadFromFile OutFileName
|writer.Mode=3
|writer.Type=1
|writer.Open
|reader.position=2
|reader.copyto writer,-1
|writer.SaveToFile OutFileName,2
|Set writer = Nothing
|Set reader = Nothing
Показать


Добавляется в конец функций подписи и шифрования. Работает нормально, КриптоАРМ открывает, расшифровывает(если конечно свой сертификат в получатели добавить), снимает подпись и сохраняет файл в исходном виде.

2. Вариант 2, более простой и красивый, предложил коллега NorthWind с Мисты:
Данные после подписи или шифрования преобразуем в массив байтов методом самого CAPICOM - BinaryStringToByteArray объекта Utilities, и потом записываем в файл как бинарный поток.
Вот код JS-скрипта шифрования, в подписи надо сделать аналогично:

ÑòðÊîäà	= "function CryptFile(FileName,Recipients,OutFileName)
		|{
		|   InStream=new ActiveXObject(""ADODB.Stream"");
		|   InStream.Type=1; // binary data
		|   InStream.Mode=3; // read/write
		|   InStream.Open();
		|   InStream.LoadFromFile(FileName);
		|   InData=InStream.Read(-1);
		|
		|   EnvelopedData=new ActiveXObject(""CAPICOM.EnvelopedData"");
		|   EnvelopedData.Content=InData;
		|   for (var i=1; i<=Recipients.Count; i++) {EnvelopedData.Recipients.Add(Recipients.Item(i));}
		|   OutEnvelopedData=EnvelopedData.Encrypt(1);
		|
		|	Util = new ActiveXObject(""CAPICOM.Utilities"");
		|	BinArr = Util.BinaryStringToByteArray(OutEnvelopedData);
		|
		|   OutStream=new ActiveXObject(""ADODB.Stream"");
		|   OutStream.Type=1; // binary data
		|   OutStream.Mode=3; // read/write
		|   OutStream.Open();
		|   OutStream.Write(BinArr);
		|   OutStream.SaveToFile(OutFileName,2);
		|   OutStream.Close();
		|
		| return(0);
		|}
		|";
Показать

После этого, тоже все красиво читается, расшифровывается КриптоАРМом и т.д.

PS Вполне возможно, что это все не обязательно, и ФСРАР проглотил бы файлы и с BOM, но, как-то так красивее и приятнее... В конце концов, тот-же рекомендованый ФСРАРом КриптоАРМ и другие программы пишут файлы без BOM, значит так будет правильнее.
2. Dolly_EV 266 18.10.12 08:12 Сейчас в теме
а xsd в Моксель положить? своим же методом http://infostart.ru/public/115930/ )))
3. andrewks 1254 18.10.12 08:51 Сейчас в теме
4. sCHTASS 46 19.10.12 09:30 Сейчас в теме
Что интересная и полезная!
В догонку предложу сохранить все внешние библиотеки в саму обработку. Было описание технологии, как хранить бинарные файлы в картинках... Вроде как даже тут на инфостарте - надо пошушукать...
5. andrewks 1254 19.10.12 09:42 Сейчас в теме
6. sCHTASS 46 19.10.12 09:49 Сейчас в теме
(5) Сорри, не вникал особливо в предыдущие коменты.
7. Ёпрст 1027 23.10.12 10:49 Сейчас в теме
Нужно только модернизировать - подписать все файлы в папке по шаблону.. и т.д.
Чтоб не каждый раз выбирать файло, а скопом.
8. andrewks 1254 23.10.12 17:33 Сейчас в теме
(7) Ёпрст, зачем? это же не самостоятельно решение типа КриптЭК-Д, а именно решение для встраивания в конфу на 1С. куда как логичнее встроить этот блок и выполнять прямо при формировании выходного xml-файла (я в своей нетленке сделал так: если выгруженный файл прошёл валидацию, я его сразу же и криптую )
9. Dionisiy 18.01.13 09:25 Сейчас в теме
Отличная работа, ибо эти все крипы откровенно напрягают, ведь по сути это оболочка, при желании можно через OpenSSl зашифровать все это, тот же контур представляет все эти услуги абсолютно бесплатно со своего сайта (установка полностью библиотеки криптопро, сертификаты и т.д. и т.д. все бесплатно и не отходя от кассы), только в этом квартале они запрятали интерфейс, чем побудили срочно искать альтернативные пути.
16. Bahyt 19 20.10.14 20:25 Сейчас в теме
(9) Dionisiy
Куда КОнтур запрятал интерфейс? Я понял так, что это стало теперь платным у них.
10. Угрюмый 6 06.01.14 17:28 Сейчас в теме
Добрый день! Заинтересовался проблемой проверки сформированной декларации по схеме непосредственно в 1С. Не имея возможности скачать данную обработку (не дорос мой кошелек по $m...), нашел в сети функцию из данной обработки: http://www.forum.mista.ru/topic.php?id=642503 , "воткнул" ее к себе, в результате получаю:
При проверке по схеме файла D:\xml\D6_2920014706_093_06112013_D3C8794C-4F4E-41C3-A8F3-A9CDE21927FE выявлены ошибки!
OLE.IXMLDOMParseError2
Но, этот файл в декларанте проверяется без ошибок... Понимаю, что что-то не так, но что?

Если кто знает в чем проблема, буду очень благодарен!
Операционка Windows 8; парсер msxml6_x64.msi скачал и установил...
11. andrewks 1254 06.01.14 18:32 Сейчас в теме
(10) какие именно сообщения об ошибках выводятся?
12. Угрюмый 6 06.01.14 21:13 Сейчас в теме
Выводится только OLE.IXMLDOMParseError2
Правда функции ВалидацияХМЛпоСхеме() требовались процедуры ВывестиСообщение() и ВывестиОшибкуРазбораХМЛ(), за неимением коих пришлось вставить функцию Сообщить()
Все от непонимания, с чем работаю... Как я понимаю, validateOnParse - это внутренняя команда mxml, где можно посмотреть ее описание?
13. Угрюмый 6 06.01.14 23:56 Сейчас в теме
Пардон, разобрался, причина в длинном имени файла (или отсутствии компоненты OpenFileDialogsManager.dll). Но где взять эту самую OpenFileDialogsManager.dll?
14. Угрюмый 6 07.01.14 01:58 Сейчас в теме
Если не трудно, поясните, пожалуйста:
При создании xml файла средствами v7plus между тегами нет пробелов и mxml понимает в файле (как и текстовые редакторы/просмотрщики) две строки: "?xml version="1.0" encoding="windows-1251"" и все остальное. Соответственно, и все ошибки получаются во второй строке. Как между тегами поставить пробел или перенос строки
(как это делает Декларант Алко), чтобы легче было находить ошибки?
15. Bahyt 19 20.10.14 20:24 Сейчас в теме
17. M_W_W 8 13.01.18 00:02 Сейчас в теме
Добрый день!
Подниму старую тему...
Это вообще сейчас работает? Ничего не поменялось?
Поясню, почему возник вопрос - решил протестировать, перед тем, как реальные декларации подписывать и отправлять.
Вместо одного из двух сертификатов получателя, выбрал свой(для возможности расшифровки, предварительно добавив его в хранилище "Другие пользователи").
Подписываю/шифрую, вроде внешне все выглядит нормально, получаю файл со всеми необходимыми расширениями. Пробую расшифровать его с помощью программы КриптоАРМ, и получаю ошибку - "Не верный формат данных(0x80070057)"... Если тот-же файл зашифровать КриптоАРМом, с тем-же набором сертификатов(личный так-же добавлен в получатели) то он его потом расшифровывает, снимает подпись и сохраняет в исходном виде без проблем...
Времени с момента публикации разработки прошло много, может что-то изменилось в "свежих" сертификатах или алгоритмах КриптоПРО, что нужно еще какой-либо параметр в процедуру шифрования добавить? Понимаю, что не должно, но все-же... Проверить отправкой реальных файлов в ЛК ФСРАР пока не могу, только на следующей неделе будут реальные декларации готовы...
18. M_W_W 8 13.01.18 00:57 Сейчас в теме
Программа "Такском-КриптоЛайн" тоже не расшифровывает - пишет "Файл не зашифрован или поврежден".
Тормознул в отладчике до того, как она удаляет временные файлы, и выяснилось, что уже подпись работает не правильно, не КриптоАРМ не Такском-КриптоЛайн не открывают подписанный файл. В zip упаковывает нормально...
19. M_W_W 8 13.01.18 15:25 Сейчас в теме
Если открыть подписанный(отловленный до архивирования и шифрования) файл просто блокнотом(Notepad+), то внутри него двоичная "абракадабра", по большей части "NUL"-ами заполнен... Если открыть подписанный КриптоАРМ или КриптоЛайн, то там виден исходный текст XML, только вначале и в конце двоичные фрагменты, видимо "крипто-хвосты" самой подписи.
Что происходит с файлом при подписании, почему он "портится" - ?
Пробовал на компьютере с WIN-XP и КриптоПро 3.6, попробовал на Win-7 c VipNet-CSP, результат один и тот-же...
20. M_W_W 8 14.01.18 19:17 Сейчас в теме
Попробовал сейчас 8-рочную версию обработки, результат тот-же самый...

Единственное, что работает, и в 7.7 и в 8, это валидация файлов деклараций по схемам. Ну, конечно, схемы пришлось заменить на актуальные, в 7.7 в каталоге, а в 8 - в макете.
Но, что с подписью не так? Неужели никто не пользуется такой удобной возможностью? Или я что-то не так делаю?
21. M_W_W 8 19.01.18 21:43 Сейчас в теме
АУ!!! Автор, Вы там живы? Ответьте пожалуйста...
22. M_W_W 8 22.01.18 11:47 Сейчас в теме
На Мисте целую тему сделал - http://www.forum.mista.ru/topic.php?id=811721#7, ничего не получается... Но, сюда не переношу, так, как к сабжевой обработке это имеет уже малое отношение, там я уже переписал подписание на vbs, и прочие эксперименты проделывал... Чего-то не то с кодировкой. Это все хорошо, я надеюсь добью все-таки подписание... Но:
Мне все-таки интересно, у кого-нибудь вообще работает сабжевая разработка, в исходном виде, так сказать - "из коробки" - ???
Опубликована давно, народ скачивал... И тишина... И автор пропал...
24. Dionisiy 27.01.18 11:31 Сейчас в теме
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Вакансии

Удаленный ИТ-журналист
Санкт-Петербург
По совместительству

Программист 1С
Санкт-Петербург
зарплата от 100 000 руб.
Полный день

Программист 1С
Санкт-Петербург
зарплата от 100 000 руб.
Полный день

Руководитель группы сервисов ЭДО, ЭЦП и криптографии
Москва
зарплата от 150 000 руб.
Полный день

Руководитель группы интеграций (1С)
Москва
зарплата от 150 000 руб.
Полный день