Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / средства разработки для подписи файлов ЭЦП по стандарту CAdeS / 14 сообщений из 14, страница 1 из 1
19.10.2018, 08:36
    #39719671
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Интересует
1 В чём разница между обычной подписью и подписью cades(читал в интернете по этому поводу и на сайте крипто про) интересно мнение людей с этим имеющих опыт
2 МБ какие то есть исходники с мануалом или библиотека для ЭЦП cades
3 Может ли делать такую ЭЦП wincrypt?

За любую информацию спасибо.

разработка на delphi 6

------------------------------------
Не воспринимайте доброту за слабость
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2018, 08:54
    #39719676
Котовасия
Котовасия
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Dmitry_PVНе воспринимайте доброту за слабость
Вот интересно, для чего ты это воткнул?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2018, 09:38
    #39719712
sql2012
sql2012
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Dmitry_PVИнтересует
1 В чём разница между обычной подписью и подписью cades(читал в интернете по этому поводу и на сайте крипто про) интересно мнение людей с этим имеющих опыт
2 МБ какие то есть исходники с мануалом или библиотека для ЭЦП cades
3 Может ли делать такую ЭЦП wincrypt?

За любую информацию спасибо.

разработка на delphi 6

------------------------------------
Не воспринимайте доброту за слабость

Используй CadesCOM и не парься.
Десяток строк, забудь про wincrypt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2018, 09:50
    #39719716
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
sql2012,

CadesCOM да этот вариант прорабатываю но вот с документацией проблемы. не могу ни чего найти путнего с описанием функций
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2018, 10:39
    #39719742
sql2012
sql2012
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Dmitry_PVsql2012,

CadesCOM да этот вариант прорабатываю но вот с документацией проблемы. не могу ни чего найти путнего с описанием функций

Разве?

Всё подробно и с примерами расписано в руководстве программиста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2018, 10:41
    #39719746
sql2012
sql2012
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Dmitry_PV,

примеры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2018, 09:23
    #39724271
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
C++
Код: plaintext
1.
2.
CADES_SIGN_PARA cadesSignPara = { sizeof(cadesSignPara) };
    cadesSignPara.dwCadesType = CADES_BES;




Delphi
Код: pascal
1.
2.
3.
FillChar(cadesSignPara, SizeOf(CADES_SIGN_PARA), 0);
  cadesSignPara.dwSize := SizeOf(CADES_SIGN_PARA);
   cadesSignPara.dwCadesType:= CADES_BES;



При выполнении кода стреляется на cadesSignPara.dwSize := SizeOf(CADES_SIGN_PARA);
---------------------------
Debugger Exception Notification
---------------------------
Project ProjectCades.exe raised exception class EAccessViolation with message 'Access violation at address 00457E7B in module 'ProjectCades.exe'. Write of address 00000000'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

В чём причина не могу понять вроде и структуру описал как прописано в заголовке

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
type
  PCADES_SIGN_PARA = ^CADES_SIGN_PARA; {My type. Dima}
  CCADES_SIGN_PARA = record
    dwSize:                  DWORD;
    dwCadesType:             DWORD;
    pSigningCert:            PCCERT_CONTEXT;
    szHashAlgorithm:         LPCSTR;
    hAdditionalStore:        HCERTSTORE;
    pTspConnectionPara:      PCADES_SERVICE_CONNECTION_PARA;
    pProxyPara:              PCADES_PROXY_PARA;
    pCadesExtraPara:         LPVOID;
  end;
  CADES_SIGN_PARA = ^CCADES_SIGN_PARA;


Может кто то сталкивался с подобным???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2018, 11:18
    #39724348
GunSmoker
GunSmoker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
cadesSignPara - указатель (PCADES_SIGN_PARA или CADES_SIGN_PARA).

Либо выделять память под cadesSignPara, либо CADES_SIGN_PARA не должно быть указателем, либо cadesSignPara объявлять как CCADES_SIGN_PARA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2018, 12:30
    #39724417
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
GunSmoker,

благодарю долго смотрел, на свой код. дошло.спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 15:46
    #39725028
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
SetLength(MessageArray, 1);
  SetLength(MessageSize, 1);
  SetLength(MessageCert, 1);
  Self.DataCades.Position := 0;

  MessageArray[0] := Self.DataCades.Memory;
  MessageSize[0] := Self.DataCades.Size;
  MessageCert[0] := signerCertCades._pCert;

  Fillchar(SigParams, SizeOf(CRYPT_SIGN_MESSAGE_PARA), 0);
  SigParams.cbSize := SizeOf(CRYPT_SIGN_MESSAGE_PARA);
  SigParams.dwMsgEncodingType := MY_ENCODING_TYPE;
  SigParams.pSigningCert := signerCertCades._pCert;
  SigParams.HashAlgorithm.pszObjId := szOID_CP_GOST_R3411;
  SigParams.cMsgCert := 1;
  SigParams.dwInnerContentType := 0;
  SigParams.rgpMsgCert := pointer(MessageCert);
  cbSignedMessageBlob := 0;
  Fillchar(cadesSignPara, SizeOf(CCADES_SIGN_PARA), 0);
  cadesSignPara.cbSize := SizeOf(CCADES_SIGN_PARA);
   cadesSignPara.dwCadesType:= CADES_BES;

   Fillchar(cadesSignMesPara, SizeOf(CCADES_SIGN_MESSAGE_PARA), 0);
  cadesSignMesPara.cbSize := SizeOf(CCADES_SIGN_MESSAGE_PARA);
  cadesSignMesPara.pSignMessagePara :=@SigParams;
  cadesSignMesPara.pCadesSignPara:=@cadesSignPara;

    ppSignedMessageBlob.cbData:=0;
    ppSignedMessageBlob.pbData:=nil;

   hMsg:=CadesSignMessage(@cadesSignMesPara, false, 1, Pointer(MessageArray),
        Pointer(MessageSize),
        ppSignedMessageBlob);
   if ( not(assigned(hMsg))) then
            begin
                      raise Exception.Create('CadesSignMessage failed.');

            end;

   DataCades.seek(0,0);
  SignedDataCades.SetSize(ppSignedMessageBlob.cbData);


   ppSignedMessageBlob.pbData:=pointer(SignedDataCades.Memory);
   hMsg:=CadesSignMessage(@cadesSignMesPara, false, 1,Pointer(MessageArray),
       Pointer(MessageSize),
         ppSignedMessageBlob);
   if ( not(assigned(hMsg))) then
            begin
                      raise Exception.Create('CadesSignMessage 2 failed.');

            end;

  SignedDataCades.seek(0,0);
  SignedDataCades.ReadBuffer(pointer(ppSignedMessageBlob.pbData),ppSignedMessageBlob.cbData);
  SignedDataCades.Position := 0;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 15:47
    #39725031
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
SetLength(MessageArray, 1);
  SetLength(MessageSize, 1);
  SetLength(MessageCert, 1);
  Self.DataCades.Position := 0;

  MessageArray[0] := Self.DataCades.Memory;
  MessageSize[0] := Self.DataCades.Size;
  MessageCert[0] := signerCertCades._pCert;

  Fillchar(SigParams, SizeOf(CRYPT_SIGN_MESSAGE_PARA), 0);
  SigParams.cbSize := SizeOf(CRYPT_SIGN_MESSAGE_PARA);
  SigParams.dwMsgEncodingType := MY_ENCODING_TYPE;
  SigParams.pSigningCert := signerCertCades._pCert;
  SigParams.HashAlgorithm.pszObjId := szOID_CP_GOST_R3411;
  SigParams.cMsgCert := 1;
  SigParams.dwInnerContentType := 0;
  SigParams.rgpMsgCert := pointer(MessageCert);
  cbSignedMessageBlob := 0;
  Fillchar(cadesSignPara, SizeOf(CCADES_SIGN_PARA), 0);
  cadesSignPara.cbSize := SizeOf(CCADES_SIGN_PARA);
   cadesSignPara.dwCadesType:= CADES_BES;

   Fillchar(cadesSignMesPara, SizeOf(CCADES_SIGN_MESSAGE_PARA), 0);
  cadesSignMesPara.cbSize := SizeOf(CCADES_SIGN_MESSAGE_PARA);
  cadesSignMesPara.pSignMessagePara :=@SigParams;
  cadesSignMesPara.pCadesSignPara:=@cadesSignPara;

    ppSignedMessageBlob.cbData:=0;
    ppSignedMessageBlob.pbData:=nil;

   hMsg:=CadesSignMessage(@cadesSignMesPara, false, 1, Pointer(MessageArray),
        Pointer(MessageSize),
        ppSignedMessageBlob);
   if ( not(assigned(hMsg))) then
            begin
                      raise Exception.Create('CadesSignMessage failed.');

            end;

   DataCades.seek(0,0);
  SignedDataCades.SetSize(ppSignedMessageBlob.cbData);


   ppSignedMessageBlob.pbData:=pointer(SignedDataCades.Memory);
   hMsg:=CadesSignMessage(@cadesSignMesPara, false, 1,Pointer(MessageArray),
       Pointer(MessageSize),
         ppSignedMessageBlob);
   if ( not(assigned(hMsg))) then
            begin
                      raise Exception.Create('CadesSignMessage 2 failed.');

            end;

  SignedDataCades.seek(0,0);
  SignedDataCades.ReadBuffer(pointer(ppSignedMessageBlob.pbData),ppSignedMessageBlob.cbData);
  SignedDataCades.Position := 0;



Что я делаю не так? так как возвращается муть что то типо не понятных иероглифов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 15:49
    #39725032
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Пы таюсь подписать cades файл а он ругается все делаю по примерам c++.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:01
    #39725036
aleksandr-pro
aleksandr-pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
Dmitry_PV

как то давно делал так (минимально необходимый функционал) собственно все по примерам что выше в документации
 

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
var
  oStore,oCertificates,Certificates,oHashedData,
  oCertificate,oSigner,oSignedData:variant;
  s:string;
  res:TFileStream;
  Base64File:String;
  B64:TBase64Encoding;
  str1:Tbytes;
begin

  res := TFileStream.Create('c:\test.html',fmOpenRead);
   SetLength(str1,res.Size);
   res.ReadBuffer(str1[0],res.Size);
  res.free;

  B64:=TBase64Encoding.Create(0);
  Base64File:=B64.EncodeBytesToString(str1);
  B64.Free;

   oStore:=CreateOLEObject('CAPICOM.Store');
   oStore.Open(2,'My',0);//(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);
    oCertificates:=oStore.Certificates;//.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, certSubjectName);
    oCertificate:=oCertificates.Item[1]; // выбираем сертификат
    ss:=oCertificate.SerialNumber;
   oStore.Close;

   oSigner := CreateOLEObject('CAPICOM.Signer');
   oSigner.Certificate := oCertificate;

   oSignedData := CreateOLEObject('CAPICOM.SignedData');
   oSignedData.Content := Base64File;
   result:= oSignedData.Sign(oSigner, true);

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2018, 16:09
    #39725044
Dmitry_PV
Dmitry_PV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
aleksandr-pro,

Так а где тут именно подпись по cades. тут нет её просто что то в басе64 и подпись.
Видел такой пример но результатом его было просто перекодированный файл в басе64 без подписи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / средства разработки для подписи файлов ЭЦП по стандарту CAdeS / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 419ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040193]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 229ms
total:  419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]