Пример 3
Проверка совмещенной подписи.
VBScript
Option Explicit Const CAPICOM_VERIFY_SIGNATURE_ONLY = 0 Const ForReading = 1 Dim oSignedData Set oSignedData = CreateObject("CAdESCOM.CadesSignedData") ' Загрузка подписанных данных для проверки. Dim Message : Message = LoadFile("test.sig") ' Подпись совмещенная. oSignedData.Verify Message, False Function LoadFile (FileName) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(FileName) Then Err.Raise vbObjectError+1, "LoadFile", "File not found" End If Dim ts Set ts = fso.OpenTextFile(FileName, ForReading) LoadFile = ts.ReadAll End Function
Пример 4
Проверка отделенной подписи.
VBScript
Option Explicit Const CAPICOM_VERIFY_SIGNATURE_ONLY = 0 Const ForReading = 1 Dim oSignedData Set oSignedData = CreateObject("CAdESCOM.CadesSignedData") ' Загрузка подписанных данных для проверки. Dim Content : Content = LoadFile("test.vbs") Dim Message : Message = LoadFile("test.sig") oSignedData.Content = Content ' Проверка отделенной подписи oSignedData.Verify Message, True Function LoadFile (FileName) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(FileName) Then Err.Raise vbObjectError+1, "LoadFile", "File not found" End If Dim ts Set ts = fso.OpenTextFile(FileName, ForReading) LoadFile = ts.ReadAll End Function