1

Тема: Использование SignMem

Добрый день, подскажите пожалуйста пытаемся использовать
SignMem получаем ошибку E0690057
Строчка выглядит вот так

Crypt.SignMem(SignParam,data,"", sign_out2)

2

Re: Использование SignMem

Добрый день!

Насколько я понимаю, Вы используете библиотеку VCERTCOM, она предназначена для вызова из Visual Basic и Delphi.

Код ошибки E0690057 значит "Неправильный параметр". Для описания ошибки по коду можно использовать функцию GetPKIErrorText.

3

Re: Использование SignMem

Накидали вот такой вот скриптик

      On Error Resume Next
      Err.Clear
      Dim errText
      Dim Crypt
      Dim SignParam
      Set Crypt = CreateObject("PKI.VCERT")
      If Crypt is Nothing Then
        MsgBox "Ошибка загрузки объекта PKI.VCERT", 0, "Ошибка"
      End If
     Dim sign_out2       
       Crypt.Initialize "ZK", 64
     msgbox Err.Number
      If Err.Number=0 Then
          Set SignParam=CreateObject("PKI.SignParam")
          SignParam.flag = 2
          Set fso = CreateObject("Scripting.FileSystemObject")
          Set f = fso.OpenTextFile("c:\temp\1.txt", 1, True)
          BufStr=f.ReadAll
          f.close
          Crypt.Signmem SignParam, BufStr, Empty, sign_out2
         Set f = fso.OpenTextFile("c:\temp\122.txt", 1, True)
          F.WRITE=sign_out2
          F.close
          If Err.Number=0 Then
              MsgBox "OK", 0, ""
          End If                                                                     
      Else
          Crypt.GetPKIErrorTextVBS Err.number, errText
          MsgBox errText, 0, "Ошибка"
      End If

      Set SignParam = Nothing
      Set Crypt = Nothing

  Но результата нет т

4

Re: Использование SignMem

При вызове из скриптов работают не все функции. Для подписания файла нужно использовать функцию SignFile.

Библиотека VCERTCOM описана в руководстве программиста (ВАМБ.00106-01 33 01).

5

Re: Использование SignMem

Понял спасибо