开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWinCrypt.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：773k
源码类别：

Windows编程

开发平台：

Delphi

JwaWinCrypt.pas：源码内容
  1.   PCryptProtectPromptStruct = PCRYPTPROTECT_PROMPTSTRUCT;
  3. //
  4. // base provider action
  5. //
  7. const
  8.   CRYPTPROTECT_DEFAULT_PROVIDER: GUID = (
  9.     D1:$df9d8cd0; D2:$1501; D3:$11d1; D4:($8c, $7a, $00, $c0, $4f, $c2, $97, $eb));
  10.   {$EXTERNALSYM CRYPTPROTECT_DEFAULT_PROVIDER}
  12. //
  13. // CryptProtect PromptStruct dwPromtFlags
  14. //
  15. //
  16. // prompt on unprotect
  18.   CRYPTPROTECT_PROMPT_ON_UNPROTECT = $1; // 1<<0
  19.   {$EXTERNALSYM CRYPTPROTECT_PROMPT_ON_UNPROTECT}
  21. //
  22. // prompt on protect
  24.   CRYPTPROTECT_PROMPT_ON_PROTECT = $2; // 1<<1
  25.   {$EXTERNALSYM CRYPTPROTECT_PROMPT_ON_PROTECT}
  26.   CRYPTPROTECT_PROMPT_RESERVED   = $04; // reserved, do not use.
  27.   {$EXTERNALSYM CRYPTPROTECT_PROMPT_RESERVED}
  29. //
  30. // only allow strong variant UI protection (user supplied password currently).
  32.   CRYPTPROTECT_PROMPT_STRONG = $08; // 1<<3
  33.   {$EXTERNALSYM CRYPTPROTECT_PROMPT_STRONG}
  35. //
  36. // CryptProtectData and CryptUnprotectData dwFlags
  37. //
  38. // for remote-access situations where ui is not an option
  39. // if UI was specified on protect or unprotect operation, the call
  40. // will fail and GetLastError() will indicate ERROR_PASSWORD_RESTRICTION
  42.   CRYPTPROTECT_UI_FORBIDDEN = $1;
  43.   {$EXTERNALSYM CRYPTPROTECT_UI_FORBIDDEN}
  45. //
  46. // per machine protected data -- any user on machine where CryptProtectData
  47. // took place may CryptUnprotectData
  49.   CRYPTPROTECT_LOCAL_MACHINE = $4;
  50.   {$EXTERNALSYM CRYPTPROTECT_LOCAL_MACHINE}
  52. //
  53. // force credential synchronize during CryptProtectData()
  54. // Synchronize is only operation that occurs during this operation
  56.   CRYPTPROTECT_CRED_SYNC = $8;
  57.   {$EXTERNALSYM CRYPTPROTECT_CRED_SYNC}
  59. // flags reserved for system use
  61.   CRYPTPROTECT_FIRST_RESERVED_FLAGVAL = $0FFFFFFF;
  62.   {$EXTERNALSYM CRYPTPROTECT_FIRST_RESERVED_FLAGVAL}
  63.   CRYPTPROTECT_LAST_RESERVED_FLAGVAL  = DWORD($FFFFFFFF);
  64.   {$EXTERNALSYM CRYPTPROTECT_LAST_RESERVED_FLAGVAL}
  66. //
  67. // flags specific to base provider
  68. //
  70. function CryptProtectData(pDataIn: PDATA_BLOB; szDataDescr: LPCWSTR;
  71.   pOptionalEntropy: PDATA_BLOB; pvReserved: PVOID;
  72.   pPromptStruct: PCRYPTPROTECT_PROMPTSTRUCT; dwFlags: DWORD; pDataOut: PDATA_BLOB): BOOL; stdcall;
  73. {$EXTERNALSYM CryptProtectData}
  75. function CryptUnprotectData(pDataIn: PDATA_BLOB; ppszDataDescr: LPLPWSTR;
  76.   pOptionalEntropy: PDATA_BLOB; pvReserved: PVOID;
  77.   pPromptStruct: PCRYPTPROTECT_PROMPTSTRUCT; dwFlags: DWORD; pDataOut: PDATA_BLOB): BOOL; stdcall;
  78. {$EXTERNALSYM CryptUnprotectData}
  80. //+=========================================================================
  81. //  Helper functions to build certificates
  82. //==========================================================================
  84. //+-------------------------------------------------------------------------
  85. //
  86. // Builds a self-signed certificate and returns a PCCERT_CONTEXT representing
  87. // the certificate. A hProv must be specified to build the cert context.
  88. //
  89. // pSubjectIssuerBlob is the DN for the certifcate. If an alternate subject
  90. // name is desired it must be specified as an extension in the pExtensions
  91. // parameter. pSubjectIssuerBlob can NOT be NULL, so minimually an empty DN
  92. // must be specified.
  93. //
  94. // By default:
  95. // pKeyProvInfo - The CSP is queried for the KeyProvInfo parameters. Only the Provider,
  96. // Provider Type and Container is queried. Many CSPs don't support these
  97. // queries and will cause a failure. In such cases the pKeyProvInfo
  98. // must be specified (RSA BASE works fine).
  99. //
  100. // pSignatureAlgorithm - will default to SHA1RSA
  101. // pStartTime will default to the current time
  102. // pEndTime will default to 1 year
  103. // pEntensions will be empty.
  104. //
  105. // The returned PCCERT_CONTEXT will reference the private keys by setting the
  106. // CERT_KEY_PROV_INFO_PROP_ID. However, if this property is not desired specify the
  107. // CERT_CREATE_SELFSIGN_NO_KEY_INFO in dwFlags.
  108. //
  109. // If the cert being built is only a dummy placeholder cert for speed it may not
  110. // need to be signed. Signing of the cert is skipped if CERT_CREATE_SELFSIGN_NO_SIGN
  111. // is specified in dwFlags.
  112. //
  113. //--------------------------------------------------------------------------
  115. function CertCreateSelfSignCertificate(hProv: HCRYPTPROV;
  116.   pSubjectIssuerBlob: PCERT_NAME_BLOB; dwFlags: DWORD;
  117.   pKeyProvInfo: PCRYPT_KEY_PROV_INFO; pSignatureAlgorithm: PCRYPT_ALGORITHM_IDENTIFIER;
  118.   pStartTime, pEndTime: PSYSTEMTIME; pExtensions: PCERT_EXTENSIONS): PCCERT_CONTEXT; stdcall;
  119. {$EXTERNALSYM CertCreateSelfSignCertificate}
  121. const
  122.   CERT_CREATE_SELFSIGN_NO_SIGN     = 1;
  123.   {$EXTERNALSYM CERT_CREATE_SELFSIGN_NO_SIGN}
  124.   CERT_CREATE_SELFSIGN_NO_KEY_INFO = 2;
  125.   {$EXTERNALSYM CERT_CREATE_SELFSIGN_NO_KEY_INFO}
  127. //+=========================================================================
  128. //  Key Identifier Property Data Structures and APIs
  129. //==========================================================================
  131. //+-------------------------------------------------------------------------
  132. //  Get the property for the specified Key Identifier.
  133. //
  134. //  The Key Identifier is the SHA1 hash of the encoded CERT_PUBLIC_KEY_INFO.
  135. //  The Key Identifier for a certificate can be obtained by getting the
  136. //  certificate's CERT_KEY_IDENTIFIER_PROP_ID. The
  137. //  CryptCreateKeyIdentifierFromCSP API can be called to create the Key
  138. //  Identifier from a CSP Public Key Blob.
  139. //
  140. //  A Key Identifier can have the same properties as a certificate context.
  141. //  CERT_KEY_PROV_INFO_PROP_ID is the property of most interest.
  142. //  For CERT_KEY_PROV_INFO_PROP_ID, pvData points to a CRYPT_KEY_PROV_INFO
  143. //  structure. Elements pointed to by fields in the pvData structure follow the
  144. //  structure. Therefore, *pcbData will exceed the size of the structure.
  145. //
  146. //  If CRYPT_KEYID_ALLOC_FLAG is set, then, *pvData is updated with a
  147. //  pointer to allocated memory. LocalFree() must be called to free the
  148. //  allocated memory.
  149. //
  150. //  By default, searches the CurrentUser's list of Key Identifiers.
  151. //  CRYPT_KEYID_MACHINE_FLAG can be set to search the LocalMachine's list
  152. //  of Key Identifiers. When CRYPT_KEYID_MACHINE_FLAG is set, pwszComputerName
  153. //  can also be set to specify the name of a remote computer to be searched
  154. //  instead of the local machine.
  155. //--------------------------------------------------------------------------
  157. function CryptGetKeyIdentifierProperty(pKeyIdentifier: PCRYPT_HASH_BLOB;
  158.   dwPropId: DWORD; dwFlags: DWORD; pwszComputerName: LPCWSTR; pvReserved: Pointer;
  159.   pvData: Pointer; var pcbData: DWORD): BOOL; stdcall;
  160. {$EXTERNALSYM CryptGetKeyIdentifierProperty}
  162. // When the following flag is set, searches the LocalMachine instead of the
  163. // CurrentUser. This flag is applicable to all the KeyIdentifierProperty APIs.
  165. const
  166.   CRYPT_KEYID_MACHINE_FLAG = $00000020;
  167.   {$EXTERNALSYM CRYPT_KEYID_MACHINE_FLAG}
  169. // When the following flag is set, *pvData is updated with a pointer to
  170. // allocated memory. LocalFree() must be called to free the allocated memory.
  172.   CRYPT_KEYID_ALLOC_FLAG = $00008000;
  173.   {$EXTERNALSYM CRYPT_KEYID_ALLOC_FLAG}
  175. //+-------------------------------------------------------------------------
  176. //  Set the property for the specified Key Identifier.
  177. //
  178. //  For CERT_KEY_PROV_INFO_PROP_ID pvData points to the
  179. //  CRYPT_KEY_PROV_INFO data structure. For all other properties, pvData
  180. //  points to a CRYPT_DATA_BLOB.
  181. //
  182. //  Setting pvData == NULL, deletes the property.
  183. //
  184. //  Set CRYPT_KEYID_MACHINE_FLAG to set the property for a LocalMachine
  185. //  Key Identifier. Set pwszComputerName, to select a remote computer.
  186. //
  187. //  If CRYPT_KEYID_DELETE_FLAG is set, the Key Identifier and all its
  188. //  properties is deleted.
  189. //
  190. //  If CRYPT_KEYID_SET_NEW_FLAG is set, the set fails if the property already
  191. //  exists. For an existing property, FALSE is returned with LastError set to
  192. //  CRYPT_E_EXISTS.
  193. //--------------------------------------------------------------------------
  195. function CryptSetKeyIdentifierProperty(pKeyIdentifier: PCRYPT_HASH_BLOB;
  196.   dwPropId: DWORD; dwFlags: DWORD; pwszComputerName: LPCWSTR; pvReserved: Pointer;
  197.   pvData: Pointer): BOOL; stdcall;
  198. {$EXTERNALSYM CryptSetKeyIdentifierProperty}
  200. // When the following flag is set, the Key Identifier and all its properties
  201. // are deleted.
  203. const
  204.   CRYPT_KEYID_DELETE_FLAG = $00000010;
  205.   {$EXTERNALSYM CRYPT_KEYID_DELETE_FLAG}
  207. // When the following flag is set, the set fails if the property already
  208. // exists.
  210.   CRYPT_KEYID_SET_NEW_FLAG = $00002000;
  211.   {$EXTERNALSYM CRYPT_KEYID_SET_NEW_FLAG}
  213. //+-------------------------------------------------------------------------
  214. //  For CERT_KEY_PROV_INFO_PROP_ID, rgppvData[] points to a
  215. //  CRYPT_KEY_PROV_INFO.
  216. //
  217. //  Return FALSE to stop the enumeration.
  218. //--------------------------------------------------------------------------
  220. type
  221.   PFN_CRYPT_ENUM_KEYID_PROP = function (pKeyIdentifier: PCRYPT_HASH_BLOB;
  222.     dwFlags: DWORD; pvReserved: Pointer; pvArg: Pointer; cProp: DWORD;
  223.     rgdwPropId: LPDWORD; rgpvData: Pointer; rgcbData: LPDWORD): BOOL; stdcall;
  224.   {$EXTERNALSYM PFN_CRYPT_ENUM_KEYID_PROP}
  225.   PFnCryptEnumKeyIdProp = PFN_CRYPT_ENUM_KEYID_PROP;
  227. //+-------------------------------------------------------------------------
  228. //  Enumerate the Key Identifiers.
  229. //
  230. //  If pKeyIdentifier is NULL, enumerates all Key Identifers. Otherwise,
  231. //  calls the callback for the specified KeyIdentifier. If dwPropId is
  232. //  0, calls the callback with all the properties. Otherwise, only calls
  233. //  the callback with the specified property (cProp = 1).
  234. //  Furthermore, when dwPropId is specified, skips KeyIdentifiers not
  235. //  having the property.
  236. //
  237. //  Set CRYPT_KEYID_MACHINE_FLAG to enumerate the LocalMachine
  238. //  Key Identifiers. Set pwszComputerName, to enumerate Key Identifiers on
  239. //  a remote computer.
  240. //--------------------------------------------------------------------------
  242. function CryptEnumKeyIdentifierProperties(pKeyIdentifier: PCRYPT_HASH_BLOB;
  243.   dwPropId: DWORD; dwFlags: DWORD; pwszComputerName: LPCWSTR; pvReserved: Pointer;
  244.   pvArg: Pointer; pfnEnum: PFN_CRYPT_ENUM_KEYID_PROP): BOOL; stdcall;
  245. {$EXTERNALSYM CryptEnumKeyIdentifierProperties}
  247. //+-------------------------------------------------------------------------
  248. //  Create a KeyIdentifier from the CSP Public Key Blob.
  249. //
  250. //  Converts the CSP PUBLICKEYSTRUC into a X.509 CERT_PUBLIC_KEY_INFO and
  251. //  encodes. The encoded CERT_PUBLIC_KEY_INFO is SHA1 hashed to obtain
  252. //  the Key Identifier.
  253. //
  254. //  By default, the pPubKeyStruc->aiKeyAlg is used to find the appropriate
  255. //  public key Object Identifier. pszPubKeyOID can be set to override
  256. //  the default OID obtained from the aiKeyAlg.
  257. //--------------------------------------------------------------------------
  259. function CryptCreateKeyIdentifierFromCSP(dwCertEncodingType: DWORD;
  260.   pszPubKeyOID: LPCSTR; pPubKeyStruc: PPUBLICKEYSTRUC; cbPubKeyStruc: DWORD;
  261.   dwFlags: DWORD; pvReserved: Pointer; pbHash: LPBYTE; pcbHash: DWORD): BOOL; stdcall;
  262. {$EXTERNALSYM CryptCreateKeyIdentifierFromCSP}
  264. //+=========================================================================
  265. //  Certificate Chaining Infrastructure
  266. //==========================================================================
  268. //
  269. // The chain engine defines the store namespace and cache partitioning for
  270. // the Certificate Chaining infrastructure.  A default chain engine
  271. // is defined for the process which uses all default system stores e.g.
  272. // Root, CA, Trust, for chain building and caching.  If an application
  273. // wishes to define its own store namespace or have its own partitioned
  274. // cache then it can create its own chain engine.  It is advisable to create
  275. // a chain engine at application startup and use it throughout the lifetime
  276. // of the application in order to get optimal caching behavior
  277. //
  279. type
  280.   HCERTCHAINENGINE = HANDLE;
  281.   {$EXTERNALSYM HCERTCHAINENGINE}
  283. const
  284.   HCCE_CURRENT_USER  = HCERTCHAINENGINE(0);
  285.   {$EXTERNALSYM HCCE_CURRENT_USER}
  286.   HCCE_LOCAL_MACHINE = HCERTCHAINENGINE($1);
  287.   {$EXTERNALSYM HCCE_LOCAL_MACHINE}
  289. //
  290. // Create a certificate chain engine.
  291. //
  293. //
  294. // Configuration parameters for the certificate chain engine
  295. //
  296. //      hRestrictedRoot - restrict the root store (must be a subset of "Root")
  297. //
  298. //      hRestrictedTrust - restrict the store for CTLs
  299. //
  300. //      hRestrictedOther - restrict the store for certs and CRLs
  301. //
  302. //      cAdditionalStore, rghAdditionalStore - additional stores
  303. //
  304. //      NOTE: The algorithm used to define the stores for the engine is as
  305. //            follows:
  306. //
  307. //            hRoot = hRestrictedRoot or System Store "Root"
  308. //
  309. //            hTrust = hRestrictedTrust or hWorld (defined later)
  310. //
  311. //            hOther = hRestrictedOther or (hRestrictedTrust == NULL) ? hWorld :
  312. //                     hRestrictedTrust + hWorld
  313. //
  314. //            hWorld = hRoot + "CA" + "My" + "Trust" + rghAdditionalStore
  315. //
  316. //      dwFlags  - flags
  317. //
  318. //          CERT_CHAIN_CACHE_END_CERT - information will be cached on
  319. //                                      the end cert as well as the other
  320. //                                      certs in the chain
  321. //
  322. //          CERT_CHAIN_THREAD_STORE_SYNC - use separate thread for store syncs
  323. //                                         and related cache updates
  324. //
  325. //          CERT_CHAIN_CACHE_ONLY_URL_RETRIEVAL - don't hit the wire to get
  326. //                                                URL based objects
  327. //
  328. //      dwUrlRetrievalTimeout - timeout for wire based URL object retrievals
  329. //
  331. const
  332.   CERT_CHAIN_CACHE_END_CERT           = $00000001;
  333.   {$EXTERNALSYM CERT_CHAIN_CACHE_END_CERT}
  334.   CERT_CHAIN_THREAD_STORE_SYNC        = $00000002;
  335.   {$EXTERNALSYM CERT_CHAIN_THREAD_STORE_SYNC}
  336.   CERT_CHAIN_CACHE_ONLY_URL_RETRIEVAL = $00000004;
  337.   {$EXTERNALSYM CERT_CHAIN_CACHE_ONLY_URL_RETRIEVAL}
  338.   CERT_CHAIN_USE_LOCAL_MACHINE_STORE  = $00000008;
  339.   {$EXTERNALSYM CERT_CHAIN_USE_LOCAL_MACHINE_STORE}
  340.   CERT_CHAIN_ENABLE_CACHE_AUTO_UPDATE = $00000010;
  341.   {$EXTERNALSYM CERT_CHAIN_ENABLE_CACHE_AUTO_UPDATE}
  343. type
  344.   PCERT_CHAIN_ENGINE_CONFIG = ^CERT_CHAIN_ENGINE_CONFIG;
  345.   {$EXTERNALSYM PCERT_CHAIN_ENGINE_CONFIG}
  346.   _CERT_CHAIN_ENGINE_CONFIG = record
  347.     cbSize: DWORD;
  348.     hRestrictedRoot: HCERTSTORE;
  349.     hRestrictedTrust: HCERTSTORE;
  350.     hRestrictedOther: HCERTSTORE;
  351.     cAdditionalStore: DWORD;
  352.     rghAdditionalStore: PHCERTSTORE;
  353.     dwFlags: DWORD;
  354.     dwUrlRetrievalTimeout: DWORD;
  355.     MaximumCachedCertificates: DWORD;
  356.     CycleDetectionModulus: DWORD;
  357.   end;
  358.   {$EXTERNALSYM _CERT_CHAIN_ENGINE_CONFIG}
  359.   CERT_CHAIN_ENGINE_CONFIG = _CERT_CHAIN_ENGINE_CONFIG;
  360.   {$EXTERNALSYM CERT_CHAIN_ENGINE_CONFIG}
  361.   TCertChainEngineConfig = CERT_CHAIN_ENGINE_CONFIG;
  362.   PCertChainEngineConfig = PCERT_CHAIN_ENGINE_CONFIG;
  364. function CertCreateCertificateChainEngine(pConfig: PCERT_CHAIN_ENGINE_CONFIG;
  365.   var phChainEngine: HCERTCHAINENGINE): BOOL; stdcall;
  366. {$EXTERNALSYM CertCreateCertificateChainEngine}
  368. //
  369. // Free a certificate trust engine
  370. //
  372. procedure CertFreeCertificateChainEngine(hChainEngine: HCERTCHAINENGINE); stdcall;
  373. {$EXTERNALSYM CertFreeCertificateChainEngine}
  375. //
  376. // Resync the certificate chain engine.  This resync's the stores backing
  377. // the engine and updates the engine caches.
  378. //
  380. function CertResyncCertificateChainEngine(hChainEngine: HCERTCHAINENGINE): BOOL; stdcall;
  381. {$EXTERNALSYM CertResyncCertificateChainEngine}
  383. //
  384. // When an application requests a certificate chain, the data structure
  385. // returned is in the form of a CERT_CHAIN_CONTEXT.  This contains
  386. // an array of CERT_SIMPLE_CHAIN where each simple chain goes from
  387. // an end cert to a self signed cert and the chain context connects simple
  388. // chains via trust lists.  Each simple chain contains the chain of
  389. // certificates, summary trust information about the chain and trust information
  390. // about each certificate element in the chain.
  391. //
  393. //
  394. // Trust status bits
  395. //
  397. type
  398.   PCERT_TRUST_STATUS = ^CERT_TRUST_STATUS;
  399.   {$EXTERNALSYM PCERT_TRUST_STATUS}
  400.   _CERT_TRUST_STATUS = record
  401.     dwErrorStatus: DWORD;
  402.     dwInfoStatus: DWORD;
  403.   end;
  404.   {$EXTERNALSYM _CERT_TRUST_STATUS}
  405.   CERT_TRUST_STATUS = _CERT_TRUST_STATUS;
  406.   {$EXTERNALSYM CERT_TRUST_STATUS}
  407.   TCertTrustStatus = CERT_TRUST_STATUS;
  408.   PCertTrustStatus = PCERT_TRUST_STATUS;
  410. //
  411. // The following are error status bits
  412. //
  414. // These can be applied to certificates and chains
  416. const
  417.   CERT_TRUST_NO_ERROR                  = $00000000;
  418.   {$EXTERNALSYM CERT_TRUST_NO_ERROR}
  419.   CERT_TRUST_IS_NOT_TIME_VALID         = $00000001;
  420.   {$EXTERNALSYM CERT_TRUST_IS_NOT_TIME_VALID}
  421.   CERT_TRUST_IS_NOT_TIME_NESTED        = $00000002;
  422.   {$EXTERNALSYM CERT_TRUST_IS_NOT_TIME_NESTED}
  423.   CERT_TRUST_IS_REVOKED                = $00000004;
  424.   {$EXTERNALSYM CERT_TRUST_IS_REVOKED}
  425.   CERT_TRUST_IS_NOT_SIGNATURE_VALID    = $00000008;
  426.   {$EXTERNALSYM CERT_TRUST_IS_NOT_SIGNATURE_VALID}
  427.   CERT_TRUST_IS_NOT_VALID_FOR_USAGE    = $00000010;
  428.   {$EXTERNALSYM CERT_TRUST_IS_NOT_VALID_FOR_USAGE}
  429.   CERT_TRUST_IS_UNTRUSTED_ROOT         = $00000020;
  430.   {$EXTERNALSYM CERT_TRUST_IS_UNTRUSTED_ROOT}
  431.   CERT_TRUST_REVOCATION_STATUS_UNKNOWN = $00000040;
  432.   {$EXTERNALSYM CERT_TRUST_REVOCATION_STATUS_UNKNOWN}
  433.   CERT_TRUST_IS_CYCLIC                 = $00000080;
  434.   {$EXTERNALSYM CERT_TRUST_IS_CYCLIC}
  436. // These can be applied to chains only
  438.   CERT_TRUST_IS_PARTIAL_CHAIN           = $00010000;
  439.   {$EXTERNALSYM CERT_TRUST_IS_PARTIAL_CHAIN}
  440.   CERT_TRUST_CTL_IS_NOT_TIME_VALID      = $00020000;
  441.   {$EXTERNALSYM CERT_TRUST_CTL_IS_NOT_TIME_VALID}
  442.   CERT_TRUST_CTL_IS_NOT_SIGNATURE_VALID = $00040000;
  443.   {$EXTERNALSYM CERT_TRUST_CTL_IS_NOT_SIGNATURE_VALID}
  444.   CERT_TRUST_CTL_IS_NOT_VALID_FOR_USAGE = $00080000;
  445.   {$EXTERNALSYM CERT_TRUST_CTL_IS_NOT_VALID_FOR_USAGE}
  447. //
  448. // The following are info status bits
  449. //
  451. // These can be applied to certificates only
  453.   CERT_TRUST_HAS_EXACT_MATCH_ISSUER = $00000001;
  454.   {$EXTERNALSYM CERT_TRUST_HAS_EXACT_MATCH_ISSUER}
  455.   CERT_TRUST_HAS_KEY_MATCH_ISSUER   = $00000002;
  456.   {$EXTERNALSYM CERT_TRUST_HAS_KEY_MATCH_ISSUER}
  457.   CERT_TRUST_HAS_NAME_MATCH_ISSUER  = $00000004;
  458.   {$EXTERNALSYM CERT_TRUST_HAS_NAME_MATCH_ISSUER}
  459.   CERT_TRUST_IS_SELF_SIGNED         = $00000008;
  460.   {$EXTERNALSYM CERT_TRUST_IS_SELF_SIGNED}
  462. // These can be applied to chains only
  464.   CERT_TRUST_IS_COMPLEX_CHAIN = $00010000;
  465.   {$EXTERNALSYM CERT_TRUST_IS_COMPLEX_CHAIN}
  467. //
  468. // Each certificate context in a simple chain has a corresponding chain element
  469. // in the simple chain context
  470. //
  471. // dwErrorStatus has CERT_TRUST_IS_REVOKED, pRevocationInfo set
  472. // dwErrorStatus has CERT_TRUST_REVOCATION_STATUS_UNKNOWN, pRevocationInfo set
  474. //
  475. // BUGBUG: Note that the post processing revocation supported in the first
  476. //         version only sets cbSize and dwRevocationResult.  Everything else
  477. //         is NULL
  478. //
  480. //
  481. // Revocation Information
  482. //
  484. type
  485.   PCERT_REVOCATION_INFO = ^CERT_REVOCATION_INFO;
  486.   {$EXTERNALSYM PCERT_REVOCATION_INFO}
  487.   _CERT_REVOCATION_INFO = record
  488.     cbSize: DWORD;
  489.     dwRevocationResult: DWORD;
  490.     pszRevocationOid: LPCSTR;
  491.     pvOidSpecificInfo: LPVOID;
  492.   end;
  493.   {$EXTERNALSYM _CERT_REVOCATION_INFO}
  494.   CERT_REVOCATION_INFO = _CERT_REVOCATION_INFO;
  495.   {$EXTERNALSYM CERT_REVOCATION_INFO}
  496.   TCertRevocationInfo = CERT_REVOCATION_INFO;
  497.   PCertRevocationInfo = PCERT_REVOCATION_INFO;
  499. //
  500. // Trust List Information
  501. //
  503.   PCERT_TRUST_LIST_INFO = ^CERT_TRUST_LIST_INFO;
  504.   {$EXTERNALSYM PCERT_TRUST_LIST_INFO}
  505.   _CERT_TRUST_LIST_INFO = record
  506.     cbSize: DWORD;
  507.     pCtlEntry: PCTL_ENTRY;
  508.     pCtlContext: PCCTL_CONTEXT;
  509.   end;
  510.   {$EXTERNALSYM _CERT_TRUST_LIST_INFO}
  511.   CERT_TRUST_LIST_INFO = _CERT_TRUST_LIST_INFO;
  512.   {$EXTERNALSYM CERT_TRUST_LIST_INFO}
  513.   TCertTrustListInfo = CERT_TRUST_LIST_INFO;
  514.   PCertTrustListInfo = PCERT_TRUST_LIST_INFO;
  516. //
  517. // Chain Element
  518. //
  520.   PCERT_CHAIN_ELEMENT = ^CERT_CHAIN_ELEMENT;
  521.   {$EXTERNALSYM PCERT_CHAIN_ELEMENT}
  522.   _CERT_CHAIN_ELEMENT = record
  523.     cbSize: DWORD;
  524.     pCertContext: PCCERT_CONTEXT;
  525.     TrustStatus: CERT_TRUST_STATUS;
  526.     pRevocationInfo: PCERT_REVOCATION_INFO;
  527.   end;
  528.   {$EXTERNALSYM _CERT_CHAIN_ELEMENT}
  529.   CERT_CHAIN_ELEMENT = _CERT_CHAIN_ELEMENT;
  530.   {$EXTERNALSYM CERT_CHAIN_ELEMENT}
  531.   TCertChainElement = CERT_CHAIN_ELEMENT;
  532.   PCertChainElement = PCERT_CHAIN_ELEMENT;
  534. //
  535. // The simple chain is an array of chain elements and a summary trust status
  536. // for the chain
  537. //
  538. // rgpElements[0] is the end certificate chain element
  539. //
  540. // rgpElements[cElement-1] is the self-signed "root" certificate chain element
  541. //
  543.   PCERT_SIMPLE_CHAIN = ^CERT_SIMPLE_CHAIN;
  544.   {$EXTERNALSYM PCERT_SIMPLE_CHAIN}
  545.   _CERT_SIMPLE_CHAIN = record
  546.     cbSize: DWORD;
  547.     TrustStatus: CERT_TRUST_STATUS;
  548.     cElement: DWORD;
  549.     rgpElement: PCERT_CHAIN_ELEMENT;
  550.     pTrustListInfo: PCERT_TRUST_LIST_INFO;
  551.   end;
  552.   {$EXTERNALSYM _CERT_SIMPLE_CHAIN}
  553.   CERT_SIMPLE_CHAIN = _CERT_SIMPLE_CHAIN;
  554.   {$EXTERNALSYM CERT_SIMPLE_CHAIN}
  555.   TCertSimpleChain = CERT_SIMPLE_CHAIN;
  556.   PCertSimpleChain = PCERT_SIMPLE_CHAIN;
  558. //
  559. // And the chain context contains an array of simple chains and summary trust
  560. // status for all the connected simple chains
  561. //
  562. // rgpChains[0] is the end certificate simple chain
  563. //
  564. // rgpChains[cChain-1] is the final (possibly trust list signer) chain which
  565. // ends in a certificate which is contained in the root store
  566. //
  568.   PCERT_CHAIN_CONTEXT = ^CERT_CHAIN_CONTEXT;
  569.   {$EXTERNALSYM PCERT_CHAIN_CONTEXT}
  570.   _CERT_CHAIN_CONTEXT = record
  571.     cbSize: DWORD;
  572.     TrustStatus: CERT_TRUST_STATUS;
  573.     cChain: DWORD;
  574.     rgpChain: PCERT_SIMPLE_CHAIN;
  575.   end;
  576.   {$EXTERNALSYM _CERT_CHAIN_CONTEXT}
  577.   CERT_CHAIN_CONTEXT = _CERT_CHAIN_CONTEXT;
  578.   {$EXTERNALSYM CERT_CHAIN_CONTEXT}
  579.   TCertChainContext = CERT_CHAIN_CONTEXT;
  580.   PCertChainContext = PCERT_CHAIN_CONTEXT;
  582.   PCCERT_CHAIN_CONTEXT = ^CERT_CHAIN_CONTEXT;
  583.   {$EXTERNALSYM PCCERT_CHAIN_CONTEXT}
  584.   PPCCERT_CHAIN_CONTEXT = ^PCERT_CHAIN_CONTEXT;
  585.   {$NODEFINE PPCCERT_CHAIN_CONTEXT}
  587. //
  588. // When building a chain, the there are various parameters used for finding
  589. // issuing certificates and trust lists.  They are identified in the
  590. // following structure
  591. //
  593. // Default usage match type is AND with value zero
  595. const
  596.   USAGE_MATCH_TYPE_AND = $00000000;
  597.   {$EXTERNALSYM USAGE_MATCH_TYPE_AND}
  598.   USAGE_MATCH_TYPE_OR  = $00000001;
  599.   {$EXTERNALSYM USAGE_MATCH_TYPE_OR}
  601. type
  602.   PCERT_USAGE_MATCH = ^CERT_USAGE_MATCH;
  603.   {$EXTERNALSYM PCERT_USAGE_MATCH}
  604.   _CERT_USAGE_MATCH = record
  605.     dwType: DWORD;
  606.     Usage: CERT_ENHKEY_USAGE;
  607.   end;
  608.   {$EXTERNALSYM _CERT_USAGE_MATCH}
  609.   CERT_USAGE_MATCH = _CERT_USAGE_MATCH;
  610.   {$EXTERNALSYM CERT_USAGE_MATCH}
  611.   TCertUsageMatch = CERT_USAGE_MATCH;
  612.   PCertUsageMatch = PCERT_USAGE_MATCH;
  614.   PCTL_USAGE_MATCH = ^CTL_USAGE_MATCH;
  615.   {$EXTERNALSYM PCTL_USAGE_MATCH}
  616.   _CTL_USAGE_MATCH = record
  617.     dwType: DWORD;
  618.     Usage: CTL_USAGE;
  619.   end;
  620.   {$EXTERNALSYM _CTL_USAGE_MATCH}
  621.   CTL_USAGE_MATCH = _CTL_USAGE_MATCH;
  622.   {$EXTERNALSYM CTL_USAGE_MATCH}
  623.   TCtlUsageMatch = CTL_USAGE_MATCH;
  624.   PCtlUsageMatch = PCTL_USAGE_MATCH;
  626.   PCERT_CHAIN_PARA = ^CERT_CHAIN_PARA;
  627.   {$EXTERNALSYM PCERT_CHAIN_PARA}
  628.   _CERT_CHAIN_PARA = record
  629.     cbSize: DWORD;
  630.     RequestedUsage: CERT_USAGE_MATCH;
  631.   end;
  632.   {$EXTERNALSYM _CERT_CHAIN_PARA}
  633.   CERT_CHAIN_PARA = _CERT_CHAIN_PARA;
  634.   {$EXTERNALSYM CERT_CHAIN_PARA}
  635.   TCertChainPara = CERT_CHAIN_PARA;
  636.   PCertChainPara = PCERT_CHAIN_PARA;
  638. //
  639. // The following API is used for retrieving certificate chains
  640. //
  641. // Parameters:
  642. //
  643. //      hChainEngine     - the chain engine (namespace and cache) to use, NULL
  644. //                         mean use the default chain engine
  645. //
  646. //      pCertContext     - the context we are retrieving the chain for, it
  647. //                         will be the zero index element in the chain
  648. //
  649. //      pTime            - the point in time that we want the chain validated
  650. //                         for.  Note that the time does not affect trust list,
  651. //                         revocation, or root store checking.  NULL means use
  652. //                         the current system time
  653. //
  654. //      hAdditionalStore - additional store to use when looking up objects
  655. //
  656. //      pChainPara       - parameters for chain building
  657. //
  658. //      dwFlags          - flags such as should revocation checking be done
  659. //                         on the chain?
  660. //
  661. //      pvReserved       - reserved parameter, must be NULL
  662. //
  663. //      ppChainContext   - chain context returned
  664. //
  666. // CERT_CHAIN_CACHE_END_CERT can be used here as well
  667. // Revocation flags are in the high nibble
  669. const
  670.   CERT_CHAIN_REVOCATION_CHECK_END_CERT           = $10000000;
  671.   {$EXTERNALSYM CERT_CHAIN_REVOCATION_CHECK_END_CERT}
  672.   CERT_CHAIN_REVOCATION_CHECK_CHAIN              = $20000000;
  673.   {$EXTERNALSYM CERT_CHAIN_REVOCATION_CHECK_CHAIN}
  674.   CERT_CHAIN_REVOCATION_CHECK_CHAIN_EXCLUDE_ROOT = $40000000;
  675.   {$EXTERNALSYM CERT_CHAIN_REVOCATION_CHECK_CHAIN_EXCLUDE_ROOT}
  676.   CERT_CHAIN_REVOCATION_CHECK_CACHE_ONLY         = DWORD($80000000);
  677.   {$EXTERNALSYM CERT_CHAIN_REVOCATION_CHECK_CACHE_ONLY}
  679. function CertGetCertificateChain(hChainEngine: HCERTCHAINENGINE;
  680.   pCertContext: PCCERT_CONTEXT; pTime: LPFILETIME; hAdditionalStore: HCERTSTORE;
  681.   pChainPara: PCERT_CHAIN_PARA; dwFlags: DWORD; pvReserved: LPVOID;
  682.   ppChainContext: PPCCERT_CHAIN_CONTEXT): BOOL; stdcall;
  683. {$EXTERNALSYM CertGetCertificateChain}
  685. //
  686. // Free a certificate chain
  687. //
  689. procedure CertFreeCertificateChain(pChainContext: PCCERT_CHAIN_CONTEXT); stdcall;
  690. {$EXTERNALSYM CertFreeCertificateChain}
  692. //
  693. // Duplicate (add a reference to) a certificate chain
  694. //
  696. function CertDuplicateCertificateChain(pChainContext: PCCERT_CHAIN_CONTEXT): PCCERT_CHAIN_CONTEXT; stdcall;
  697. {$EXTERNALSYM CertDuplicateCertificateChain}
  699. //
  700. // Specific Revocation Type OID and structure definitions
  701. //
  703. //
  704. // CRL Revocation OID
  705. //
  707. const
  708.   REVOCATION_OID_CRL_REVOCATION = LPCSTR(1);
  709.   {$EXTERNALSYM REVOCATION_OID_CRL_REVOCATION}
  711. //
  712. // For the CRL revocation OID the pvRevocationPara is NULL
  713. //
  715. //
  716. // CRL Revocation Info
  717. //
  719. type
  720.   PCRL_REVOCATION_INFO = ^CRL_REVOCATION_INFO;
  721.   {$EXTERNALSYM PCRL_REVOCATION_INFO}
  722.   _CRL_REVOCATION_INFO = record
  723.     pCrlEntry: PCRL_ENTRY;
  724.     pCrlContext: PCCRL_CONTEXT;
  725.     pCrlIssuerChain: PCCERT_CHAIN_CONTEXT;
  726.   end;
  727.   {$EXTERNALSYM _CRL_REVOCATION_INFO}
  728.   CRL_REVOCATION_INFO = _CRL_REVOCATION_INFO;
  729.   {$EXTERNALSYM CRL_REVOCATION_INFO}
  730.   TCrlRevocationInfo = CRL_REVOCATION_INFO;
  731.   PCrlRevocationInfo = PCRL_REVOCATION_INFO;
  733. //+-------------------------------------------------------------------------
  734. //  Find the first or next certificate chain context in the store.
  735. //
  736. //  The chain context is found according to the dwFindFlags, dwFindType and
  737. //  its pvFindPara. See below for a list of the find types and its parameters.
  738. //
  739. //  If the first or next chain context isn't found, NULL is returned.
  740. //  Otherwise, a pointer to a read only CERT_CHAIN_CONTEXT is returned.
  741. //  CERT_CHAIN_CONTEXT must be freed by calling CertFreeCertificateChain
  742. //  or is freed when passed as the
  743. //  pPrevChainContext on a subsequent call. CertDuplicateCertificateChain
  744. //  can be called to make a duplicate.
  745. //
  746. //  pPrevChainContext MUST BE NULL on the first
  747. //  call to find the chain context. To find the next chain context, the
  748. //  pPrevChainContext is set to the CERT_CHAIN_CONTEXT returned by a previous
  749. //  call.
  750. //
  751. //  NOTE: a NON-NULL pPrevChainContext is always CertFreeCertificateChain'ed by
  752. //  this function, even for an error.
  753. //--------------------------------------------------------------------------
  755. function CertFindChainInStore(hCertStore: HCERTSTORE; dwCertEncodingType: DWORD;
  756.   dwFindFlags: DWORD; dwFindType: DWORD; pvFindPara: Pointer;
  757.   pPrevChainContext: PCCERT_CHAIN_CONTEXT): PCCERT_CHAIN_CONTEXT; stdcall;
  758. {$EXTERNALSYM CertFindChainInStore}
  760. const
  761.   CERT_CHAIN_FIND_BY_ISSUER = 1;
  762.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER}
  764. //+-------------------------------------------------------------------------
  765. //  CERT_CHAIN_FIND_BY_ISSUER
  766. //
  767. //  Find a certificate chain having a private key for the end certificate and
  768. //  matching one of the given issuer names. A matching dwKeySpec and
  769. //  enhanced key usage can also be specified. Additionally a callback can
  770. //  be provided for even more caller provided filtering before building the
  771. //  chain.
  772. //
  773. //  By default, only the issuers in the first simple chain are compared
  774. //  for a name match. CERT_CHAIN_FIND_BY_ISSUER_COMPLEX_CHAIN_FLAG can
  775. //  be set in dwFindFlags to match issuers in all the simple chains.
  776. //
  777. //  CERT_CHAIN_FIND_BY_ISSUER_NO_KEY_FLAG can be set in dwFindFlags to
  778. //  not check if the end certificate has a private key.
  779. //
  780. //  CERT_CHAIN_FIND_BY_ISSUER_COMPARE_KEY_FLAG can be set in dwFindFlags
  781. //  to compare the public key in the end certificate with the crypto
  782. //  provider's public key. The dwAcquirePrivateKeyFlags can be set
  783. //  in CERT_CHAIN_FIND_BY_ISSUER_PARA to enable caching of the private key's
  784. //  HKEY returned by the CSP.
  785. //
  786. //  If dwCertEncodingType == 0, defaults to X509_ASN_ENCODING for the
  787. //  array of encoded issuer names.
  788. //
  789. //  By default, the hCertStore passed to CertFindChainInStore, is passed
  790. //  as an additional store to CertGetCertificateChain.
  791. //  CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_FLAG can be set in dwFindFlags
  792. //  to improve performance by only searching the cached system stores
  793. //  (root, my, ca, trust) to find the issuer certificates. If you are doing
  794. //  a find in the "my" system store, than, this flag should be set to
  795. //  improve performance.
  796. //
  797. //  Setting CERT_CHAIN_FIND_BY_ISSUER_LOCAL_MACHINE_FLAG in dwFindFlags
  798. //  restricts CertGetCertificateChain to search the Local Machine
  799. //  cached system stores instead of the Current User's.
  800. //
  801. //  Setting CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_URL_FLAG in dwFindFlags
  802. //  restricts CertGetCertificateChain to only search the URL cache
  803. //  and not hit the wire.
  804. //--------------------------------------------------------------------------
  806. // Returns FALSE to skip this certificate. Otherwise, returns TRUE to
  807. // build a chain for this certificate.
  809. type
  810.   PFN_CERT_CHAIN_FIND_BY_ISSUER_CALLBACK = function (pCert: PCCERT_CONTEXT;
  811.     pvFindArg: Pointer): BOOL; stdcall;
  812.   {$EXTERNALSYM PFN_CERT_CHAIN_FIND_BY_ISSUER_CALLBACK}
  813.   PFnCertChainFindByIssuerCallback = PFN_CERT_CHAIN_FIND_BY_ISSUER_CALLBACK;
  815.   PCERT_CHAIN_FIND_BY_ISSUER_PARA = ^CERT_CHAIN_FIND_BY_ISSUER_PARA;
  816.   {$EXTERNALSYM PCERT_CHAIN_FIND_BY_ISSUER_PARA}
  817.   _CERT_CHAIN_FIND_BY_ISSUER_PARA = record
  818.     cbSize: DWORD;
  819.     // If pszUsageIdentifier == NULL, matches any usage.
  820.     pszUsageIdentifier: LPCSTR;
  821.     // If dwKeySpec == 0, matches any KeySpec
  822.     dwKeySpec: DWORD;
  823.     // When CERT_CHAIN_FIND_BY_ISSUER_COMPARE_KEY_FLAG is set in dwFindFlags,
  824.     // CryptAcquireCertificatePrivateKey is called to do the public key
  825.     // comparison. The following flags can be set to enable caching
  826.     // of the acquired private key. See the API for more details on these
  827.     // flags.
  828.     dwAcquirePrivateKeyFlags: DWORD;
  829.     // Pointer to an array of X509, ASN.1 encoded issuer name blobs. If
  830.     // cIssuer == 0, matches any issuer
  831.     cIssuer: DWORD;
  832.     rgIssuer: PCERT_NAME_BLOB;
  833.     // If NULL or Callback returns TRUE, builds the chain for the end
  834.     // certificate having a private key with the specified KeySpec and
  835.     // enhanced key usage.
  836.     pfnFindCallback: PFN_CERT_CHAIN_FIND_BY_ISSUER_CALLBACK;
  837.     pvFindArg: Pointer;
  838.   end;
  839.   {$EXTERNALSYM _CERT_CHAIN_FIND_BY_ISSUER_PARA}
  840.   CERT_CHAIN_FIND_BY_ISSUER_PARA = _CERT_CHAIN_FIND_BY_ISSUER_PARA;
  841.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_PARA}
  842.   TCertChainFindByIssuerPara = CERT_CHAIN_FIND_BY_ISSUER_PARA;
  843.   PCertChainFindByIssuerPara = PCERT_CHAIN_FIND_BY_ISSUER_PARA;
  845. // The following dwFindFlags can be set for CERT_CHAIN_FIND_BY_ISSUER
  847. // If set, compares the public key in the end certificate with the crypto
  848. // provider's public key. This comparison is the last check made on the
  849. // build chain.
  851. const
  852.   CERT_CHAIN_FIND_BY_ISSUER_COMPARE_KEY_FLAG = $0001;
  853.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_COMPARE_KEY_FLAG}
  855. // If not set, only checks the first simple chain for an issuer name match.
  856. // When set, also checks second and subsequent simple chains.
  858.   CERT_CHAIN_FIND_BY_ISSUER_COMPLEX_CHAIN_FLAG = $0002;
  859.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_COMPLEX_CHAIN_FLAG}
  861. // If set, CertGetCertificateChain only searches the URL cache and
  862. // doesn't hit the wire.
  864.   CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_URL_FLAG = $0004;
  865.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_URL_FLAG}
  867. // If set, CertGetCertificateChain only opens the Local Machine
  868. // certificate stores instead of the Current User's.
  870.   CERT_CHAIN_FIND_BY_ISSUER_LOCAL_MACHINE_FLAG = $0008;
  871.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_LOCAL_MACHINE_FLAG}
  873. // If set, no check is made to see if the end certificate has a private
  874. // key associated with it.
  876.   CERT_CHAIN_FIND_BY_ISSUER_NO_KEY_FLAG = $4000;
  877.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_NO_KEY_FLAG}
  879. // By default, the hCertStore passed to CertFindChainInStore, is passed
  880. // as the additional store to CertGetCertificateChain. This flag can be
  881. // set to improve performance by only searching the cached system stores
  882. // (root, my, ca, trust) to find the issuer certificates. If not set, then,
  883. // the hCertStore is always searched in addition to the cached system
  884. // stores.
  886.   CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_FLAG = $8000;
  887.   {$EXTERNALSYM CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_FLAG}
  889. //+=========================================================================
  890. //  Certificate Chain Policy Data Structures and APIs
  891. //==========================================================================
  893. type
  894.   PCERT_CHAIN_POLICY_PARA = ^CERT_CHAIN_POLICY_PARA;
  895.   {$EXTERNALSYM PCERT_CHAIN_POLICY_PARA}
  896.   _CERT_CHAIN_POLICY_PARA = record
  897.     cbSize: DWORD;
  898.     dwFlags: DWORD;
  899.     pvExtraPolicyPara: Pointer; // pszPolicyOID specific
  900.   end;
  901.   {$EXTERNALSYM _CERT_CHAIN_POLICY_PARA}
  902.   CERT_CHAIN_POLICY_PARA = _CERT_CHAIN_POLICY_PARA;
  903.   {$EXTERNALSYM CERT_CHAIN_POLICY_PARA}
  904.   TCertChainPolicyPara = CERT_CHAIN_POLICY_PARA;
  905.   PCertChainPolicyPara = PCERT_CHAIN_POLICY_PARA;
  907. // If both lChainIndex and lElementIndex are set to -1, the dwError applies
  908. // to the whole chain context. If only lElementIndex is set to -1, the
  909. // dwError applies to the lChainIndex'ed chain. Otherwise, the dwError applies
  910. // to the certificate element at
  911. // pChainContext->rgpChain[lChainIndex]->rgpElement[lElementIndex].
  913.   PCERT_CHAIN_POLICY_STATUS = ^CERT_CHAIN_POLICY_STATUS;
  914.   {$EXTERNALSYM PCERT_CHAIN_POLICY_STATUS}
  915.   _CERT_CHAIN_POLICY_STATUS = record
  916.     cbSize: DWORD;
  917.     dwError: DWORD;
  918.     lChainIndex: LONG;
  919.     lElementIndex: LONG;
  920.     pvExtraPolicyStatus: Pointer; // pszPolicyOID specific
  921.   end;
  922.   {$EXTERNALSYM _CERT_CHAIN_POLICY_STATUS}
  923.   CERT_CHAIN_POLICY_STATUS = _CERT_CHAIN_POLICY_STATUS;
  924.   {$EXTERNALSYM CERT_CHAIN_POLICY_STATUS}
  925.   TCertChainPolicyStatus = CERT_CHAIN_POLICY_STATUS;
  926.   PCertChainPolicyStatus = PCERT_CHAIN_POLICY_STATUS;
  928. // Common chain policy flags
  930. const
  931.   CERT_CHAIN_POLICY_IGNORE_NOT_TIME_VALID_FLAG     = $00000001;
  932.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_NOT_TIME_VALID_FLAG}
  933.   CERT_CHAIN_POLICY_IGNORE_CTL_NOT_TIME_VALID_FLAG = $00000002;
  934.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_CTL_NOT_TIME_VALID_FLAG}
  935.   CERT_CHAIN_POLICY_IGNORE_NOT_TIME_NESTED_FLAG    = $00000004;
  936.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_NOT_TIME_NESTED_FLAG}
  938.   CERT_CHAIN_POLICY_IGNORE_ALL_NOT_TIME_VALID_FLAGS = (
  939.     CERT_CHAIN_POLICY_IGNORE_NOT_TIME_VALID_FLAG or
  940.     CERT_CHAIN_POLICY_IGNORE_CTL_NOT_TIME_VALID_FLAG or
  941.     CERT_CHAIN_POLICY_IGNORE_NOT_TIME_NESTED_FLAG);
  942.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_ALL_NOT_TIME_VALID_FLAGS}
  944.   CERT_CHAIN_POLICY_ALLOW_UNKNOWN_CA_FLAG   = $00000010;
  945.   {$EXTERNALSYM CERT_CHAIN_POLICY_ALLOW_UNKNOWN_CA_FLAG}
  946.   CERT_CHAIN_POLICY_IGNORE_WRONG_USAGE_FLAG = $00000020;
  947.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_WRONG_USAGE_FLAG}
  949.   CERT_CHAIN_POLICY_IGNORE_END_REV_UNKNOWN_FLAG        = $00000100;
  950.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_END_REV_UNKNOWN_FLAG}
  951.   CERT_CHAIN_POLICY_IGNORE_CTL_SIGNER_REV_UNKNOWN_FLAG = $00000200;
  952.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_CTL_SIGNER_REV_UNKNOWN_FLAG}
  953.   CERT_CHAIN_POLICY_IGNORE_CA_REV_UNKNOWN_FLAG         = $00000400;
  954.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_CA_REV_UNKNOWN_FLAG}
  955.   CERT_CHAIN_POLICY_IGNORE_ROOT_REV_UNKNOWN_FLAG       = $00000800;
  956.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_ROOT_REV_UNKNOWN_FLAG}
  958.   CERT_CHAIN_POLICY_IGNORE_ALL_REV_UNKNOWN_FLAGS = (
  959.     CERT_CHAIN_POLICY_IGNORE_END_REV_UNKNOWN_FLAG or
  960.     CERT_CHAIN_POLICY_IGNORE_CTL_SIGNER_REV_UNKNOWN_FLAG or
  961.     CERT_CHAIN_POLICY_IGNORE_CA_REV_UNKNOWN_FLAG or
  962.     CERT_CHAIN_POLICY_IGNORE_ROOT_REV_UNKNOWN_FLAG);
  963.   {$EXTERNALSYM CERT_CHAIN_POLICY_IGNORE_ALL_REV_UNKNOWN_FLAGS}
  965.   CERT_CHAIN_POLICY_ALLOW_TESTROOT_FLAG = $00008000;
  966.   {$EXTERNALSYM CERT_CHAIN_POLICY_ALLOW_TESTROOT_FLAG}
  967.   CERT_CHAIN_POLICY_TRUST_TESTROOT_FLAG = $00004000;
  968.   {$EXTERNALSYM CERT_CHAIN_POLICY_TRUST_TESTROOT_FLAG}
  970. //+-------------------------------------------------------------------------
  971. //  Verify that the certificate chain satisfies the specified policy
  972. //  requirements. If we were able to verify the chain policy, TRUE is returned
  973. //  and the dwError field of the pPolicyStatus is updated. A dwError of 0
  974. //  (ERROR_SUCCESS, S_OK) indicates the chain satisfies the specified policy.
  975. //
  976. //  If dwError applies to the entire chain context, both lChainIndex and
  977. //  lElementIndex are set to -1. If dwError applies to a simple chain,
  978. //  lElementIndex is set to -1 and lChainIndex is set to the index of the
  979. //  first offending chain having the error. If dwError applies to a
  980. //  certificate element, lChainIndex and lElementIndex are updated to
  981. //  index the first offending certificate having the error, where, the
  982. //  the certificate element is at:
  983. //      pChainContext->rgpChain[lChainIndex]->rgpElement[lElementIndex].
  984. //
  985. //  The dwFlags in pPolicyPara can be set to change the default policy checking
  986. //  behaviour. In addition, policy specific parameters can be passed in
  987. //  the pvExtraPolicyPara field of pPolicyPara.
  988. //
  989. //  In addition to returning dwError, in pPolicyStatus, policy OID specific
  990. //  extra status may be returned via pvExtraPolicyStatus.
  991. //--------------------------------------------------------------------------
  993. function CertVerifyCertificateChainPolicy(pszPolicyOID: LPCSTR;
  994.   pChainContext: PCCERT_CHAIN_CONTEXT; pPolicyPara: PCERT_CHAIN_POLICY_PARA;
  995.   pPolicyStatus: PCERT_CHAIN_POLICY_STATUS): BOOL; stdcall;
  996. {$EXTERNALSYM CertVerifyCertificateChainPolicy}
  998. // Predefined OID Function Names
  1000. const
  1001.   CRYPT_OID_VERIFY_CERTIFICATE_CHAIN_POLICY_FUNC = 'CertDllVerifyCertificateChainPolicy';
  1002.   {$EXTERNALSYM CRYPT_OID_VERIFY_CERTIFICATE_CHAIN_POLICY_FUNC}
  1004. // CertDllVerifyCertificateChainPolicy has same function signature as
  1005. // CertVerifyCertificateChainPolicy.
  1007. //+-------------------------------------------------------------------------
  1008. //  Predefined verify chain policies
  1009. //--------------------------------------------------------------------------
  1011.   CERT_CHAIN_POLICY_BASE              = LPCSTR(1);
  1012.   {$EXTERNALSYM CERT_CHAIN_POLICY_BASE}
  1013.   CERT_CHAIN_POLICY_AUTHENTICODE      = LPCSTR(2);
  1014.   {$EXTERNALSYM CERT_CHAIN_POLICY_AUTHENTICODE}
  1015.   CERT_CHAIN_POLICY_AUTHENTICODE_TS   = LPCSTR(3);
  1016.   {$EXTERNALSYM CERT_CHAIN_POLICY_AUTHENTICODE_TS}
  1017.   CERT_CHAIN_POLICY_SSL               = LPCSTR(4);
  1018.   {$EXTERNALSYM CERT_CHAIN_POLICY_SSL}
  1019.   CERT_CHAIN_POLICY_BASIC_CONSTRAINTS = LPCSTR(5);
  1020.   {$EXTERNALSYM CERT_CHAIN_POLICY_BASIC_CONSTRAINTS}
  1021.   CERT_CHAIN_POLICY_NT_AUTH           = LPCSTR(6);
  1022.   {$EXTERNALSYM CERT_CHAIN_POLICY_NT_AUTH}
  1024. //+-------------------------------------------------------------------------
  1025. //  CERT_CHAIN_POLICY_BASE
  1026. //
  1027. //  Implements the base chain policy verification checks. dwFlags can
  1028. //  be set in pPolicyPara to alter the default policy checking behaviour.
  1029. //--------------------------------------------------------------------------
  1031. //+-------------------------------------------------------------------------
  1032. //  CERT_CHAIN_POLICY_AUTHENTICODE
  1033. //
  1034. //  Implements the Authenticode chain policy verification checks.
  1035. //
  1036. //  pvExtraPolicyPara may optionally be set to point to the following
  1037. //  AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA.
  1038. //
  1039. //  pvExtraPolicyStatus may optionally be set to point to the following
  1040. //  AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS.
  1041. //--------------------------------------------------------------------------
  1043. // dwRegPolicySettings are defined in wintrust.h
  1045. type
  1046.   PAUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA = ^AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA;
  1047.   {$EXTERNALSYM PAUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA}
  1048.   _AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA = record
  1049.     cbSize: DWORD;
  1050.     dwRegPolicySettings: DWORD;
  1051.     pSignerInfo: PCMSG_SIGNER_INFO; // optional
  1052.   end;
  1053.   {$EXTERNALSYM _AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA}
  1054.   AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA = _AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA;
  1055.   {$EXTERNALSYM AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA}
  1056.   TAuthenticodeExtraCertChainPolicyPara = AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA;
  1057.   PAuthenticodeExtraCertChainPolicyPara = PAUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_PARA;
  1059.   PAUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS = ^AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS;
  1060.   {$EXTERNALSYM PAUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS}
  1061.   _AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS = record
  1062.     cbSize: DWORD;
  1063.     fCommercial: BOOL; // obtained from signer statement
  1064.   end;
  1065.   {$EXTERNALSYM _AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS}
  1066.   AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS = _AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS;
  1067.   {$EXTERNALSYM AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS}
  1068.   TAuthenticodeExtraCertChainPolicyStatus = AUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS;
  1069.   PAuthenticodeExtraCertChainPolicyStatus = PAUTHENTICODE_EXTRA_CERT_CHAIN_POLICY_STATUS;
  1071. //+-------------------------------------------------------------------------
  1072. //  CERT_CHAIN_POLICY_AUTHENTICODE_TS
  1073. //
  1074. //  Implements the Authenticode Time Stamp chain policy verification checks.
  1075. //
  1076. //  pvExtraPolicyPara may optionally be set to point to the following
  1077. //  AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA.
  1078. //
  1079. //  pvExtraPolicyStatus isn't used and must be set to NULL.
  1080. //--------------------------------------------------------------------------
  1082. // dwRegPolicySettings are defined in wintrust.h
  1084.   PAUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA = ^AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA;
  1085.   {$EXTERNALSYM PAUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA}
  1086.   _AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA = record
  1087.     cbSize: DWORD;
  1088.     dwRegPolicySettings: DWORD;
  1089.     fCommercial: BOOL;
  1090.   end;
  1091.   {$EXTERNALSYM _AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA}
  1092.   AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA = _AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA;
  1093.   {$EXTERNALSYM AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA}
  1094.   TAuthenticodeTsExtraCertChainPolicyPara = AUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA;
  1095.   PAuthenticodeTsExtraCertChainPolicyPara = PAUTHENTICODE_TS_EXTRA_CERT_CHAIN_POLICY_PARA;
  1097. //+-------------------------------------------------------------------------
  1098. //  CERT_CHAIN_POLICY_SSL
  1099. //
  1100. //  Implements the SSL client/server chain policy verification checks.
  1101. //
  1102. //  pvExtraPolicyPara may optionally be set to point to the following
  1103. //  SSL_EXTRA_CERT_CHAIN_POLICY_PARA data structure
  1104. //--------------------------------------------------------------------------
  1106. // fdwChecks flags are defined in wininet.h
  1108. const
  1109.   AUTHTYPE_CLIENT = 1;
  1110.   {$EXTERNALSYM AUTHTYPE_CLIENT}
  1111.   AUTHTYPE_SERVER = 2;
  1112.   {$EXTERNALSYM AUTHTYPE_SERVER}
  1114. type
  1115.   PHTTPSPolicyCallbackData = ^HTTPSPolicyCallbackData;
  1116.   {$EXTERNALSYM PHTTPSPolicyCallbackData}
  1117.   _HTTPSPolicyCallbackData = record
  1118.     //union {
  1119.     //cbStruct: DWORD; // sizeof(HTTPSPolicyCallbackData);
  1120.     cbSize: DWORD; // sizeof(HTTPSPolicyCallbackData);
  1121.     //};
  1122.     dwAuthType: DWORD;
  1123.     fdwChecks: DWORD;
  1124.     pwszServerName: PWCHAR; // used to check against CN=xxxx
  1125.   end;
  1126.   {$EXTERNALSYM _HTTPSPolicyCallbackData}
  1127.   HTTPSPolicyCallbackData = _HTTPSPolicyCallbackData;
  1128.   {$EXTERNALSYM HTTPSPolicyCallbackData}
  1129.   THttpsPolicyCallbackData = HTTPSPolicyCallbackData;
  1131.   SSL_EXTRA_CERT_CHAIN_POLICY_PARA = HTTPSPolicyCallbackData;
  1132.   {$EXTERNALSYM SSL_EXTRA_CERT_CHAIN_POLICY_PARA}
  1133.   PSSL_EXTRA_CERT_CHAIN_POLICY_PARA = PHTTPSPolicyCallbackData;
  1134.   {$EXTERNALSYM PSSL_EXTRA_CERT_CHAIN_POLICY_PARA}
  1135.   TSSLExtraCertChainPolicyPara = SSL_EXTRA_CERT_CHAIN_POLICY_PARA;
  1136.   PSSLExtraCertChainPolicyPara = PSSL_EXTRA_CERT_CHAIN_POLICY_PARA;
  1138. //+-------------------------------------------------------------------------
  1139. //  CERT_CHAIN_POLICY_BASIC_CONSTRAINTS
  1140. //
  1141. //  Implements the basic constraints chain policy.
  1142. //
  1143. //  Iterates through all the certificates in the chain checking for either
  1144. //  a szOID_BASIC_CONSTRAINTS or a szOID_BASIC_CONSTRAINTS2 extension. If
  1145. //  neither extension is present, the certificate is assumed to have
  1146. //  valid policy. Otherwise, for the first certificate element, checks if
  1147. //  it matches the expected CA_FLAG or END_ENTITY_FLAG specified in
  1148. //  pPolicyPara->dwFlags. If neither or both flags are set, then, the first
  1149. //  element can be either a CA or END_ENTITY. All other elements must be
  1150. //  a CA. If the PathLenConstraint is present in the extension, its
  1151. //  checked.
  1152. //
  1153. //  The first elements in the remaining simple chains (ie, the certificate
  1154. //  used to sign the CTL) are checked to be an END_ENTITY.
  1155. //
  1156. //  If this verification fails, dwError will be set to
  1157. //  TRUST_E_BASIC_CONSTRAINTS.
  1158. //--------------------------------------------------------------------------
  1160. const
  1161.   BASIC_CONSTRAINTS_CERT_CHAIN_POLICY_CA_FLAG         = DWORD($80000000);
  1162.   {$EXTERNALSYM BASIC_CONSTRAINTS_CERT_CHAIN_POLICY_CA_FLAG}
  1163.   BASIC_CONSTRAINTS_CERT_CHAIN_POLICY_END_ENTITY_FLAG = $40000000;
  1164.   {$EXTERNALSYM BASIC_CONSTRAINTS_CERT_CHAIN_POLICY_END_ENTITY_FLAG}
  1166. //+-------------------------------------------------------------------------
  1167. //  CERT_CHAIN_POLICY_NT_AUTH
  1168. //
  1169. //  Implements the NT Authentication chain policy.
  1170. //
  1171. //  The NT Authentication chain policy consists of 3 distinct chain
  1172. //  verifications in the following order:
  1173. //      [1] CERT_CHAIN_POLICY_BASE - Implements the base chain policy
  1174. //          verification checks. The LOWORD of dwFlags can be set in
  1175. //          pPolicyPara to alter the default policy checking behaviour. See
  1176. //          CERT_CHAIN_POLICY_BASE for more details.
  1177. //
  1178. //      [2] CERT_CHAIN_POLICY_BASIC_CONSTRAINTS - Implements the basic
  1179. //          constraints chain policy. The HIWORD of dwFlags can be set
  1180. //          to specify if the first element must be either a CA or END_ENTITY.
  1181. //          See CERT_CHAIN_POLICY_BASIC_CONSTRAINTS for more details.
  1182. //
  1183. //      [3] Checks if the second element in the chain, the CA that issued
  1184. //          the end certificate, is a trusted CA for NT
  1185. //          Authentication. A CA is considered to be trusted if it exists in
  1186. //          the "NTAuth" system registry store found in the
  1187. //          CERT_SYSTEM_STORE_LOCAL_MACHINE_ENTERPRISE store location.
  1188. //          If this verification fails, whereby the CA isn't trusted,
  1189. //          dwError is set to CERT_E_UNTRUSTEDCA.
  1190. //--------------------------------------------------------------------------
  1192. implementation
  1194. function GET_ALG_CLASS(x: DWORD): DWORD;
  1195. begin
  1196.   Result := (x and (7 shl 13));
  1197. end;
  1199. function GET_ALG_TYPE(x: DWORD): DWORD;
  1200. begin
  1201.   Result := (x and (15 shl 9));
  1202. end;
  1204. function GET_ALG_SID(x: DWORD): DWORD;
  1205. begin
  1206.   Result := x and 511;
  1207. end;
  1209. function RCRYPT_SUCCEEDED(rt: BOOL): BOOL;
  1210. begin
  1211.   Result := (rt = CRYPT_SUCCEED);
  1212. end;
  1214. function RCRYPT_FAILED(rt: BOOL): BOOL;
  1215. begin
  1216.   Result := (rt = CRYPT_FAILED)
  1217. end;
  1219. function IS_CERT_RDN_CHAR_STRING(X: DWORD): Boolean;
  1220. begin
  1221.   Result := (X and CERT_RDN_TYPE_MASK) >= CERT_RDN_NUMERIC_STRING;
  1222. end;
  1224. function GET_CERT_ENCODING_TYPE(X: DWORD): DWORD;
  1225. begin
  1226.   Result := X and CERT_ENCODING_TYPE_MASK;
  1227. end;
  1229. function GET_CMSG_ENCODING_TYPE(X: DWORD): DWORD;
  1230. begin
  1231.   Result := X and CMSG_ENCODING_TYPE_MASK;
  1232. end;
  1234. function GET_CERT_UNICODE_RDN_ERR_INDEX(X: DWORD): DWORD;
  1235. begin
  1236.   Result := (X shr CERT_UNICODE_RDN_ERR_INDEX_SHIFT) and CERT_UNICODE_RDN_ERR_INDEX_MASK;
  1237. end;
  1239. function GET_CERT_UNICODE_ATTR_ERR_INDEX(X: DWORD): DWORD;
  1240. begin
  1241.   Result := (X shr CERT_UNICODE_ATTR_ERR_INDEX_SHIFT) and CERT_UNICODE_ATTR_ERR_INDEX_MASK;
  1242. end;
  1244. function GET_CERT_UNICODE_VALUE_ERR_INDEX(X: DWORD): DWORD;
  1245. begin
  1246.   Result := X and CERT_UNICODE_VALUE_ERR_INDEX_MASK;
  1247. end;
  1249. function GET_CERT_ALT_NAME_ENTRY_ERR_INDEX(X: DWORD): DWORD;
  1250. begin
  1251.   Result := (X shr CERT_ALT_NAME_ENTRY_ERR_INDEX_SHIFT) and CERT_ALT_NAME_ENTRY_ERR_INDEX_MASK;
  1252. end;
  1254. function GET_CERT_ALT_NAME_VALUE_ERR_INDEX(X: DWORD): DWORD;
  1255. begin
  1256.   Result := X and CERT_ALT_NAME_VALUE_ERR_INDEX_MASK;
  1257. end;
  1259. function IS_CRL_DIST_POINT_ERR_CRL_ISSUER(X: DWORD): Boolean;
  1260. begin
  1261.   Result := (X and CRL_DIST_POINT_ERR_CRL_ISSUER_BIT) <> 0;
  1262. end;
  1264. function GET_CRL_DIST_POINT_ERR_INDEX(X: DWORD): DWORD;
  1265. begin
  1266.   Result := ((X shr CRL_DIST_POINT_ERR_INDEX_SHIFT) and CRL_DIST_POINT_ERR_INDEX_MASK);
  1267. end;
  1269. function IS_CERT_HASH_PROP_ID(X: DWORD): Boolean;
  1270. begin
  1271.   Result := (CERT_SHA1_HASH_PROP_ID = X) or (CERT_MD5_HASH_PROP_ID = X) or
  1272.     (CERT_SIGNATURE_HASH_PROP_ID = X);
  1273. end;
  1275. const
  1276.   crypt32 = 'crypt32.dll';
  1277.   advapi32 = 'advapi32.dll';
  1278.   softpub = 'softpub.dll';
  1281. {$IFDEF DYNAMIC_LINK}
  1282. var
  1283.   _CryptAcquireContextA: Pointer;
  1285. function CryptAcquireContextA;
  1286. begin
  1287.   GetProcedureAddress(_CryptAcquireContextA, advapi32, 'CryptAcquireContextA');
  1288.   asm
  1289.     mov esp, ebp
  1290.     pop ebp
  1291.     jmp [_CryptAcquireContextA]
  1292.   end;
  1293. end;
  1294. {$ELSE}
  1295. function CryptAcquireContextA; external advapi32 name 'CryptAcquireContextA';
  1296. {$ENDIF DYNAMIC_LINK}
  1298. {$IFDEF DYNAMIC_LINK}
  1299. var
  1300.   _CryptAcquireContextW: Pointer;
  1302. function CryptAcquireContextW;
  1303. begin
  1304.   GetProcedureAddress(_CryptAcquireContextW, advapi32, 'CryptAcquireContextW');
  1305.   asm
  1306.     mov esp, ebp
  1307.     pop ebp
  1308.     jmp [_CryptAcquireContextW]
  1309.   end;
  1310. end;
  1311. {$ELSE}
  1312. function CryptAcquireContextW; external advapi32 name 'CryptAcquireContextW';
  1313. {$ENDIF DYNAMIC_LINK}
  1314. {$IFDEF UNICODE}
  1316. {$IFDEF DYNAMIC_LINK}
  1317. var
  1318.   _CryptAcquireContext: Pointer;
  1320. function CryptAcquireContext;
  1321. begin
  1322.   GetProcedureAddress(_CryptAcquireContext, advapi32, 'CryptAcquireContextW');
  1323.   asm
  1324.     mov esp, ebp
  1325.     pop ebp
  1326.     jmp [_CryptAcquireContext]
  1327.   end;
  1328. end;
  1329. {$ELSE}
  1330. function CryptAcquireContext; external advapi32 name 'CryptAcquireContextW';
  1331. {$ENDIF DYNAMIC_LINK}
  1332. {$ELSE}
  1334. {$IFDEF DYNAMIC_LINK}
  1335. var
  1336.   _CryptAcquireContext: Pointer;
  1338. function CryptAcquireContext;
  1339. begin
  1340.   GetProcedureAddress(_CryptAcquireContext, advapi32, 'CryptAcquireContextA');
  1341.   asm
  1342.     mov esp, ebp
  1343.     pop ebp
  1344.     jmp [_CryptAcquireContext]
  1345.   end;
  1346. end;
  1347. {$ELSE}
  1348. function CryptAcquireContext; external advapi32 name 'CryptAcquireContextA';
  1349. {$ENDIF DYNAMIC_LINK}
  1350. {$ENDIF}
  1352. {$IFDEF DYNAMIC_LINK}
  1353. var
  1354.   _CryptReleaseContext: Pointer;
  1356. function CryptReleaseContext;
  1357. begin
  1358.   GetProcedureAddress(_CryptReleaseContext, advapi32, 'CryptReleaseContext');
  1359.   asm
  1360.     mov esp, ebp
  1361.     pop ebp
  1362.     jmp [_CryptReleaseContext]
  1363.   end;
  1364. end;
  1365. {$ELSE}
  1366. function CryptReleaseContext; external advapi32 name 'CryptReleaseContext';
  1367. {$ENDIF DYNAMIC_LINK}
  1369. {$IFDEF DYNAMIC_LINK}
  1370. var
  1371.   _CryptGenKey: Pointer;
  1373. function CryptGenKey;
  1374. begin
  1375.   GetProcedureAddress(_CryptGenKey, advapi32, 'CryptGenKey');
  1376.   asm
  1377.     mov esp, ebp
  1378.     pop ebp
  1379.     jmp [_CryptGenKey]
  1380.   end;
  1381. end;
  1382. {$ELSE}
  1383. function CryptGenKey; external advapi32 name 'CryptGenKey';
  1384. {$ENDIF DYNAMIC_LINK}
  1386. {$IFDEF DYNAMIC_LINK}
  1387. var
  1388.   _CryptDeriveKey: Pointer;
  1390. function CryptDeriveKey;
  1391. begin
  1392.   GetProcedureAddress(_CryptDeriveKey, advapi32, 'CryptDeriveKey');
  1393.   asm
  1394.     mov esp, ebp
  1395.     pop ebp
  1396.     jmp [_CryptDeriveKey]
  1397.   end;
  1398. end;
  1399. {$ELSE}
  1400. function CryptDeriveKey; external advapi32 name 'CryptDeriveKey';
  1401. {$ENDIF DYNAMIC_LINK}
  1403. {$IFDEF DYNAMIC_LINK}
  1404. var
  1405.   _CryptDestroyKey: Pointer;
  1407. function CryptDestroyKey;
  1408. begin
  1409.   GetProcedureAddress(_CryptDestroyKey, advapi32, 'CryptDestroyKey');
  1410.   asm
  1411.     mov esp, ebp
  1412.     pop ebp
  1413.     jmp [_CryptDestroyKey]
  1414.   end;
  1415. end;
  1416. {$ELSE}
  1417. function CryptDestroyKey; external advapi32 name 'CryptDestroyKey';
  1418. {$ENDIF DYNAMIC_LINK}
  1420. {$IFDEF DYNAMIC_LINK}
  1421. var
  1422.   _CryptSetKeyParam: Pointer;
  1424. function CryptSetKeyParam;
  1425. begin
  1426.   GetProcedureAddress(_CryptSetKeyParam, crypt32, 'CryptSetKeyParam');
  1427.   asm
  1428.     mov esp, ebp
  1429.     pop ebp
  1430.     jmp [_CryptSetKeyParam]
  1431.   end;
  1432. end;
  1433. {$ELSE}
  1434. function CryptSetKeyParam; external crypt32 name 'CryptSetKeyParam';
  1435. {$ENDIF DYNAMIC_LINK}
  1437. {$IFDEF DYNAMIC_LINK}
  1438. var
  1439.   _CryptGetKeyParam: Pointer;
  1441. function CryptGetKeyParam;
  1442. begin
  1443.   GetProcedureAddress(_CryptGetKeyParam, advapi32, 'CryptGetKeyParam');
  1444.   asm
  1445.     mov esp, ebp
  1446.     pop ebp
  1447.     jmp [_CryptGetKeyParam]
  1448.   end;
  1449. end;
  1450. {$ELSE}
  1451. function CryptGetKeyParam; external advapi32 name 'CryptGetKeyParam';
  1452. {$ENDIF DYNAMIC_LINK}
  1454. {$IFDEF DYNAMIC_LINK}
  1455. var
  1456.   _CryptSetHashParam: Pointer;
  1458. function CryptSetHashParam;
  1459. begin
  1460.   GetProcedureAddress(_CryptSetHashParam, advapi32, 'CryptSetHashParam');
  1461.   asm
  1462.     mov esp, ebp
  1463.     pop ebp
  1464.     jmp [_CryptSetHashParam]
  1465.   end;
  1466. end;
  1467. {$ELSE}
  1468. function CryptSetHashParam; external advapi32 name 'CryptSetHashParam';
  1469. {$ENDIF DYNAMIC_LINK}
  1471. {$IFDEF DYNAMIC_LINK}
  1472. var
  1473.   _CryptGetHashParam: Pointer;
  1475. function CryptGetHashParam;
  1476. begin
  1477.   GetProcedureAddress(_CryptGetHashParam, advapi32, 'CryptGetHashParam');
  1478.   asm
  1479.     mov esp, ebp
  1480.     pop ebp
  1481.     jmp [_CryptGetHashParam]
  1482.   end;
  1483. end;
  1484. {$ELSE}
  1485. function CryptGetHashParam; external advapi32 name 'CryptGetHashParam';
  1486. {$ENDIF DYNAMIC_LINK}
  1488. {$IFDEF DYNAMIC_LINK}
  1489. var
  1490.   _CryptSetProvParam: Pointer;
  1492. function CryptSetProvParam;
  1493. begin
  1494.   GetProcedureAddress(_CryptSetProvParam, advapi32, 'CryptSetProvParam');
  1495.   asm
  1496.     mov esp, ebp
  1497.     pop ebp
  1498.     jmp [_CryptSetProvParam]
  1499.   end;
  1500. end;
  1501. {$ELSE}
  1502. function CryptSetProvParam; external advapi32 name 'CryptSetProvParam';
  1503. {$ENDIF DYNAMIC_LINK}
  1505. {$IFDEF DYNAMIC_LINK}
  1506. var
  1507.   _CryptGetProvParam: Pointer;
  1509. function CryptGetProvParam;
  1510. begin
  1511.   GetProcedureAddress(_CryptGetProvParam, advapi32, 'CryptGetProvParam');
  1512.   asm
  1513.     mov esp, ebp
  1514.     pop ebp
  1515.     jmp [_CryptGetProvParam]
  1516.   end;
  1517. end;
  1518. {$ELSE}
  1519. function CryptGetProvParam; external advapi32 name 'CryptGetProvParam';
  1520. {$ENDIF DYNAMIC_LINK}
  1522. {$IFDEF DYNAMIC_LINK}
  1523. var
  1524.   _CryptGenRandom: Pointer;
  1526. function CryptGenRandom;
  1527. begin
  1528.   GetProcedureAddress(_CryptGenRandom, advapi32, 'CryptGenRandom');
  1529.   asm
  1530.     mov esp, ebp
  1531.     pop ebp
  1532.     jmp [_CryptGenRandom]
  1533.   end;
  1534. end;
  1535. {$ELSE}
  1536. function CryptGenRandom; external advapi32 name 'CryptGenRandom';
  1537. {$ENDIF DYNAMIC_LINK}
  1539. {$IFDEF DYNAMIC_LINK}
  1540. var
  1541.   _CryptGetUserKey: Pointer;
  1543. function CryptGetUserKey;
  1544. begin
  1545.   GetProcedureAddress(_CryptGetUserKey, advapi32, 'CryptGetUserKey');
  1546.   asm
  1547.     mov esp, ebp
  1548.     pop ebp
  1549.     jmp [_CryptGetUserKey]
  1550.   end;
  1551. end;
  1552. {$ELSE}
  1553. function CryptGetUserKey; external advapi32 name 'CryptGetUserKey';
  1554. {$ENDIF DYNAMIC_LINK}
  1556. {$IFDEF DYNAMIC_LINK}
  1557. var
  1558.   _CryptExportKey: Pointer;
  1560. function CryptExportKey;
  1561. begin
  1562.   GetProcedureAddress(_CryptExportKey, advapi32, 'CryptExportKey');
  1563.   asm
  1564.     mov esp, ebp
  1565.     pop ebp
  1566.     jmp [_CryptExportKey]
  1567.   end;
  1568. end;
  1569. {$ELSE}
  1570. function CryptExportKey; external advapi32 name 'CryptExportKey';
  1571. {$ENDIF DYNAMIC_LINK}
  1573. {$IFDEF DYNAMIC_LINK}
  1574. var
  1575.   _CryptImportKey: Pointer;
  1577. function CryptImportKey;
  1578. begin
  1579.   GetProcedureAddress(_CryptImportKey, advapi32, 'CryptImportKey');
  1580.   asm
  1581.     mov esp, ebp
  1582.     pop ebp
  1583.     jmp [_CryptImportKey]
  1584.   end;
  1585. end;
  1586. {$ELSE}
  1587. function CryptImportKey; external advapi32 name 'CryptImportKey';
  1588. {$ENDIF DYNAMIC_LINK}
  1590. {$IFDEF DYNAMIC_LINK}
  1591. var
  1592.   _CryptEncrypt: Pointer;
  1594. function CryptEncrypt;
  1595. begin
  1596.   GetProcedureAddress(_CryptEncrypt, advapi32, 'CryptEncrypt');
  1597.   asm
  1598.     mov esp, ebp
  1599.     pop ebp
  1600.     jmp [_CryptEncrypt]
  1601.   end;
  1602. end;
  1603. {$ELSE}
  1604. function CryptEncrypt; external advapi32 name 'CryptEncrypt';
  1605. {$ENDIF DYNAMIC_LINK}
  1607. {$IFDEF DYNAMIC_LINK}
  1608. var
  1609.   _CryptDecrypt: Pointer;
  1611. function CryptDecrypt;
  1612. begin
  1613.   GetProcedureAddress(_CryptDecrypt, advapi32, 'CryptDecrypt');
  1614.   asm
  1615.     mov esp, ebp
  1616.     pop ebp
  1617.     jmp [_CryptDecrypt]
  1618.   end;
  1619. end;
  1620. {$ELSE}
  1621. function CryptDecrypt; external advapi32 name 'CryptDecrypt';
  1622. {$ENDIF DYNAMIC_LINK}
  1624. {$IFDEF DYNAMIC_LINK}
  1625. var
  1626.   _CryptCreateHash: Pointer;
  1628. function CryptCreateHash;
  1629. begin
  1630.   GetProcedureAddress(_CryptCreateHash, advapi32, 'CryptCreateHash');
  1631.   asm
  1632.     mov esp, ebp
  1633.     pop ebp
  1634.     jmp [_CryptCreateHash]
  1635.   end;
  1636. end;
  1637. {$ELSE}
  1638. function CryptCreateHash; external advapi32 name 'CryptCreateHash';
  1639. {$ENDIF DYNAMIC_LINK}
  1641. {$IFDEF DYNAMIC_LINK}
  1642. var
  1643.   _CryptHashData: Pointer;
  1645. function CryptHashData;
  1646. begin
  1647.   GetProcedureAddress(_CryptHashData, advapi32, 'CryptHashData');
  1648.   asm
  1649.     mov esp, ebp
  1650.     pop ebp
  1651.     jmp [_CryptHashData]
  1652.   end;
  1653. end;
  1654. {$ELSE}
  1655. function CryptHashData; external advapi32 name 'CryptHashData';
  1656. {$ENDIF DYNAMIC_LINK}
  1658. {$IFDEF DYNAMIC_LINK}
  1659. var
  1660.   _CryptHashSessionKey: Pointer;
  1662. function CryptHashSessionKey;
  1663. begin
  1664.   GetProcedureAddress(_CryptHashSessionKey, advapi32, 'CryptHashSessionKey');
  1665.   asm
  1666.     mov esp, ebp
  1667.     pop ebp
  1668.     jmp [_CryptHashSessionKey]
  1669.   end;
  1670. end;
  1671. {$ELSE}
  1672. function CryptHashSessionKey; external advapi32 name 'CryptHashSessionKey';
  1673. {$ENDIF DYNAMIC_LINK}
  1675. {$IFDEF DYNAMIC_LINK}
  1676. var
  1677.   _CryptDestroyHash: Pointer;
  1679. function CryptDestroyHash;
  1680. begin
  1681.   GetProcedureAddress(_CryptDestroyHash, advapi32, 'CryptDestroyHash');
  1682.   asm
  1683.     mov esp, ebp
  1684.     pop ebp
  1685.     jmp [_CryptDestroyHash]
  1686.   end;
  1687. end;
  1688. {$ELSE}
  1689. function CryptDestroyHash; external advapi32 name 'CryptDestroyHash';
  1690. {$ENDIF DYNAMIC_LINK}
  1692. {$IFDEF DYNAMIC_LINK}
  1693. var
  1694.   _CryptSignHashA: Pointer;
  1696. function CryptSignHashA;
  1697. begin
  1698.   GetProcedureAddress(_CryptSignHashA, advapi32, 'CryptSignHashA');
  1699.   asm
  1700.     mov esp, ebp
  1701.     pop ebp
  1702.     jmp [_CryptSignHashA]
  1703.   end;
  1704. end;
  1705. {$ELSE}
  1706. function CryptSignHashA; external advapi32 name 'CryptSignHashA';
  1707. {$ENDIF DYNAMIC_LINK}
  1709. {$IFDEF DYNAMIC_LINK}
  1710. var
  1711.   _CryptSignHashW: Pointer;
  1713. function CryptSignHashW;
  1714. begin
  1715.   GetProcedureAddress(_CryptSignHashW, advapi32, 'CryptSignHashW');
  1716.   asm
  1717.     mov esp, ebp
  1718.     pop ebp
  1719.     jmp [_CryptSignHashW]
  1720.   end;
  1721. end;
  1722. {$ELSE}
  1723. function CryptSignHashW; external advapi32 name 'CryptSignHashW';
  1724. {$ENDIF DYNAMIC_LINK}
  1725. {$IFDEF UNICODE}
  1727. {$IFDEF DYNAMIC_LINK}
  1728. var
  1729.   _CryptSignHash: Pointer;
  1731. function CryptSignHash;
  1732. begin
  1733.   GetProcedureAddress(_CryptSignHash, advapi32, 'CryptSignHashW');
  1734.   asm
  1735.     mov esp, ebp
  1736.     pop ebp
  1737.     jmp [_CryptSignHash]
  1738.   end;
  1739. end;
  1740. {$ELSE}
  1741. function CryptSignHash; external advapi32 name 'CryptSignHashW';
  1742. {$ENDIF DYNAMIC_LINK}
  1743. {$ELSE}
  1745. {$IFDEF DYNAMIC_LINK}
  1746. var
  1747.   _CryptSignHash: Pointer;
  1749. function CryptSignHash;
  1750. begin
  1751.   GetProcedureAddress(_CryptSignHash, advapi32, 'CryptSignHashA');
  1752.   asm
  1753.     mov esp, ebp
  1754.     pop ebp
  1755.     jmp [_CryptSignHash]
  1756.   end;
  1757. end;
  1758. {$ELSE}
  1759. function CryptSignHash; external advapi32 name 'CryptSignHashA';
  1760. {$ENDIF DYNAMIC_LINK}
  1761. {$ENDIF}
  1763. {$IFDEF DYNAMIC_LINK}
  1764. var
  1765.   _CryptVerifySignatureA: Pointer;
  1767. function CryptVerifySignatureA;
  1768. begin
  1769.   GetProcedureAddress(_CryptVerifySignatureA, advapi32, 'CryptVerifySignatureA');
  1770.   asm
  1771.     mov esp, ebp
  1772.     pop ebp
  1773.     jmp [_CryptVerifySignatureA]
  1774.   end;
  1775. end;
  1776. {$ELSE}
  1777. function CryptVerifySignatureA; external advapi32 name 'CryptVerifySignatureA';
  1778. {$ENDIF DYNAMIC_LINK}
  1780. {$IFDEF DYNAMIC_LINK}
  1781. var
  1782.   _CryptVerifySignatureW: Pointer;
  1784. function CryptVerifySignatureW;
  1785. begin
  1786.   GetProcedureAddress(_CryptVerifySignatureW, advapi32, 'CryptVerifySignatureW');
  1787.   asm
  1788.     mov esp, ebp
  1789.     pop ebp
  1790.     jmp [_CryptVerifySignatureW]
  1791.   end;
  1792. end;
  1793. {$ELSE}
  1794. function CryptVerifySignatureW; external advapi32 name 'CryptVerifySignatureW';
  1795. {$ENDIF DYNAMIC_LINK}
  1796. {$IFDEF UNICODE}
  1798. {$IFDEF DYNAMIC_LINK}
  1799. var
  1800.   _CryptVerifySignature: Pointer;
  1802. function CryptVerifySignature;
  1803. begin
  1804.   GetProcedureAddress(_CryptVerifySignature, advapi32, 'CryptVerifySignatureW');
  1805.   asm
  1806.     mov esp, ebp
  1807.     pop ebp
  1808.     jmp [_CryptVerifySignature]
  1809.   end;
  1810. end;
  1811. {$ELSE}
  1812. function CryptVerifySignature; external advapi32 name 'CryptVerifySignatureW';
  1813. {$ENDIF DYNAMIC_LINK}
  1814. {$ELSE}
  1816. {$IFDEF DYNAMIC_LINK}
  1817. var
  1818.   _CryptVerifySignature: Pointer;
  1820. function CryptVerifySignature;
  1821. begin
  1822.   GetProcedureAddress(_CryptVerifySignature, advapi32, 'CryptVerifySignatureA');
  1823.   asm
  1824.     mov esp, ebp
  1825.     pop ebp
  1826.     jmp [_CryptVerifySignature]
  1827.   end;
  1828. end;
  1829. {$ELSE}
  1830. function CryptVerifySignature; external advapi32 name 'CryptVerifySignatureA';
  1831. {$ENDIF DYNAMIC_LINK}
  1832. {$ENDIF}
  1834. {$IFDEF DYNAMIC_LINK}
  1835. var
  1836.   _CryptSetProviderA: Pointer;
  1838. function CryptSetProviderA;
  1839. begin
  1840.   GetProcedureAddress(_CryptSetProviderA, advapi32, 'CryptSetProviderA');
  1841.   asm
  1842.     mov esp, ebp
  1843.     pop ebp
  1844.     jmp [_CryptSetProviderA]
  1845.   end;
  1846. end;
  1847. {$ELSE}
  1848. function CryptSetProviderA; external advapi32 name 'CryptSetProviderA';
  1849. {$ENDIF DYNAMIC_LINK}
  1851. {$IFDEF DYNAMIC_LINK}
  1852. var
  1853.   _CryptSetProviderW: Pointer;
  1855. function CryptSetProviderW;
  1856. begin
  1857.   GetProcedureAddress(_CryptSetProviderW, advapi32, 'CryptSetProviderW');
  1858.   asm
  1859.     mov esp, ebp
  1860.     pop ebp
  1861.     jmp [_CryptSetProviderW]
  1862.   end;
  1863. end;
  1864. {$ELSE}
  1865. function CryptSetProviderW; external advapi32 name 'CryptSetProviderW';
  1866. {$ENDIF DYNAMIC_LINK}
  1867. {$IFDEF UNICODE}
  1869. {$IFDEF DYNAMIC_LINK}
  1870. var
  1871.   _CryptSetProvider: Pointer;
  1873. function CryptSetProvider;
  1874. begin
  1875.   GetProcedureAddress(_CryptSetProvider, advapi32, 'CryptSetProviderW');
  1876.   asm
  1877.     mov esp, ebp
  1878.     pop ebp
  1879.     jmp [_CryptSetProvider]
  1880.   end;
  1881. end;
  1882. {$ELSE}
  1883. function CryptSetProvider; external advapi32 name 'CryptSetProviderW';
  1884. {$ENDIF DYNAMIC_LINK}
  1885. {$ELSE}
  1887. {$IFDEF DYNAMIC_LINK}
  1888. var
  1889.   _CryptSetProvider: Pointer;
  1891. function CryptSetProvider;
  1892. begin
  1893.   GetProcedureAddress(_CryptSetProvider, advapi32, 'CryptSetProviderA');
  1894.   asm
  1895.     mov esp, ebp
  1896.     pop ebp
  1897.     jmp [_CryptSetProvider]
  1898.   end;
  1899. end;
  1900. {$ELSE}
  1901. function CryptSetProvider; external advapi32 name 'CryptSetProviderA';
  1902. {$ENDIF DYNAMIC_LINK}
  1903. {$ENDIF}
  1905. {$IFDEF DYNAMIC_LINK}
  1906. var
  1907.   _CryptSetProviderExA: Pointer;
  1909. function CryptSetProviderExA;
  1910. begin
  1911.   GetProcedureAddress(_CryptSetProviderExA, advapi32, 'CryptSetProviderExA');
  1912.   asm
  1913.     mov esp, ebp
  1914.     pop ebp
  1915.     jmp [_CryptSetProviderExA]
  1916.   end;
  1917. end;
  1918. {$ELSE}
  1919. function CryptSetProviderExA; external advapi32 name 'CryptSetProviderExA';
  1920. {$ENDIF DYNAMIC_LINK}
  1922. {$IFDEF DYNAMIC_LINK}
  1923. var
  1924.   _CryptSetProviderExW: Pointer;
  1926. function CryptSetProviderExW;
  1927. begin
  1928.   GetProcedureAddress(_CryptSetProviderExW, advapi32, 'CryptSetProviderExW');
  1929.   asm
  1930.     mov esp, ebp
  1931.     pop ebp
  1932.     jmp [_CryptSetProviderExW]
  1933.   end;
  1934. end;
  1935. {$ELSE}
  1936. function CryptSetProviderExW; external advapi32 name 'CryptSetProviderExW';
  1937. {$ENDIF DYNAMIC_LINK}
  1938. {$IFDEF UNICODE}
  1940. {$IFDEF DYNAMIC_LINK}
  1941. var
  1942.   _CryptSetProviderEx: Pointer;
  1944. function CryptSetProviderEx;
  1945. begin
  1946.   GetProcedureAddress(_CryptSetProviderEx, advapi32, 'CryptSetProviderExW');
  1947.   asm
  1948.     mov esp, ebp
  1949.     pop ebp
  1950.     jmp [_CryptSetProviderEx]
  1951.   end;
  1952. end;
  1953. {$ELSE}
  1954. function CryptSetProviderEx; external advapi32 name 'CryptSetProviderExW';
  1955. {$ENDIF DYNAMIC_LINK}
  1956. {$ELSE}
  1958. {$IFDEF DYNAMIC_LINK}
  1959. var
  1960.   _CryptSetProviderEx: Pointer;
  1962. function CryptSetProviderEx;
  1963. begin
  1964.   GetProcedureAddress(_CryptSetProviderEx, advapi32, 'CryptSetProviderExA');
  1965.   asm
  1966.     mov esp, ebp
  1967.     pop ebp
  1968.     jmp [_CryptSetProviderEx]
  1969.   end;
  1970. end;
  1971. {$ELSE}
  1972. function CryptSetProviderEx; external advapi32 name 'CryptSetProviderExA';
  1973. {$ENDIF DYNAMIC_LINK}
  1974. {$ENDIF}
  1976. {$IFDEF DYNAMIC_LINK}
  1977. var
  1978.   _CryptGetDefaultProviderA: Pointer;
  1980. function CryptGetDefaultProviderA;
  1981. begin
  1982.   GetProcedureAddress(_CryptGetDefaultProviderA, advapi32, 'CryptGetDefaultProviderA');
  1983.   asm
  1984.     mov esp, ebp
  1985.     pop ebp
  1986.     jmp [_CryptGetDefaultProviderA]
  1987.   end;
  1988. end;
  1989. {$ELSE}
  1990. function CryptGetDefaultProviderA; external advapi32 name 'CryptGetDefaultProviderA';
  1991. {$ENDIF DYNAMIC_LINK}
  1993. {$IFDEF DYNAMIC_LINK}
  1994. var
  1995.   _CryptGetDefaultProviderW: Pointer;
  1997. function CryptGetDefaultProviderW;
  1998. begin
  1999.   GetProcedureAddress(_CryptGetDefaultProviderW, advapi32, 'CryptGetDefaultProviderW');
  2000.   asm
  2001.     mov esp, ebp
  2002.     pop ebp
  2003.     jmp [_CryptGetDefaultProviderW]
  2004.   end;
  2005. end;
  2006. {$ELSE}
  2007. function CryptGetDefaultProviderW; external advapi32 name 'CryptGetDefaultProviderW';
  2008. {$ENDIF DYNAMIC_LINK}
  2009. {$IFDEF UNICODE}
  2011. {$IFDEF DYNAMIC_LINK}
  2012. var
  2013.   _CryptGetDefaultProvider: Pointer;
  2015. function CryptGetDefaultProvider;
  2016. begin
  2017.   GetProcedureAddress(_CryptGetDefaultProvider, advapi32, 'CryptGetDefaultProviderW');
  2018.   asm
  2019.     mov esp, ebp
  2020.     pop ebp
  2021.     jmp [_CryptGetDefaultProvider]
  2022.   end;
  2023. end;
  2024. {$ELSE}
  2025. function CryptGetDefaultProvider; external advapi32 name 'CryptGetDefaultProviderW';
  2026. {$ENDIF DYNAMIC_LINK}
  2027. {$ELSE}
  2029. {$IFDEF DYNAMIC_LINK}
  2030. var
  2031.   _CryptGetDefaultProvider: Pointer;
  2033. function CryptGetDefaultProvider;
  2034. begin
  2035.   GetProcedureAddress(_CryptGetDefaultProvider, advapi32, 'CryptGetDefaultProviderA');
  2036.   asm
  2037.     mov esp, ebp
  2038.     pop ebp
  2039.     jmp [_CryptGetDefaultProvider]
  2040.   end;
  2041. end;
  2042. {$ELSE}
  2043. function CryptGetDefaultProvider; external advapi32 name 'CryptGetDefaultProviderA';
  2044. {$ENDIF DYNAMIC_LINK}
  2045. {$ENDIF}
  2047. {$IFDEF DYNAMIC_LINK}
  2048. var
  2049.   _CryptEnumProviderTypesA: Pointer;
  2051. function CryptEnumProviderTypesA;
  2052. begin
  2053.   GetProcedureAddress(_CryptEnumProviderTypesA, advapi32, 'CryptEnumProviderTypesA');
  2054.   asm
  2055.     mov esp, ebp
  2056.     pop ebp
  2057.     jmp [_CryptEnumProviderTypesA]
  2058.   end;
  2059. end;
  2060. {$ELSE}
  2061. function CryptEnumProviderTypesA; external advapi32 name 'CryptEnumProviderTypesA';
  2062. {$ENDIF DYNAMIC_LINK}
  2064. {$IFDEF DYNAMIC_LINK}
  2065. var
  2066.   _CryptEnumProviderTypesW: Pointer;
  2068. function CryptEnumProviderTypesW;
  2069. begin
  2070.   GetProcedureAddress(_CryptEnumProviderTypesW, advapi32, 'CryptEnumProviderTypesW');
  2071.   asm
  2072.     mov esp, ebp
  2073.     pop ebp
  2074.     jmp [_CryptEnumProviderTypesW]
  2075.   end;
  2076. end;
  2077. {$ELSE}
  2078. function CryptEnumProviderTypesW; external advapi32 name 'CryptEnumProviderTypesW';
  2079. {$ENDIF DYNAMIC_LINK}
  2080. {$IFDEF UNICODE}
  2082. {$IFDEF DYNAMIC_LINK}
  2083. var
  2084.   _CryptEnumProviderTypes: Pointer;
  2086. function CryptEnumProviderTypes;
  2087. begin
  2088.   GetProcedureAddress(_CryptEnumProviderTypes, advapi32, 'CryptEnumProviderTypesW');
  2089.   asm
  2090.     mov esp, ebp
  2091.     pop ebp
  2092.     jmp [_CryptEnumProviderTypes]
  2093.   end;
  2094. end;
  2095. {$ELSE}
  2096. function CryptEnumProviderTypes; external advapi32 name 'CryptEnumProviderTypesW';
  2097. {$ENDIF DYNAMIC_LINK}
  2098. {$ELSE}
  2100. {$IFDEF DYNAMIC_LINK}
  2101. var
  2102.   _CryptEnumProviderTypes: Pointer;
  2104. function CryptEnumProviderTypes;
  2105. begin
  2106.   GetProcedureAddress(_CryptEnumProviderTypes, advapi32, 'CryptEnumProviderTypesA');
  2107.   asm
  2108.     mov esp, ebp
  2109.     pop ebp
  2110.     jmp [_CryptEnumProviderTypes]
  2111.   end;
  2112. end;
  2113. {$ELSE}
  2114. function CryptEnumProviderTypes; external advapi32 name 'CryptEnumProviderTypesA';
  2115. {$ENDIF DYNAMIC_LINK}
  2116. {$ENDIF}
  2118. {$IFDEF DYNAMIC_LINK}
  2119. var
  2120.   _CryptEnumProvidersA: Pointer;
  2122. function CryptEnumProvidersA;
  2123. begin
  2124.   GetProcedureAddress(_CryptEnumProvidersA, advapi32, 'CryptEnumProvidersA');
  2125.   asm
  2126.     mov esp, ebp
  2127.     pop ebp
  2128.     jmp [_CryptEnumProvidersA]
  2129.   end;
  2130. end;
  2131. {$ELSE}
  2132. function CryptEnumProvidersA; external advapi32 name 'CryptEnumProvidersA';
  2133. {$ENDIF DYNAMIC_LINK}
  2135. {$IFDEF DYNAMIC_LINK}
  2136. var
  2137.   _CryptEnumProvidersW: Pointer;
  2139. function CryptEnumProvidersW;
  2140. begin
  2141.   GetProcedureAddress(_CryptEnumProvidersW, advapi32, 'CryptEnumProvidersW');
  2142.   asm
  2143.     mov esp, ebp
  2144.     pop ebp
  2145.     jmp [_CryptEnumProvidersW]
  2146.   end;
  2147. end;
  2148. {$ELSE}
  2149. function CryptEnumProvidersW; external advapi32 name 'CryptEnumProvidersW';
  2150. {$ENDIF DYNAMIC_LINK}
  2151. {$IFDEF UNICODE}
  2153. {$IFDEF DYNAMIC_LINK}
  2154. var
  2155.   _CryptEnumProviders: Pointer;
  2157. function CryptEnumProviders;
  2158. begin
  2159.   GetProcedureAddress(_CryptEnumProviders, advapi32, 'CryptEnumProvidersW');
  2160.   asm
  2161.     mov esp, ebp
  2162.     pop ebp
  2163.     jmp [_CryptEnumProviders]
  2164.   end;
  2165. end;
  2166. {$ELSE}
  2167. function CryptEnumProviders; external advapi32 name 'CryptEnumProvidersW';
  2168. {$ENDIF DYNAMIC_LINK}
  2169. {$ELSE}
  2171. {$IFDEF DYNAMIC_LINK}
  2172. var
  2173.   _CryptEnumProviders: Pointer;
  2175. function CryptEnumProviders;
  2176. begin
  2177.   GetProcedureAddress(_CryptEnumProviders, advapi32, 'CryptEnumProvidersA');
  2178.   asm
  2179.     mov esp, ebp
  2180.     pop ebp
  2181.     jmp [_CryptEnumProviders]
  2182.   end;
  2183. end;
  2184. {$ELSE}
  2185. function CryptEnumProviders; external advapi32 name 'CryptEnumProvidersA';
  2186. {$ENDIF DYNAMIC_LINK}
  2187. {$ENDIF}
  2189. {$IFDEF DYNAMIC_LINK}
  2190. var
  2191.   _CryptContextAddRef: Pointer;
  2193. function CryptContextAddRef;
  2194. begin
  2195.   GetProcedureAddress(_CryptContextAddRef, advapi32, 'CryptContextAddRef');
  2196.   asm
  2197.     mov esp, ebp
  2198.     pop ebp
  2199.     jmp [_CryptContextAddRef]
  2200.   end;
  2201. end;
  2202. {$ELSE}
  2203. function CryptContextAddRef; external advapi32 name 'CryptContextAddRef';
  2204. {$ENDIF DYNAMIC_LINK}
  2206. {$IFDEF DYNAMIC_LINK}
  2207. var
  2208.   _CryptDuplicateKey: Pointer;
  2210. function CryptDuplicateKey;
  2211. begin
  2212.   GetProcedureAddress(_CryptDuplicateKey, advapi32, 'CryptDuplicateKey');
  2213.   asm
  2214.     mov esp, ebp
  2215.     pop ebp
  2216.     jmp [_CryptDuplicateKey]
  2217.   end;
  2218. end;
  2219. {$ELSE}
  2220. function CryptDuplicateKey; external advapi32 name 'CryptDuplicateKey';
  2221. {$ENDIF DYNAMIC_LINK}
  2223. {$IFDEF DYNAMIC_LINK}
  2224. var
  2225.   _CryptDuplicateHash: Pointer;
  2227. function CryptDuplicateHash;
  2228. begin
  2229.   GetProcedureAddress(_CryptDuplicateHash, advapi32, 'CryptDuplicateHash');
  2230.   asm
  2231.     mov esp, ebp
  2232.     pop ebp
  2233.     jmp [_CryptDuplicateHash]
  2234.   end;
  2235. end;
  2236. {$ELSE}
  2237. function CryptDuplicateHash; external advapi32 name 'CryptDuplicateHash';
  2238. {$ENDIF DYNAMIC_LINK}
  2241. {$IFDEF DYNAMIC_LINK}
  2242. var
  2243.   _CryptFormatObject: Pointer;
  2245. function CryptFormatObject;
  2246. begin
  2247.   GetProcedureAddress(_CryptFormatObject, crypt32, 'CryptFormatObject');
  2248.   asm
  2249.     mov esp, ebp
  2250.     pop ebp
  2251.     jmp [_CryptFormatObject]
  2252.   end;
  2253. end;
  2254. {$ELSE}
  2255. function CryptFormatObject; external crypt32 name 'CryptFormatObject';
  2256. {$ENDIF DYNAMIC_LINK}
  2258. {$IFDEF DYNAMIC_LINK}
  2259. var
  2260.   _CryptEncodeObjectEx: Pointer;
  2262. function CryptEncodeObjectEx;
  2263. begin
  2264.   GetProcedureAddress(_CryptEncodeObjectEx, crypt32, 'CryptEncodeObjectEx');
  2265.   asm
  2266.     mov esp, ebp
  2267.     pop ebp
  2268.     jmp [_CryptEncodeObjectEx]
  2269.   end;
  2270. end;
  2271. {$ELSE}
  2272. function CryptEncodeObjectEx; external crypt32 name 'CryptEncodeObjectEx';
  2273. {$ENDIF DYNAMIC_LINK}
  2275. {$IFDEF DYNAMIC_LINK}
  2276. var
  2277.   _CryptEncodeObject: Pointer;
  2279. function CryptEncodeObject;
  2280. begin
  2281.   GetProcedureAddress(_CryptEncodeObject, crypt32, 'CryptEncodeObject');
  2282.   asm
  2283.     mov esp, ebp
  2284.     pop ebp
  2285.     jmp [_CryptEncodeObject]
  2286.   end;
  2287. end;
  2288. {$ELSE}
  2289. function CryptEncodeObject; external crypt32 name 'CryptEncodeObject';
  2290. {$ENDIF DYNAMIC_LINK}
  2292. {$IFDEF DYNAMIC_LINK}
  2293. var
  2294.   _CryptDecodeObjectEx: Pointer;
  2296. function CryptDecodeObjectEx;
  2297. begin
  2298.   GetProcedureAddress(_CryptDecodeObjectEx, crypt32, 'CryptDecodeObjectEx');
  2299.   asm
  2300.     mov esp, ebp
  2301.     pop ebp
  2302.     jmp [_CryptDecodeObjectEx]
  2303.   end;
  2304. end;
  2305. {$ELSE}
  2306. function CryptDecodeObjectEx; external crypt32 name 'CryptDecodeObjectEx';
  2307. {$ENDIF DYNAMIC_LINK}
  2309. {$IFDEF DYNAMIC_LINK}
  2310. var
  2311.   _CryptDecodeObject: Pointer;
  2313. function CryptDecodeObject;
  2314. begin
  2315.   GetProcedureAddress(_CryptDecodeObject, crypt32, 'CryptDecodeObject');
  2316.   asm
  2317.     mov esp, ebp
  2318.     pop ebp
  2319.     jmp [_CryptDecodeObject]
  2320.   end;
  2321. end;
  2322. {$ELSE}
  2323. function CryptDecodeObject; external crypt32 name 'CryptDecodeObject';
  2324. {$ENDIF DYNAMIC_LINK}
  2326. {$IFDEF DYNAMIC_LINK}
  2327. var
  2328.   _CryptInstallOIDFunctionAddress: Pointer;
  2330. function CryptInstallOIDFunctionAddress;
  2331. begin
  2332.   GetProcedureAddress(_CryptInstallOIDFunctionAddress, crypt32, 'CryptInstallOIDFunctionAddress');
  2333.   asm
  2334.     mov esp, ebp
  2335.     pop ebp
  2336.     jmp [_CryptInstallOIDFunctionAddress]
  2337.   end;
  2338. end;
  2339. {$ELSE}
  2340. function CryptInstallOIDFunctionAddress; external crypt32 name 'CryptInstallOIDFunctionAddress';
  2341. {$ENDIF DYNAMIC_LINK}
  2343. {$IFDEF DYNAMIC_LINK}
  2344. var
  2345.   _CryptInitOIDFunctionSet: Pointer;
  2347. function CryptInitOIDFunctionSet;
  2348. begin
  2349.   GetProcedureAddress(_CryptInitOIDFunctionSet, crypt32, 'CryptInitOIDFunctionSet');
  2350.   asm
  2351.     mov esp, ebp
  2352.     pop ebp
  2353.     jmp [_CryptInitOIDFunctionSet]
  2354.   end;
  2355. end;
  2356. {$ELSE}
  2357. function CryptInitOIDFunctionSet; external crypt32 name 'CryptInitOIDFunctionSet';
  2358. {$ENDIF DYNAMIC_LINK}
  2360. {$IFDEF DYNAMIC_LINK}
  2361. var
  2362.   _CryptGetOIDFunctionAddress: Pointer;
  2364. function CryptGetOIDFunctionAddress;
  2365. begin
  2366.   GetProcedureAddress(_CryptGetOIDFunctionAddress, crypt32, 'CryptGetOIDFunctionAddress');
  2367.   asm
  2368.     mov esp, ebp
  2369.     pop ebp
  2370.     jmp [_CryptGetOIDFunctionAddress]
  2371.   end;
  2372. end;
  2373. {$ELSE}
  2374. function CryptGetOIDFunctionAddress; external crypt32 name 'CryptGetOIDFunctionAddress';
  2375. {$ENDIF DYNAMIC_LINK}
  2377. {$IFDEF DYNAMIC_LINK}
  2378. var
  2379.   _CryptGetDefaultOIDDllList: Pointer;
  2381. function CryptGetDefaultOIDDllList;
  2382. begin
  2383.   GetProcedureAddress(_CryptGetDefaultOIDDllList, crypt32, 'CryptGetDefaultOIDDllList');
  2384.   asm
  2385.     mov esp, ebp
  2386.     pop ebp
  2387.     jmp [_CryptGetDefaultOIDDllList]
  2388.   end;
  2389. end;
  2390. {$ELSE}
  2391. function CryptGetDefaultOIDDllList; external crypt32 name 'CryptGetDefaultOIDDllList';
  2392. {$ENDIF DYNAMIC_LINK}
  2394. {$IFDEF DYNAMIC_LINK}
  2395. var
  2396.   _CryptGetDefaultOIDFunctionAddr: Pointer;
  2398. function CryptGetDefaultOIDFunctionAddress;
  2399. begin
  2400.   GetProcedureAddress(_CryptGetDefaultOIDFunctionAddr, crypt32, 'CryptGetDefaultOIDFunctionAddress');
  2401.   asm
  2402.     mov esp, ebp
  2403.     pop ebp
  2404.     jmp [_CryptGetDefaultOIDFunctionAddr]
  2405.   end;
  2406. end;
  2407. {$ELSE}
  2408. function CryptGetDefaultOIDFunctionAddress; external crypt32 name 'CryptGetDefaultOIDFunctionAddress';
  2409. {$ENDIF DYNAMIC_LINK}
  2411. {$IFDEF DYNAMIC_LINK}
  2412. var
  2413.   _CryptFreeOIDFunctionAddress: Pointer;
  2415. function CryptFreeOIDFunctionAddress;
  2416. begin
  2417.   GetProcedureAddress(_CryptFreeOIDFunctionAddress, crypt32, 'CryptFreeOIDFunctionAddress');
  2418.   asm
  2419.     mov esp, ebp
  2420.     pop ebp
  2421.     jmp [_CryptFreeOIDFunctionAddress]
  2422.   end;
  2423. end;
  2424. {$ELSE}
  2425. function CryptFreeOIDFunctionAddress; external crypt32 name 'CryptFreeOIDFunctionAddress';
  2426. {$ENDIF DYNAMIC_LINK}
  2428. {$IFDEF DYNAMIC_LINK}
  2429. var
  2430.   _CryptRegisterOIDFunction: Pointer;
  2432. function CryptRegisterOIDFunction;
  2433. begin
  2434.   GetProcedureAddress(_CryptRegisterOIDFunction, crypt32, 'CryptRegisterOIDFunction');
  2435.   asm
  2436.     mov esp, ebp
  2437.     pop ebp
  2438.     jmp [_CryptRegisterOIDFunction]
  2439.   end;
  2440. end;
  2441. {$ELSE}
  2442. function CryptRegisterOIDFunction; external crypt32 name 'CryptRegisterOIDFunction';
  2443. {$ENDIF DYNAMIC_LINK}
  2445. {$IFDEF DYNAMIC_LINK}
  2446. var
  2447.   _CryptUnregisterOIDFunction: Pointer;
  2449. function CryptUnregisterOIDFunction;
  2450. begin
  2451.   GetProcedureAddress(_CryptUnregisterOIDFunction, crypt32, 'CryptUnregisterOIDFunction');
  2452.   asm
  2453.     mov esp, ebp
  2454.     pop ebp
  2455.     jmp [_CryptUnregisterOIDFunction]
  2456.   end;
  2457. end;
  2458. {$ELSE}
  2459. function CryptUnregisterOIDFunction; external crypt32 name 'CryptUnregisterOIDFunction';
  2460. {$ENDIF DYNAMIC_LINK}
  2462. {$IFDEF DYNAMIC_LINK}
  2463. var
  2464.   _CryptRegisterDefaultOIDFunction: Pointer;
  2466. function CryptRegisterDefaultOIDFunction;
  2467. begin
  2468.   GetProcedureAddress(_CryptRegisterDefaultOIDFunction, crypt32, 'CryptRegisterDefaultOIDFunction');
  2469.   asm
  2470.     mov esp, ebp
  2471.     pop ebp
  2472.     jmp [_CryptRegisterDefaultOIDFunction]
  2473.   end;
  2474. end;
  2475. {$ELSE}
  2476. function CryptRegisterDefaultOIDFunction; external crypt32 name 'CryptRegisterDefaultOIDFunction';
  2477. {$ENDIF DYNAMIC_LINK}
  2479. {$IFDEF DYNAMIC_LINK}
  2480. var
  2481.   _CryptUnregisterDefaultOIDFunc: Pointer;
  2483. function CryptUnregisterDefaultOIDFunction;
  2484. begin
  2485.   GetProcedureAddress(_CryptUnregisterDefaultOIDFunc, crypt32, 'CryptUnregisterDefaultOIDFunction');
  2486.   asm
  2487.     mov esp, ebp
  2488.     pop ebp
  2489.     jmp [_CryptUnregisterDefaultOIDFunc]
  2490.   end;
  2491. end;
  2492. {$ELSE}
  2493. function CryptUnregisterDefaultOIDFunction; external crypt32 name 'CryptUnregisterDefaultOIDFunction';
  2494. {$ENDIF DYNAMIC_LINK}
  2496. {$IFDEF DYNAMIC_LINK}
  2497. var
  2498.   _CryptSetOIDFunctionValue: Pointer;
  2500. function CryptSetOIDFunctionValue;
  2501. begin
  2502.   GetProcedureAddress(_CryptSetOIDFunctionValue, crypt32, 'CryptSetOIDFunctionValue');
  2503.   asm
  2504.     mov esp, ebp
  2505.     pop ebp
  2506.     jmp [_CryptSetOIDFunctionValue]
  2507.   end;
  2508. end;
  2509. {$ELSE}
  2510. function CryptSetOIDFunctionValue; external crypt32 name 'CryptSetOIDFunctionValue';
  2511. {$ENDIF DYNAMIC_LINK}
  2513. {$IFDEF DYNAMIC_LINK}
  2514. var
  2515.   _CryptGetOIDFunctionValue: Pointer;
  2517. function CryptGetOIDFunctionValue;
  2518. begin
  2519.   GetProcedureAddress(_CryptGetOIDFunctionValue, crypt32, 'CryptGetOIDFunctionValue');
  2520.   asm
  2521.     mov esp, ebp
  2522.     pop ebp
  2523.     jmp [_CryptGetOIDFunctionValue]
  2524.   end;
  2525. end;
  2526. {$ELSE}
  2527. function CryptGetOIDFunctionValue; external crypt32 name 'CryptGetOIDFunctionValue';
  2528. {$ENDIF DYNAMIC_LINK}
  2530. {$IFDEF DYNAMIC_LINK}
  2531. var
  2532.   _CryptEnumOIDFunction: Pointer;
  2534. function CryptEnumOIDFunction;
  2535. begin
  2536.   GetProcedureAddress(_CryptEnumOIDFunction, crypt32, 'CryptEnumOIDFunction');
  2537.   asm
  2538.     mov esp, ebp
  2539.     pop ebp
  2540.     jmp [_CryptEnumOIDFunction]
  2541.   end;
  2542. end;
  2543. {$ELSE}
  2544. function CryptEnumOIDFunction; external crypt32 name 'CryptEnumOIDFunction';
  2545. {$ENDIF DYNAMIC_LINK}
  2547. {$IFDEF DYNAMIC_LINK}
  2548. var
  2549.   _CryptFindOIDInfo: Pointer;
  2551. function CryptFindOIDInfo;
  2552. begin
  2553.   GetProcedureAddress(_CryptFindOIDInfo, crypt32, 'CryptFindOIDInfo');
  2554.   asm
  2555.     mov esp, ebp
  2556.     pop ebp
  2557.     jmp [_CryptFindOIDInfo]
  2558.   end;
  2559. end;
  2560. {$ELSE}
  2561. function CryptFindOIDInfo; external crypt32 name 'CryptFindOIDInfo';
  2562. {$ENDIF DYNAMIC_LINK}
  2564. {$IFDEF DYNAMIC_LINK}
  2565. var
  2566.   _CryptRegisterOIDInfo: Pointer;
  2568. function CryptRegisterOIDInfo;
  2569. begin
  2570.   GetProcedureAddress(_CryptRegisterOIDInfo, crypt32, 'CryptRegisterOIDInfo');
  2571.   asm
  2572.     mov esp, ebp
  2573.     pop ebp
  2574.     jmp [_CryptRegisterOIDInfo]
  2575.   end;
  2576. end;
  2577. {$ELSE}
  2578. function CryptRegisterOIDInfo; external crypt32 name 'CryptRegisterOIDInfo';
  2579. {$ENDIF DYNAMIC_LINK}
  2581. {$IFDEF DYNAMIC_LINK}
  2582. var
  2583.   _CryptUnregisterOIDInfo: Pointer;
  2585. function CryptUnregisterOIDInfo;
  2586. begin
  2587.   GetProcedureAddress(_CryptUnregisterOIDInfo, crypt32, 'CryptUnregisterOIDInfo');
  2588.   asm
  2589.     mov esp, ebp
  2590.     pop ebp
  2591.     jmp [_CryptUnregisterOIDInfo]
  2592.   end;
  2593. end;
  2594. {$ELSE}
  2595. function CryptUnregisterOIDInfo; external crypt32 name 'CryptUnregisterOIDInfo';
  2596. {$ENDIF DYNAMIC_LINK}
  2598. {$IFDEF DYNAMIC_LINK}
  2599. var
  2600.   _CryptEnumOIDInfo: Pointer;
  2602. function CryptEnumOIDInfo;
  2603. begin
  2604.   GetProcedureAddress(_CryptEnumOIDInfo, crypt32, 'CryptEnumOIDInfo');
  2605.   asm
  2606.     mov esp, ebp
  2607.     pop ebp
  2608.     jmp [_CryptEnumOIDInfo]
  2609.   end;
  2610. end;
  2611. {$ELSE}
  2612. function CryptEnumOIDInfo; external crypt32 name 'CryptEnumOIDInfo';
  2613. {$ENDIF DYNAMIC_LINK}
  2615. {$IFDEF DYNAMIC_LINK}
  2616. var
  2617.   _CryptFindLocalizedName: Pointer;
  2619. function CryptFindLocalizedName;
  2620. begin
  2621.   GetProcedureAddress(_CryptFindLocalizedName, crypt32, 'CryptFindLocalizedName');
  2622.   asm
  2623.     mov esp, ebp
  2624.     pop ebp
  2625.     jmp [_CryptFindLocalizedName]
  2626.   end;
  2627. end;
  2628. {$ELSE}
  2629. function CryptFindLocalizedName; external crypt32 name 'CryptFindLocalizedName';
  2630. {$ENDIF DYNAMIC_LINK}
  2632. {$IFDEF DYNAMIC_LINK}
  2633. var
  2634.   _CryptMsgOpenToEncode: Pointer;
  2636. function CryptMsgOpenToEncode;
  2637. begin
  2638.   GetProcedureAddress(_CryptMsgOpenToEncode, crypt32, 'CryptMsgOpenToEncode');
  2639.   asm
  2640.     mov esp, ebp
  2641.     pop ebp
  2642.     jmp [_CryptMsgOpenToEncode]
  2643.   end;
  2644. end;
  2645. {$ELSE}
  2646. function CryptMsgOpenToEncode; external crypt32 name 'CryptMsgOpenToEncode';
  2647. {$ENDIF DYNAMIC_LINK}
  2649. {$IFDEF DYNAMIC_LINK}
  2650. var
  2651.   _CryptMsgCalculateEncodedLength: Pointer;
  2653. function CryptMsgCalculateEncodedLength;
  2654. begin
  2655.   GetProcedureAddress(_CryptMsgCalculateEncodedLength, crypt32, 'CryptMsgCalculateEncodedLength');
  2656.   asm
  2657.     mov esp, ebp
  2658.     pop ebp
  2659.     jmp [_CryptMsgCalculateEncodedLength]
  2660.   end;
  2661. end;
  2662. {$ELSE}
  2663. function CryptMsgCalculateEncodedLength; external crypt32 name 'CryptMsgCalculateEncodedLength';
  2664. {$ENDIF DYNAMIC_LINK}
  2666. {$IFDEF DYNAMIC_LINK}
  2667. var
  2668.   _CryptMsgOpenToDecode: Pointer;
  2670. function CryptMsgOpenToDecode;
  2671. begin
  2672.   GetProcedureAddress(_CryptMsgOpenToDecode, crypt32, 'CryptMsgOpenToDecode');
  2673.   asm
  2674.     mov esp, ebp
  2675.     pop ebp
  2676.     jmp [_CryptMsgOpenToDecode]
  2677.   end;
  2678. end;
  2679. {$ELSE}
  2680. function CryptMsgOpenToDecode; external crypt32 name 'CryptMsgOpenToDecode';
  2681. {$ENDIF DYNAMIC_LINK}
  2683. {$IFDEF DYNAMIC_LINK}
  2684. var
  2685.   _CryptMsgDuplicate: Pointer;
  2687. function CryptMsgDuplicate;
  2688. begin
  2689.   GetProcedureAddress(_CryptMsgDuplicate, crypt32, 'CryptMsgDuplicate');
  2690.   asm
  2691.     mov esp, ebp
  2692.     pop ebp
  2693.     jmp [_CryptMsgDuplicate]
  2694.   end;
  2695. end;
  2696. {$ELSE}
  2697. function CryptMsgDuplicate; external crypt32 name 'CryptMsgDuplicate';
  2698. {$ENDIF DYNAMIC_LINK}
  2700. {$IFDEF DYNAMIC_LINK}
  2701. var
  2702.   _CryptMsgClose: Pointer;
  2704. function CryptMsgClose;
  2705. begin
  2706.   GetProcedureAddress(_CryptMsgClose, crypt32, 'CryptMsgClose');
  2707.   asm
  2708.     mov esp, ebp
  2709.     pop ebp
  2710.     jmp [_CryptMsgClose]
  2711.   end;
  2712. end;
  2713. {$ELSE}
  2714. function CryptMsgClose; external crypt32 name 'CryptMsgClose';
  2715. {$ENDIF DYNAMIC_LINK}
  2717. {$IFDEF DYNAMIC_LINK}
  2718. var
  2719.   _CryptMsgUpdate: Pointer;
  2721. function CryptMsgUpdate;
  2722. begin
  2723.   GetProcedureAddress(_CryptMsgUpdate, crypt32, 'CryptMsgUpdate');
  2724.   asm
  2725.     mov esp, ebp
  2726.     pop ebp
  2727.     jmp [_CryptMsgUpdate]
  2728.   end;
  2729. end;
  2730. {$ELSE}
  2731. function CryptMsgUpdate; external crypt32 name 'CryptMsgUpdate';
  2732. {$ENDIF DYNAMIC_LINK}
  2734. {$IFDEF DYNAMIC_LINK}
  2735. var
  2736.   _CryptMsgGetParam: Pointer;
  2738. function CryptMsgGetParam;
  2739. begin
  2740.   GetProcedureAddress(_CryptMsgGetParam, crypt32, 'CryptMsgGetParam');
  2741.   asm
  2742.     mov esp, ebp
  2743.     pop ebp
  2744.     jmp [_CryptMsgGetParam]
  2745.   end;
  2746. end;
  2747. {$ELSE}
  2748. function CryptMsgGetParam; external crypt32 name 'CryptMsgGetParam';
  2749. {$ENDIF DYNAMIC_LINK}
  2751. {$IFDEF DYNAMIC_LINK}
  2752. var
  2753.   _CryptMsgControl: Pointer;
  2755. function CryptMsgControl;
  2756. begin
  2757.   GetProcedureAddress(_CryptMsgControl, crypt32, 'CryptMsgControl');
  2758.   asm
  2759.     mov esp, ebp
  2760.     pop ebp
  2761.     jmp [_CryptMsgControl]
  2762.   end;
  2763. end;
  2764. {$ELSE}
  2765. function CryptMsgControl; external crypt32 name 'CryptMsgControl';
  2766. {$ENDIF DYNAMIC_LINK}
  2768. {$IFDEF DYNAMIC_LINK}
  2769. var
  2770.   _CryptMsgVerifyCountersigEnc: Pointer;
  2772. function CryptMsgVerifyCountersignatureEncoded;
  2773. begin
  2774.   GetProcedureAddress(_CryptMsgVerifyCountersigEnc, crypt32, 'CryptMsgVerifyCountersignatureEncoded');
  2775.   asm
  2776.     mov esp, ebp
  2777.     pop ebp
  2778.     jmp [_CryptMsgVerifyCountersigEnc]
  2779.   end;
  2780. end;
  2781. {$ELSE}
  2782. function CryptMsgVerifyCountersignatureEncoded; external crypt32 name 'CryptMsgVerifyCountersignatureEncoded';
  2783. {$ENDIF DYNAMIC_LINK}
  2785. {$IFDEF DYNAMIC_LINK}
  2786. var
  2787.   _CryptMsgVerifyCountersigEncEx: Pointer;
  2789. function CryptMsgVerifyCountersignatureEncodedEx;
  2790. begin
  2791.   GetProcedureAddress(_CryptMsgVerifyCountersigEncEx, crypt32, 'CryptMsgVerifyCountersignatureEncodedEx');
  2792.   asm
  2793.     mov esp, ebp
  2794.     pop ebp
  2795.     jmp [_CryptMsgVerifyCountersigEncEx]
  2796.   end;
  2797. end;
  2798. {$ELSE}
  2799. function CryptMsgVerifyCountersignatureEncodedEx; external crypt32 name 'CryptMsgVerifyCountersignatureEncodedEx';
  2800. {$ENDIF DYNAMIC_LINK}
  2802. {$IFDEF DYNAMIC_LINK}
  2803. var
  2804.   _CryptMsgCountersign: Pointer;
  2806. function CryptMsgCountersign;
  2807. begin
  2808.   GetProcedureAddress(_CryptMsgCountersign, crypt32, 'CryptMsgCountersign');
  2809.   asm
  2810.     mov esp, ebp
  2811.     pop ebp
  2812.     jmp [_CryptMsgCountersign]
  2813.   end;
  2814. end;
  2815. {$ELSE}
  2816. function CryptMsgCountersign; external crypt32 name 'CryptMsgCountersign';
  2817. {$ENDIF DYNAMIC_LINK}
  2819. {$IFDEF DYNAMIC_LINK}
  2820. var
  2821.   _CryptMsgCountersignEncoded: Pointer;
  2823. function CryptMsgCountersignEncoded;
  2824. begin
  2825.   GetProcedureAddress(_CryptMsgCountersignEncoded, crypt32, 'CryptMsgCountersignEncoded');
  2826.   asm
  2827.     mov esp, ebp
  2828.     pop ebp
  2829.     jmp [_CryptMsgCountersignEncoded]
  2830.   end;
  2831. end;
  2832. {$ELSE}
  2833. function CryptMsgCountersignEncoded; external crypt32 name 'CryptMsgCountersignEncoded';
  2834. {$ENDIF DYNAMIC_LINK}
  2836. {$IFDEF DYNAMIC_LINK}
  2837. var
  2838.   _CertOpenStore: Pointer;
  2840. function CertOpenStore;
  2841. begin
  2842.   GetProcedureAddress(_CertOpenStore, crypt32, 'CertOpenStore');
  2843.   asm
  2844.     mov esp, ebp
  2845.     pop ebp
  2846.     jmp [_CertOpenStore]
  2847.   end;
  2848. end;
  2849. {$ELSE}
  2850. function CertOpenStore; external crypt32 name 'CertOpenStore';
  2851. {$ENDIF DYNAMIC_LINK}
  2853. {$IFDEF DYNAMIC_LINK}
  2854. var
  2855.   _CertDuplicateStore: Pointer;
  2857. function CertDuplicateStore;
  2858. begin
  2859.   GetProcedureAddress(_CertDuplicateStore, crypt32, 'CertDuplicateStore');
  2860.   asm
  2861.     mov esp, ebp
  2862.     pop ebp
  2863.     jmp [_CertDuplicateStore]
  2864.   end;
  2865. end;
  2866. {$ELSE}
  2867. function CertDuplicateStore; external crypt32 name 'CertDuplicateStore';
  2868. {$ENDIF DYNAMIC_LINK}
  2870. {$IFDEF DYNAMIC_LINK}
  2871. var
  2872.   _CertSaveStore: Pointer;
  2874. function CertSaveStore;
  2875. begin
  2876.   GetProcedureAddress(_CertSaveStore, crypt32, 'CertSaveStore');
  2877.   asm
  2878.     mov esp, ebp
  2879.     pop ebp
  2880.     jmp [_CertSaveStore]
  2881.   end;
  2882. end;
  2883. {$ELSE}
  2884. function CertSaveStore; external crypt32 name 'CertSaveStore';
  2885. {$ENDIF DYNAMIC_LINK}
  2887. {$IFDEF DYNAMIC_LINK}
  2888. var
  2889.   _CertCloseStore: Pointer;
  2891. function CertCloseStore;
  2892. begin
  2893.   GetProcedureAddress(_CertCloseStore, crypt32, 'CertCloseStore');
  2894.   asm
  2895.     mov esp, ebp
  2896.     pop ebp
  2897.     jmp [_CertCloseStore]
  2898.   end;
  2899. end;
  2900. {$ELSE}
  2901. function CertCloseStore; external crypt32 name 'CertCloseStore';
  2902. {$ENDIF DYNAMIC_LINK}
  2904. {$IFDEF DYNAMIC_LINK}
  2905. var
  2906.   _CertGetSubjectCertFromStore: Pointer;
  2908. function CertGetSubjectCertificateFromStore;
  2909. begin
  2910.   GetProcedureAddress(_CertGetSubjectCertFromStore, crypt32, 'CertGetSubjectCertificateFromStore');
  2911.   asm
  2912.     mov esp, ebp
  2913.     pop ebp
  2914.     jmp [_CertGetSubjectCertFromStore]
  2915.   end;
  2916. end;
  2917. {$ELSE}
  2918. function CertGetSubjectCertificateFromStore; external crypt32 name 'CertGetSubjectCertificateFromStore';
  2919. {$ENDIF DYNAMIC_LINK}
  2921. {$IFDEF DYNAMIC_LINK}
  2922. var
  2923.   _CertEnumCertificatesInStore: Pointer;
  2925. function CertEnumCertificatesInStore;
  2926. begin
  2927.   GetProcedureAddress(_CertEnumCertificatesInStore, crypt32, 'CertEnumCertificatesInStore');
  2928.   asm
  2929.     mov esp, ebp
  2930.     pop ebp
  2931.     jmp [_CertEnumCertificatesInStore]
  2932.   end;
  2933. end;
  2934. {$ELSE}
  2935. function CertEnumCertificatesInStore; external crypt32 name 'CertEnumCertificatesInStore';
  2936. {$ENDIF DYNAMIC_LINK}
  2938. {$IFDEF DYNAMIC_LINK}
  2939. var
  2940.   _CertFindCertificateInStore: Pointer;
  2942. function CertFindCertificateInStore;
  2943. begin
  2944.   GetProcedureAddress(_CertFindCertificateInStore, crypt32, 'CertFindCertificateInStore');
  2945.   asm
  2946.     mov esp, ebp
  2947.     pop ebp
  2948.     jmp [_CertFindCertificateInStore]
  2949.   end;
  2950. end;
  2951. {$ELSE}
  2952. function CertFindCertificateInStore; external crypt32 name 'CertFindCertificateInStore';
  2953. {$ENDIF DYNAMIC_LINK}
  2955. {$IFDEF DYNAMIC_LINK}
  2956. var
  2957.   _CertGetIssuerCertFromStore: Pointer;
  2959. function CertGetIssuerCertificateFromStore;
  2960. begin
  2961.   GetProcedureAddress(_CertGetIssuerCertFromStore, crypt32, 'CertGetIssuerCertificateFromStore');
  2962.   asm
  2963.     mov esp, ebp
  2964.     pop ebp
  2965.     jmp [_CertGetIssuerCertFromStore]
  2966.   end;
  2967. end;
  2968. {$ELSE}
  2969. function CertGetIssuerCertificateFromStore; external crypt32 name 'CertGetIssuerCertificateFromStore';
  2970. {$ENDIF DYNAMIC_LINK}
  2972. {$IFDEF DYNAMIC_LINK}
  2973. var
  2974.   _CertVerifySubjectCertContext: Pointer;
  2976. function CertVerifySubjectCertificateContext;