[Aqel]

Помогите определить что за ошибка выходит при вызове...

Код:

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

procedure TForm1.Button3Click(Sender: TObject); var   nameAttr: CERT_RDN_ATTR;   nameString: PChar;   rdn: CERT_RDN;   nameInfo: CERT_NAME_INFO;   certReqInfo: CERT_REQUEST_INFO;   subjNameBlob: CERT_NAME_BLOB;   encNameLen: DWORD;   encName: PBYTE;   prov: HCRYPTPROV;   pubKeyInfoLen: DWORD;   pubKeyInfo: PCERT_PUBLIC_KEY_INFO;   encCertReqLen: DWORD;   params: CRYPT_OBJID_BLOB;   sigAlg: CRYPT_ALGORITHM_IDENTIFIER;   signedEncCertReq: PBYTE;   cont: PChar;   err: string;   encType: DWORD;   f: file; begin   nameString := StrAlloc(length(LabeledEdit1.Text) + 1);   StrPCopy(nameString, LabeledEdit1.Text);   nameAttr.pszObjId := '2.5.4.3';   nameAttr.dwValueType := CERT_RDN_UTF8_STRING; // CERT_RDN_PRINTABLE_STRING   nameAttr.Value.cbData := length(LabeledEdit1.Text);   nameAttr.Value.pbData := PBYTE(nameString);   rdn.cRDNAttr := 1;   rdn.rgRDNAttr := @nameAttr;   nameInfo.cRDN := 1;   nameInfo.rgRDN := @rdn;   if not CryptEncodeObject(encType, X509_NAME, @nameInfo, nil, encNameLen) or (encNameLen < 1) then   begin     MessageDlg('CryptEncodeObject ошибка ' + inttostr(GetLastError), mtError, [mbOk], 0);     StrDispose(nameString);     exit;   end;   GetMem(encName, encNameLen);   if not CryptEncodeObject(PKCS_7_ASN_ENCODING or X509_ASN_ENCODING, X509_NAME, @nameInfo, encName, encNameLen) or (encNameLen < 1) then   begin     MessageDlg('2nd CryptEncodeObject ошибка ' + inttostr(GetLastError), mtError, [mbOk], 0);     StrDispose(nameString);     FreeMem(encName, encNameLen);     exit;   end;   subjNameBlob.cbData := encNameLen;   subjNameBlob.pbData := encName;   certReqInfo.Subject := subjNameBlob;   certReqInfo.cAttribute := 0;   certReqInfo.rgAttribute := nil;   certReqInfo.dwVersion := CERT_REQUEST_V1;   if length(LabeledEdit10.Text) = 0 then     cont := nil   else   begin     err := LabeledEdit10.Text;     cont := StrAlloc(length(err) + 1);     StrPCopy(cont, err);   end;   if not CryptAcquireContext(prov, cont, nil, PROV_RSA_FULL, 0) then   begin     case int64(GetLastError) of       ERROR_INVALID_PARAMETER:         err := 'ERROR_INVALID_PARAMETER';       ERROR_NOT_ENOUGH_MEMORY:         err := 'ERROR_NOT_ENOUGH_MEMORY';       NTE_BAD_FLAGS:         err := 'NTE_BAD_FLAGS';       NTE_BAD_KEYSET:         err := 'NTE_BAD_KEYSET';       NTE_BAD_KEYSET_PARAM:         err := 'NTE_BAD_KEYSET_PARAM';       NTE_BAD_PROV_TYPE:         err := 'NTE_BAD_PROV_TYPE';       NTE_BAD_SIGNATURE:         err := 'NTE_BAD_SIGNATURE';       NTE_EXISTS:         err := 'NTE_EXISTS';       NTE_KEYSET_ENTRY_BAD:         err := 'NTE_KEYSET_ENTRY_BAD';       NTE_KEYSET_NOT_DEF:         err := 'NTE_KEYSET_NOT_DEF';       NTE_NO_MEMORY:         err := 'NTE_NO_MEMORY';       NTE_PROV_DLL_NOT_FOUND:         err := 'NTE_PROV_DLL_NOT_FOUND';       NTE_PROV_TYPE_ENTRY_BAD:         err := 'NTE_PROV_TYPE_ENTRY_BAD';       NTE_PROV_TYPE_NO_MATCH:         err := 'NTE_PROV_TYPE_NO_MATCH';       NTE_PROV_TYPE_NOT_DEF:         err := 'NTE_PROV_TYPE_NOT_DEF';       NTE_PROVIDER_DLL_FAIL:         err := 'NTE_PROVIDER_DLL_FAIL';       NTE_SIGNATURE_FILE_BAD:         err := 'NTE_SIGNATURE_FILE_BAD';     else       err := 'Неизвестная ошибка';     end;     MessageDlg('Ошибка создания контейнера: ' + err, mtError, [mbOk], 0);     StrDispose(nameString);     FreeMem(encName, encNameLen);     if cont <> nil then       StrDispose(cont);     exit; ...

При нажатии на кнопку пишет: "CryptEncodeObject ошибка 2"
В чём может быть проблема?