|
Как сделать цифровую подпись на основе сертификата
#34778768
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
Вообщем задача немного поменялась. Теперь все в одном флаконе (инфа и подпись в одном файле), т.е. не detached. Старый код выбросил, залез на msdn, нашел там подходящий пример и на его основе сделал вот этот код:
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.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
procedure TForm1.Button3Click(Sender: TObject);
Const
CERT_STORE_NAME = 'MY';
MY_ENCODING_TYPE = PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;
var
hCertStoreHandle : HCERTSTORE;
SIGNER_NAME: string ;
pSignerName: PWideChar;
//pbMessage: PByte;
//cbMessage: DWORD;
MessageArray: array of PByte;
MessageSize : array of DWORD;
pSignerCert: PCCERT_CONTEXT;
SigParams: CRYPT_SIGN_MESSAGE_PARA;
cbSignedMessageBlob: DWORD;
pbSignedMessageBlob: PByte;
pSignedMessageBlob: CRYPT_DATA_BLOB;
err: String ;
f1: File ;
begin
Memo.Clear;
SIGNER_NAME := 'test';
hCertStoreHandle := nil ;
pSignedMessageBlob.cbData := 0 ;
pSignedMessageBlob.pbData := nil ;
hCertStoreHandle := CertOpenSystemStore( 0 ,PChar(CERT_STORE_NAME));
if hCertStoreHandle = nil then Memo.Lines.Add('Ошибка при открытии хранилища ' + CERT_STORE_NAME);
GetMem(pSignerName, 2 *Length(SIGNER_NAME)+ 1 );
StringToWideChar(SIGNER_NAME,pSignerName, 2 *Length(SIGNER_NAME)+ 1 );
pSignerCert := CertFindCertificateInStore(
hCertStoreHandle,
MY_ENCODING_TYPE,
0 ,
CERT_FIND_SUBJECT_STR,
pSignerName,
nil );
FreeMem(pSignerName);
if pSignerCert = nil then
begin
err := IntToStr(GetLastError);
Memo.Lines.Add('Сертификат ' + SIGNER_NAME + ' не найден: ' + err);
exit;
end ;
if (srcFile.Execute) and (srcFile.FileName <> EmptyStr) then
begin
SetLength(MessageArray, 1 *sizeof(PByte));
SetLength(MessageSize, 1 *sizeof(DWORD));
AssignFile(f1,srcFile.FileName);
Reset(f1, 1 );
MessageSize[ 0 ] := FileSize(f1);
GetMem(MessageArray[ 0 ], MessageSize[ 0 ]);
BlockRead(f1, MessageArray[ 0 ]^, MessageSize[ 0 ]);
CloseFile (f1);
end ;
SigParams.cbSize := SizeOF(CRYPT_SIGN_MESSAGE_PARA);
SigParams.dwMsgEncodingType := MY_ENCODING_TYPE;
SigParams.pSigningCert := pSignerCert;
SigParams.HashAlgorithm.pszObjId := szOID_PKCS_7;
SigParams.HashAlgorithm.Parameters.cbData := 0 ;
SigParams.cMsgCert := 1 ;
SigParams.rgpMsgCert := @pSignerCert;
SigParams.cAuthAttr := 0 ;
SigParams.dwInnerContentType := 0 ;
SigParams.cMsgCrl := 0 ;
SigParams.cUnauthAttr := 0 ;
SigParams.dwFlags := 0 ;
SigParams.pvHashAuxInfo := nil ;
SigParams.rgAuthAttr := nil ;
if not (CryptSignMessage(
@SigParams,
FALSE,
1 ,
MessageArray,
MessageSize,
nil ,
@cbSignedMessageBlob)) then
begin
err := IntToStr(GetLastError);
Memo.Lines.Add('Размер буфера: ' + err);
exit;
end ;
GetMem(pbSignedMessageBlob, cbSignedMessageBlob);
if not (CryptSignMessage(
@SigParams,
FALSE,
1 ,
MessageArray,
MessageSize,
pbSignedMessageBlob,
@cbSignedMessageBlob)) then
begin
err := IntToStr(GetLastError);
Memo.Lines.Add('Файл не подписан: ' + err);
exit;
end
else Memo.Lines.Add('Файл подписан: ' + err);
CertFreeCertificateContext(pSignerCert);
CertCloseStore(hCertStoreHandle, CERT_CLOSE_STORE_CHECK_FLAG);
hCertStoreHandle := nil ;
pSignedMessageBlob.cbData := cbSignedMessageBlob;
pSignedMessageBlob.pbData := pbSignedMessageBlob;
if SaveSignFile.Execute then
begin
AssignFile(f1,SaveSignFile.FileName);
Rewrite(f1, 1 );
BlockWrite(f1, pbSignedMessageBlob^, cbSignedMessageBlob);
CloseFile (f1);
end ;
end ;
procedure TForm1.Button4Click(Sender: TObject);
Const
CERT_STORE_NAME = 'MY';
MY_ENCODING_TYPE = PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;
PROVIDER_NAME = '';
var
hCertStoreHandle: HCERTSTORE;
cbDecodedMessageBlob: DWORD;
pbDecodedMessageBlob: PByte;
VerifyParams: CRYPT_VERIFY_MESSAGE_PARA;
pSignedMessageBlob: CRYPT_DATA_BLOB;
pDecodedMessageBlob: CRYPT_DATA_BLOB;
err: string ;
SIGNER_NAME: string ;
pSignerName: PWideChar;
pSignerCert: PCCERT_CONTEXT;
MessageArray: array of PByte;
MessageSize : array of DWORD;
f1: File ;
hProv: HCRYPTPROV;
function MySignerCertificateCallback( pvGetArg : pvoid;
dwCertEncodingType : DWORD;
pSignerId : PCERT_INFO;
hMsgCertStore : HCERTSTORE): PCCERT_CONTEXT ; stdcall;
begin
Result := PCCERT_CONTEXT(pvGetArg);
end ;
begin
pbDecodedMessageBlob := nil ;
pDecodedMessageBlob.cbData := 0 ;
pDecodedMessageBlob.pbData := nil ;
Memo.Clear;
SIGNER_NAME := 'test';
hCertStoreHandle := nil ;
pSignedMessageBlob.cbData := 0 ;
pSignedMessageBlob.pbData := nil ;
hCertStoreHandle := CertOpenSystemStore( 0 ,PChar(CERT_STORE_NAME));
if hCertStoreHandle = nil then Memo.Lines.Add('Ошибка при открытии хранилища ' + CERT_STORE_NAME);
GetMem(pSignerName, 2 *Length(SIGNER_NAME)+ 1 );
StringToWideChar(SIGNER_NAME,pSignerName, 2 *Length(SIGNER_NAME)+ 1 );
pSignerCert := CertFindCertificateInStore(
hCertStoreHandle,
MY_ENCODING_TYPE,
0 ,
CERT_FIND_SUBJECT_STR,
pSignerName,
nil );
FreeMem(pSignerName);
if pSignerCert = nil then
begin
err := IntToStr(GetLastError);
Memo.Lines.Add('Сертификат ' + SIGNER_NAME + ' не найден: ' + err);
exit;
end ;
if not CryptAcquireContext(@hProv, nil , PROVIDER_NAME, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) then
begin
Memo.Lines.Add('Провайдер '+PROVIDER_NAME+' не найден');
exit;
end ;
VerifyParams.cbSize := sizeof(CRYPT_VERIFY_MESSAGE_PARA);
VerifyParams.dwMsgAndCertEncodingType := MY_ENCODING_TYPE;
VerifyParams.hCryptProv := hProv;
VerifyParams.pfnGetSignerCertificate := @MySignerCertificateCallback;
VerifyParams.pvGetArg := pSignerCert;
if (srcFile.Execute) and (srcFile.FileName <> EmptyStr) then
begin
AssignFile(f1,srcFile.FileName);
Reset(f1, 1 );
pSignedMessageBlob.cbData := FileSize(f1);
GetMem(pSignedMessageBlob.pbData, pSignedMessageBlob.cbData);
BlockRead(f1, pSignedMessageBlob.pbData^, pSignedMessageBlob.cbData);
CloseFile (f1);
end ;
if not (CryptVerifyMessageSignature(
@VerifyParams,
0 ,
pSignedMessageBlob.pbData,
pSignedMessageBlob.cbData,
nil ,
cbDecodedMessageBlob,
nil )) then
begin
err := IntToStr(GetLastError);
Memo.Lines.Add('Не удалось узнать размер буфера : ' + err);
exit;
end ;
GetMem(pbDecodedMessageBlob,cbDecodedMessageBlob);
if not (CryptVerifyMessageSignature(
@VerifyParams,
0 ,
pSignedMessageBlob.pbData,
pSignedMessageBlob.cbData,
pbDecodedMessageBlob,
cbDecodedMessageBlob,
nil )) then
begin
err := IntToStr(GetLastError);
Memo.Lines.Add('Не удалось проверить подпись: ' + err);
exit;
end ;
pDecodedMessageBlob.cbData := cbDecodedMessageBlob;
pDecodedMessageBlob.pbData := pbDecodedMessageBlob;
end ;
Сам файл вроде бы подписывается, ошибок замечено не было. А вот при проверке подписи всё таже ошибка - NTE_BAD_ALGID. |
|
|
