Clever Internet Suite v 9.0.0

{ Clever Internet Suite Copyright (C) 2013 Clever Components All Rights Reserved www.CleverComponents.com } unit clCryptAPI; { CryptAPI constants, structs and prototype functions Note: Use run-time binding Impotrant: Some functions are not implemented yet Modified On: 21 Mar 2003 } {DEFINE NT5} {$ALIGN ON} interface {$I clVer.inc} uses {$IFNDEF DELPHIXE2} Windows, SyncObjs, SysUtils, {$ELSE} Winapi.Windows, System.SyncObjs, System.SysUtils, {$ENDIF} clWUtils; const ADVAPI32 = 'advapi32.dll'; {$EXTERNALSYM ADVAPI32} CRYPT32 = 'crypt32.dll'; {$EXTERNALSYM CRYPT32} //+------------------------------------------------------------------------- // Certificate Key Usage constants //-------------------------------------------------------------------------- const CERT_DIGITAL_SIGNATURE_KEY_USAGE = $80; {$EXTERNALSYM CERT_DIGITAL_SIGNATURE_KEY_USAGE} CERT_NON_REPUDIATION_KEY_USAGE = $40; {$EXTERNALSYM CERT_NON_REPUDIATION_KEY_USAGE} CERT_KEY_ENCIPHERMENT_KEY_USAGE = $20; {$EXTERNALSYM CERT_KEY_ENCIPHERMENT_KEY_USAGE} CERT_DATA_ENCIPHERMENT_KEY_USAGE = $10; {$EXTERNALSYM CERT_DATA_ENCIPHERMENT_KEY_USAGE} CERT_KEY_AGREEMENT_KEY_USAGE = $08; {$EXTERNALSYM CERT_KEY_AGREEMENT_KEY_USAGE} CERT_KEY_CERT_SIGN_KEY_USAGE = $04; {$EXTERNALSYM CERT_KEY_CERT_SIGN_KEY_USAGE} CERT_OFFLINE_CRL_SIGN_KEY_USAGE = $02; {$EXTERNALSYM CERT_OFFLINE_CRL_SIGN_KEY_USAGE} CERT_CRL_SIGN_KEY_USAGE = $02; {$EXTERNALSYM CERT_CRL_SIGN_KEY_USAGE} //+------------------------------------------------------------------------- // Enhanced Key Usage (Purpose) Object Identifiers //-------------------------------------------------------------------------- const szOID_PKIX_KP = '1.3.6.1.5.5.7.3'; {$EXTERNALSYM szOID_PKIX_KP} // Consistent key usage bits: DIGITAL_SIGNATURE, KEY_ENCIPHERMENT // or KEY_AGREEMENT szOID_PKIX_KP_SERVER_AUTH = '1.3.6.1.5.5.7.3.1'; {$EXTERNALSYM szOID_PKIX_KP_SERVER_AUTH} // Consistent key usage bits: DIGITAL_SIGNATURE szOID_PKIX_KP_CLIENT_AUTH = '1.3.6.1.5.5.7.3.2'; {$EXTERNALSYM szOID_PKIX_KP_CLIENT_AUTH} // Consistent key usage bits: DIGITAL_SIGNATURE szOID_PKIX_KP_CODE_SIGNING = '1.3.6.1.5.5.7.3.3'; {$EXTERNALSYM szOID_PKIX_KP_CODE_SIGNING} // Consistent key usage bits: DIGITAL_SIGNATURE, NON_REPUDIATION and/or // (KEY_ENCIPHERMENT or KEY_AGREEMENT) szOID_PKIX_KP_EMAIL_PROTECTION = '1.3.6.1.5.5.7.3.4'; {$EXTERNALSYM szOID_PKIX_KP_EMAIL_PROTECTION} //+------------------------------------------------------------------------- // Microsoft Enhanced Key Usage (Purpose) Object Identifiers //+------------------------------------------------------------------------- // Signer of CTLs szOID_KP_CTL_USAGE_SIGNING = '1.3.6.1.4.1.311.10.3.1'; {$EXTERNALSYM szOID_KP_CTL_USAGE_SIGNING} // Signer of TimeStamps szOID_KP_TIME_STAMP_SIGNING = '1.3.6.1.4.1.311.10.3.2'; {$EXTERNALSYM szOID_KP_TIME_STAMP_SIGNING} {Support Type} type PVOID = Pointer; {$EXTERNALSYM PVOID} LONG = DWORD; {$EXTERNALSYM LONG} LPAWSTR = PAnsiChar; //----------------------------------------------------------------------------- // Type support for a pointer to an array of pointer (type **name) PLPSTR = Pointer; // type for a pointer to Array of pointer a type PPCERT_INFO = Pointer; // type for a pointer to Array of pointer a type PPVOID = Pointer; // type for a pointer to Array of pointer a type PPCCERT_CONTEXT = Pointer; // type for a pointer to Array of pointer a type PPCCTL_CONTEXT = Pointer; // type for a pointer to Array of pointer a type PPCCRL_CONTEXT = Pointer; // type for a pointer to Array of pointer a type //----------------------------------------------------------------------------- //+--------------------------------------------------------------------------- // // Microsoft Windows // Copyright (C) Microsoft Corporation, 1992 - 1997. // // File: wincrypt.h // // Contents: Cryptographic API Prototypes and Definitions // //---------------------------------------------------------------------------- // // Algorithm IDs and Flags // // ALG_ID crackers function GET_ALG_CLASS(x:integer) :integer; {$EXTERNALSYM GET_ALG_CLASS} function GET_ALG_TYPE(x:integer) :integer; {$EXTERNALSYM GET_ALG_TYPE} function GET_ALG_SID(x:integer) :integer; {$EXTERNALSYM GET_ALG_SID} Const // Algorithm classes ALG_CLASS_ANY = 0; {$EXTERNALSYM ALG_CLASS_ANY} ALG_CLASS_SIGNATURE = (1 shl 13); {$EXTERNALSYM ALG_CLASS_SIGNATURE} ALG_CLASS_MSG_ENCRYPT = (2 shl 13); {$EXTERNALSYM ALG_CLASS_MSG_ENCRYPT} ALG_CLASS_DATA_ENCRYPT = (3 shl 13); {$EXTERNALSYM ALG_CLASS_DATA_ENCRYPT} ALG_CLASS_HASH = (4 shl 13); {$EXTERNALSYM ALG_CLASS_HASH} ALG_CLASS_KEY_EXCHANGE = (5 shl 13); {$EXTERNALSYM ALG_CLASS_KEY_EXCHANGE} // Algorithm types ALG_TYPE_ANY = 0; {$EXTERNALSYM ALG_TYPE_ANY} ALG_TYPE_DSS = (1 shl 9); {$EXTERNALSYM ALG_TYPE_DSS} ALG_TYPE_RSA = (2 shl 9); {$EXTERNALSYM ALG_TYPE_RSA} ALG_TYPE_BLOCK = (3 shl 9); {$EXTERNALSYM ALG_TYPE_BLOCK} ALG_TYPE_STREAM = (4 shl 9); {$EXTERNALSYM ALG_TYPE_STREAM} ALG_TYPE_DH = (5 shl 9); {$EXTERNALSYM ALG_TYPE_DH} ALG_TYPE_SECURECHANNEL = (6 shl 9); {$EXTERNALSYM ALG_TYPE_SECURECHANNEL} // Generic sub-ids ALG_SID_ANY = 0; {$EXTERNALSYM ALG_SID_ANY} // Some RSA sub-ids ALG_SID_RSA_ANY = 0; {$EXTERNALSYM ALG_SID_RSA_ANY} ALG_SID_RSA_PKCS = 1; {$EXTERNALSYM ALG_SID_RSA_PKCS} ALG_SID_RSA_MSATWORK = 2; {$EXTERNALSYM ALG_SID_RSA_MSATWORK} ALG_SID_RSA_ENTRUST = 3; {$EXTERNALSYM ALG_SID_RSA_ENTRUST} ALG_SID_RSA_PGP = 4; {$EXTERNALSYM ALG_SID_RSA_PGP} // Some DSS sub-ids ALG_SID_DSS_ANY = 0; {$EXTERNALSYM ALG_SID_DSS_ANY} ALG_SID_DSS_PKCS = 1; {$EXTERNALSYM ALG_SID_DSS_PKCS} ALG_SID_DSS_DMS = 2; {$EXTERNALSYM ALG_SID_DSS_DMS} // Block cipher sub ids // DES sub_ids ALG_SID_DES = 1; {$EXTERNALSYM ALG_SID_DES} ALG_SID_3DES = 3; {$EXTERNALSYM ALG_SID_3DES} ALG_SID_DESX = 4; {$EXTERNALSYM ALG_SID_DESX} ALG_SID_IDEA = 5; {$EXTERNALSYM ALG_SID_IDEA} ALG_SID_CAST = 6; {$EXTERNALSYM ALG_SID_CAST} ALG_SID_SAFERSK64 = 7; {$EXTERNALSYM ALG_SID_SAFERSK64} ALD_SID_SAFERSK128 = 8; {$EXTERNALSYM ALD_SID_SAFERSK128} ALG_SID_SAFERSK128 = 8; {$EXTERNALSYM ALG_SID_SAFERSK128} ALG_SID_3DES_112 = 9; {$EXTERNALSYM ALG_SID_3DES_112} ALG_SID_CYLINK_MEK = 12; {$EXTERNALSYM ALG_SID_CYLINK_MEK} ALG_SID_RC5 = 13; {$EXTERNALSYM ALG_SID_RC5} // Fortezza sub-ids ALG_SID_SKIPJACK = 10; {$EXTERNALSYM ALG_SID_SKIPJACK} ALG_SID_TEK = 11; {$EXTERNALSYM ALG_SID_TEK} // KP_MODE CRYPT_MODE_CBCI = 6; {ANSI CBC Interleaved} {$EXTERNALSYM CRYPT_MODE_CBCI} CRYPT_MODE_CFBP = 7; {ANSI CFB Pipelined} {$EXTERNALSYM CRYPT_MODE_CFBP} CRYPT_MODE_OFBP = 8; {ANSI OFB Pipelined} {$EXTERNALSYM CRYPT_MODE_OFBP} CRYPT_MODE_CBCOFM = 9; {ANSI CBC + OF Masking} {$EXTERNALSYM CRYPT_MODE_CBCOFM} CRYPT_MODE_CBCOFMI = 10; {ANSI CBC + OFM Interleaved} {$EXTERNALSYM CRYPT_MODE_CBCOFMI} // RC2 sub-ids ALG_SID_RC2 = 2; {$EXTERNALSYM ALG_SID_RC2} // Stream cipher sub-ids ALG_SID_RC4 = 1; {$EXTERNALSYM ALG_SID_RC4} ALG_SID_SEAL = 2; {$EXTERNALSYM ALG_SID_SEAL} // Diffie-Hellman sub-ids ALG_SID_DH_SANDF = 1; {$EXTERNALS