ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / средства разработки для подписи файлов ЭЦП по стандарту CAdeS
14 сообщений из 14, страница 1 из 1
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39719671
Dmitry_PV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry_PV
Участник
Интересует
1 В чём разница между обычной подписью и подписью cades(читал в интернете по этому поводу и на сайте крипто про) интересно мнение людей с этим имеющих опыт
2 МБ какие то есть исходники с мануалом или библиотека для ЭЦП cades
3 Может ли делать такую ЭЦП wincrypt?

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

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

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

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

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

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

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

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

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

Разве?

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

примеры
...
Рейтинг: 0 / 0
19.10.2018, 10:41
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39724271
Dmitry_PV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry_PV
Участник
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, 09:23
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39724348
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
cadesSignPara - указатель (PCADES_SIGN_PARA или CADES_SIGN_PARA).

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

благодарю долго смотрел, на свой код. дошло.спасибо.
...
Рейтинг: 0 / 0
29.10.2018, 12:30
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39725028
Dmitry_PV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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.
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:46
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39725031
Dmitry_PV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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.
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
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39725032
Dmitry_PV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry_PV
Участник
Пы таюсь подписать cades файл а он ругается все делаю по примерам c++.
...
Рейтинг: 0 / 0
30.10.2018, 15:49
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39725036
Фотография aleksandr-pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aleksandr-pro
Участник
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:01
| Ответить | Цитировать | Написать  
средства разработки для подписи файлов ЭЦП по стандарту CAdeS
    #39725044
Dmitry_PV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry_PV
Участник
aleksandr-pro,

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


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