[Reversing] MS Crypto API

[Reversing] MSCryptoAPI

unit MSCryptoAPI;

interface

uses

  Windows, KOL;

//  Constants for HiAsm Components

const

  NO_ERROR                          =   0;

  ERROR_INVALID_PARAMETER           =   1;

  ERROR_INCORRECT_KEY               =   2;

  ERROR_ACQUIRE_CONTEXT             =   3;

  ERROR_GENERATION_KEY              =   4;

  ERROR_GENERATION_KEYPAIR          =   5;

  ERROR_GET_USER_KEY                =   6;

  ERROR_DERIVE_KEY                  =   7;

  ERROR_ENCRYPT                     =   8;

  ERROR_DECRYPT                     =   9;

  ERROR_CREATE_HASH                 =  10;

  ERROR_HASH_DATA                   =  11;

  ERROR_GET_HASH_PARAM              =  12;

  ERROR_SIGNED_HASH                 =  13;

  ERROR_EXPORT_KEYPAIR              =  14;

  ERROR_EXPORT_PUBLICKEY            =  15;

  ERROR_EXPORT_SESSIONKEY           =  16;

  ERROR_EXPORT_EXCHANGEKEY          =  17;

  ERROR_IMPORT_KEYPAIR              =  18;

  ERROR_IMPORT_PUBLICKEY            =  19;

  ERROR_IMPORT_SESSIONKEY           =  20;

  ERROR_IMPORT_EXCHANGEKEY          =  21;

  ERROR_WRONG_CONTAINER_NAME        =  22;

  ERROR_CREATE_CONTAINER            =  23;

  ERROR_DELETE_CONTAINER            =  24;

  ERROR_CONTAINER_NOT_EXISTS        =  25;

  ERROR_CONTAINER_ALREADY_EXISTS    =  26;

  ERROR_NO_CONTAINERS               =  27;

  ERROR_BUSY                        =  28;

  ERROR_OPEN_SRC_FILE               =  29;

  ERROR_OPEN_DST_FILE               =  30;

type

  HCRYPTPROV  = Cardinal;

  HCRYPTKEY   = Cardinal;

  ALG_ID      = Cardinal;

  PHCRYPTPROV = ^HCRYPTPROV;

  PHCRYPTKEY  = ^HCRYPTKEY;

  HCRYPTHASH  = Cardinal;

  PHCRYPTHASH = ^HCRYPTHASH;

  PLongWord   = ^LongWord;

  

  TCryptProgressCallback = function (Count: LongWord): Boolean of object;

  

const

  ADVAPI32            = 'advapi32.dll';

  RSA384BIT_KEY       = $01800000;

  RSA512BIT_KEY       = $02000000;

  RSA1024BIT_KEY      = $04000000;

  RSA2048BIT_KEY      = $08000000;

  RSA4096BIT_KEY      = $10000000;

//  RSA8192BIT_KEY      = $20000000;

//  RSA16384BIT_KEY     = $40000000;

  // CryptGetProvParam

  PP_ENUMALGS            = 1;

  PP_ENUMCONTAINERS      = 2;

  PP_IMPTYPE             = 3;

  PP_NAME                = 4;

  PP_VERSION             = 5;

  PP_CONTAINER           = 6;

  PP_CHANGE_PASSWORD     = 7;

  PP_KEYSET_SEC_DESCR    = 8;  // get/set security descriptor of keyset

  PP_CERTCHAIN           = 9;  // for retrieving certificates from tokens

  PP_KEY_TYPE_SUBTYPE    = 10;

  PP_PROVTYPE            = 16;

  PP_KEYSTORAGE          = 17;

  PP_APPLI_CERT          = 18;

  PP_SYM_KEYSIZE         = 19;

  PP_SESSION_KEYSIZE     = 20;

  PP_UI_PROMPT           = 21;

  PP_ENUMALGS_EX         = 22;

  

  CRYPT_FIRST            = 1;

  CRYPT_NEXT             = 2;

  CRYPT_IMPL_HARDWARE    = 1;

  CRYPT_IMPL_SOFTWARE    = 2;

  CRYPT_IMPL_MIXED       = 3;

  CRYPT_IMPL_UNKNOWN     = 4;

  

  // CryptGetKeyParam

  KP_IV               = 1;

  KP_SALT             = 2;

  KP_PADDING          = 3;

  KP_MODE             = 4;

  KP_MODE_BITS        = 5;

  KP_PERMISSIONS      = 6;

  KP_ALGID            = 7;

  KP_BLOCKLEN         = 8;

  KP_KEYLEN           = 9;

  KP_SALT_EX          = $0a;

  KP_P                = $0b;

  KP_G                = $0c;

  KP_Q                = $0d;

  KP_X                = $0e;

  KP_Y                = $0f;

  KP_RA               = $10;

  KP_RB               = $11;

  KP_INFO             = $12;

  KP_EFFECTIVE_KEYLEN = $13;

  KP_SCHANNEL_ALG     = $14;

  KP_PUB_PARAMS       = $27;

  

  //KP_PERMISSIONS:

  CRYPT_ENCRYPT = 1;

  CRYPT_DECRYPT = 2;

  CRYPT_EXPORT  = 4;

  CRYPT_READ    = 8;

  CRYPT_WRITE   = 16;

  CRYPT_MAC     = 32;

  //KP_MODE:

  CRYPT_MODE_CBC     = 1;

  CRYPT_MODE_ECB     = 2;

  CRYPT_MODE_OFB     = 3; // MS провайдеры не поддерживают

  CRYPT_MODE_CFB     = 4;

  CRYPT_MODE_CTS     = 5;

  CRYPT_MODE_CBCI    = 6;

  CRYPT_MODE_CFBP    = 7;

  CRYPT_MODE_OFBP    = 8;

  CRYPT_MODE_CBCOFM  = 9;

  CRYPT_MODE_CBCOFMI = 10;

  // exported key blob definitions

  SIMPLEBLOB          = $1;

  PUBLICKEYBLOB       = $6;

  PRIVATEKEYBLOB      = $7;

  PLAINTEXTKEYBLOB    = $8;

  AT_KEYEXCHANGE      = 1;

  AT_SIGNATURE        = 2;

  CRYPT_USERDATA      = 1;

  CRYPT_BLOB_VER3     = $00000080;

  CALG_MD2            = 32769;

  CALG_MD4            = 32770;

  CALG_MD5            = 32771;

  CALG_SHA            = 32772;

  CALG_SHA_1          = 32772;

  CALG_SHA_256        = 32780;

  CALG_SHA_384        = 32781;

  CALG_SHA_512        = 32782;

  CALG_RC2            = 26114;

  CALG_RC4            = 26625;

  CALG_RC5            = 26125;

  CALG_DES            = 26113;

  CALG_3DES_112       = 26121;

  CALG_3DES           = 26115;

  CALG_DESX           = 26116;

  CALG_AES            = 26129;

  CALG_AES_128        = 26126;

  CALG_AES_192        = 26127;

  CALG_AES_256        = 26128;

  CALG_CYLINK_MEK     = 26124;

  CALG_RSA_KEYX       = 41984;

  CALG_RSA_SIGN       = 9216;

  HP_ALGID            = $0001; // Hash algorithm

  HP_HASHVAL          = $0002; // Hash value

  HP_HASHSIZE         = $0004; // Hash value size

  // dwFlags definitions for CryptAcquireContext

  CRYPT_VERIFYCONTEXT  = $F0000000;

  CRYPT_NEWKEYSET      = $00000008;

  CRYPT_DELETEKEYSET   = $00000010;

  CRYPT_MACHINE_KEYSET = $00000020;

  CRYPT_SILENT         = $00000040;

  // dwFlags definitions for CryptGetDefaultProvider

  CRYPT_MACHINE_DEFAULT = 1;

  CRYPT_USER_DEFAULT = 2;

  // dwFlag definitions for CryptGenKey

  CRYPT_EXPORTABLE     = $00000001;

  CRYPT_USER_PROTECTED = $00000002;

  CRYPT_CREATE_SALT    = $00000004;

  CRYPT_UPDATE_KEY     = $00000008;

  CRYPT_NO_SALT        = $00000010;

  CRYPT_PREGEN         = $00000040;

  CRYPT_RECIPIENT      = $00000010;

  CRYPT_INITIATOR      = $00000040;

  CRYPT_ONLINE         = $00000080;

  CRYPT_SF             = $00000100;

  CRYPT_CREATE_IV      = $00000200;

  CRYPT_KEK            = $00000400;

  CRYPT_DATA_KEY       = $00000800;

  // dwFlags definitions for CryptDeriveKey

  CRYPT_SERVER         = $00000400;

  PROV_RSA_FULL         = 1;

  PROV_RSA_SIG          = 2;

  PROV_DSS              = 3;

  PROV_FORTEZZA         = 4;

  PROV_MS_EXCHANGE      = 5;

  PROV_SSL              = 6;

  PROV_RSA_SCHANNEL     = 12;

  PROV_DSS_DH           = 13;

  PROV_EC_ECDSA_SIG     = 14;

  PROV_EC_ECNRA_SIG     = 15;

  PROV_EC_ECDSA_FULL    = 16;

  PROV_EC_ECNRA_FULL    = 17;

  PROV_DH_SCHANNEL      = 18;

  PROV_SPYRUS_LYNKS     = 20;

  PROV_RNG              = 21;

  PROV_INTEL_SEC        = 22;

  PROV_REPLACE_OWF      = 23;

  PROV_RSA_AES          = 24;