Добрый день!
К нам в организацию поступили подписи которые не удается проверить, хотя до этого проблем с проверкой подписей не испытывали.
Проверку осуществляем через COM интерфейс CAdES.
Есть две подписи подписанные одним сертификатом.
Первая подпись
E-182-2021_Sonclusion.pdf_Gabelfeld.sig
(4kb) загружен 1 раз(а). проверку проходит успешно.
Вторая подпись
conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml_Gabelfeld.sig
(12kb) загружен 0 раз(а). не проходит проверку, выходит ошибка "Элемент не найден".
Обе подписи проверяются КриптоАРМом и "Инструменты КриптоПро" успешно.КриптоАРМ показывает, что вторая подпись (
conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml_Gabelfeld.sig
(12kb) загружен 0 раз(а).), содержит штамп времени.
Прикладываю отчеты результатов проверки КриптоАРМом обоих подписей:
Result of checking (E-182-2021_Sonclusion.pdf_Gabelfeld.sig).htm
(6kb) загружен 0 раз(а). Result of checking (conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml_Gabelfeld.sig).htm
(12kb) загружен 1 раз(а).Сами подписываемые файлы к сожалению приложить не могу, но вот хэши по ГОСТ 3411-2012 (256) пожалуйста:
D7579F2C37F49EB9BC99799B9BEF752A81B59E8290F8881CBCA42355F4376C93 для первой подписи
E-182-2021_Sonclusion.pdf_Gabelfeld.sig
(4kb) загружен 1 раз(а).39A8A62540A5D08EF9930F25CD12488EA2414D179D35535B28414BA499A90C67 для второй подписи
conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml_Gabelfeld.sig
(12kb) загружен 0 раз(а).Проверка по хешу обе подписи на сайте
Госуслуг проходит успешно.
Включил режим
логирования и при проверки второй подписи (
conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml_Gabelfeld.sig
(12kb) загружен 0 раз(а).) в логе выводится ошибка "Certificate from certRefs not found".
Прилагаю скрин лога:
Log DebugView.png
(45kb) загружен 10 раз(а).Я полагаю, что ошибка возникает еще на этапе чтения файла подписи, еще до проверки сигнатуры.
Прошу помощи. Заранее спасибо!
Код:Option Explicit
Const CADESCOM_CADES_BES = &h01 'Тип подписи CAdES BES.
Dim sourceFile : sourceFile = "conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml"
Dim sigFile : sigFile = "conclusion_77d669da-6a0a-4cb1-ab37-7b775d592c18.xml_Gabelfeld.sig"
call VerifySigFile( sourceFile, CADESCOM_CADES_BES, sigFile)
'Функция VerifySigFile проверки файла открепленной подписи
sub VerifySigFile(sourceFile, signType , sigFile)
Dim Content, Message, SignedData
' Создание объекта SignedData.
Set SignedData = CreateObject("CAdESCOM.CadesSignedData")
' Загрузка подписанных данных для проверки.
call LoadBinaryFile(sigFile, Message)
' Загрузка содержимого файла для подписи.
call LoadBinaryFile(sourceFile, Content)
SignedData.Content = Content
' Проверка подписи по файлу
On Error Resume Next
call SignedData.VerifyCades(Message, signType, true)
If Err.Number <> 0 Then
Wscript.Echo "Error (" & Err.Description & " - " & Err.Number & ")"
else
Wscript.Echo "Verifed!"
end if
On Error Goto 0
' Проверка подписи по хэшу
'On Error Resume Next
' Dim hashSourceFile: hashSourceFile = "39A8A62540A5D08EF9930F25CD12488EA2414D179D35535B28414BA499A90C67"
' Dim HashedData : set HashedData = CreateObject("CAdESCOM.HashedData")
' HashedData.Algorithm = 101
' HashedData.SetHashValue(hashSourceFile)
' call SignedData.VerifyHash(HashedData, Message, signType)
' If Err.Number <> 0 Then
' Wscript.Echo "Error (" & Err.Description & " - " & Err.Number & ")"
' else
' Wscript.Echo "Verifed!"
' end if
'On Error Goto 0
end sub
'Функция LoadBinaryFile читает содержимое бинарного файла
Sub LoadBinaryFile(FileName, Buffer)
Dim fStream : Set fStream = CreateObject ("ADODB.Stream")
fStream.Type = 1
fStream.Mode = 3
fStream.Open ()
fStream.LoadFromFile (FileName)
Buffer = fStream.Read (-1)
End Sub
