здравствуйте. Новичок в данной сфере. но на работе припахали
. Задача шифровать файл ЭЦП на Delphi, уже есть закрытый и открытый ключи в отдельных key-файлах, облазил весь инет, так и не нашёл толкового решения, подскажите или хотя бы направьте на решение.
есть примерно такой код, но он после первой строчке в переменной My возвращает nil. что делаю не так?!
My:=CertOpenStore(CERT_STORE_PROV_FILENAME_A,
PKCS_7_ASN_ENCODING or X509_ASN_ENCODING,
0,
0,
PWideChar(WideString('C:\delta_pub.key'))
);
CryptCreateHash(Prov,CALG_MD5,0,0,@Hash);
CryptHashData(Hash,PByte(Message),Length(Message),0);
BufLen:=0;
CryptSignHash(Hash,AT_SIGNATURE,nil,0,nil,@BufLen);
if BufLen>0 then begin
SetLength(Result,BufLen);
CryptSignHash(Hash,AT_SIGNATURE,nil,0,PByte(Result),@BufLen);
end;
CryptDestroyHash(Hash);
CryptReleaseContext(Prov,0);
