modconstants.bas

VB 加密----------能够加密解密控件

Public Const Argument_InvalidEraValue                   As Long = 2014
Public Const Argument_ParamRequired                     As Long = 2015
Public Const Argument_StreamRequired                    As Long = 2016
Public Const Argument_InvalidPathFormat                 As Long = 2017
Public Const Argument_StreamNotReadable                 As Long = 2018
Public Const Argument_StreamNotWritable                 As Long = 2019
Public Const Argument_StreamNotSeekable                 As Long = 2020


' ArgumentNull
Public Const ArgumentNull_Array                         As Long = 2100
Public Const ArgumentNull_Exception                     As Long = 2101
Public Const ArgumentNull_Stream                        As Long = 2102
Public Const ArgumentNull_Collection                    As Long = 2103
Public Const ArgumentNull_TimeSpan                      As Long = 2104

' NotSupported
Public Const NotSupported_ReadOnlyCollection            As Long = 3000
Public Const NotSupported_FixedSizeCollection           As Long = 3001


' InvalidOperation
Public Const InvalidOperation_EmptyStack                As Long = 4000
Public Const InvalidOperation_EnumNotStarted            As Long = 4001
Public Const InvalidOperation_EnumFinished              As Long = 4002
Public Const InvalidOperation_VersionError              As Long = 4003
Public Const InvalidOperation_EmptyQueue                As Long = 4004
Public Const InvalidOperation_Comparer_Arg              As Long = 4005
Public Const InvalidOperation_ReadOnly                  As Long = 4006
Public Const InvalidOperation_Timeouts                  As Long = 4007


' Constants used by CultureInfo and related classes when
' utilizing the CultureTable class.
Public Const LCID_INSTALLED As Long = &H1
Public Const LCID_SUPPORTED As Long = &H2
Public Const INVARIANT_LCID As Long = 127
             
Public Const ILCID                          As Long = 0
Public Const IPARENTLCID                    As Long = 1
Public Const ICALENDARTYPE                  As Long = 2
Public Const IFIRSTWEEKOFYEAR               As Long = 3
Public Const IFIRSTDAYOFWEEK                As Long = 4
Public Const ICURRENCYDECIMALDIGITS         As Long = 5
Public Const ICURRENCYNEGATIVEPATTERN       As Long = 6
Public Const ICURRENCYPOSITIVEPATTERN       As Long = 7
Public Const INUMBERDECIMALDIGITS           As Long = 8
Public Const INUMBERNEGATIVEPATTERN         As Long = 9
Public Const IPERCENTDECIMALDIGITS          As Long = 10
Public Const IPERCENTNEGATIVEPATTERN        As Long = 11
Public Const IPERCENTPOSITIVEPATTERN        As Long = 12


Public Const SENGLISHNAME                   As Long = 0
Public Const SDISPLAYNAME                   As Long = 1
Public Const SNAME                          As Long = 2
Public Const SNATIVENAME                    As Long = 3
Public Const STHREELETTERISOLANGUAGENAME    As Long = 4
Public Const STWOLETTERISOLANGUAGENAME      As Long = 5
Public Const STHREELETTERWINDOWSLANGUAGENAME As Long = 6
Public Const SOPTIONALCALENDARS             As Long = 7
Public Const SABBREVIATEDDAYNAMES           As Long = 8
Public Const SABBREVIATEDMONTHNAMES         As Long = 9
Public Const SAMDESIGNATOR                  As Long = 10
Public Const SDATESEPARATOR                 As Long = 11
Public Const SDAYNAMES                      As Long = 12
Public Const SLONGDATEPATTERN               As Long = 13
Public Const SLONGTIMEPATTERN               As Long = 14
Public Const SMONTHDAYPATTERN               As Long = 15
Public Const SMONTHNAMES                    As Long = 16
Public Const SPMDESIGNATOR                  As Long = 17
Public Const SSHORTDATEPATTERN              As Long = 18
Public Const SSHORTTIMEPATTERN              As Long = 19
Public Const STIMESEPARATOR                 As Long = 20
Public Const SYEARMONTHPATTERN              As Long = 21
Public Const SALLLONGDATEPATTERNS           As Long = 22
Public Const SALLSHORTDATEPATTERNS          As Long = 23
Public Const SALLLONGTIMEPATTERNS           As Long = 24
Public Const SALLSHORTTIMEPATTERNS          As Long = 25
Public Const SALLMONTHDAYPATTERNS           As Long = 26
Public Const SCURRENCYGROUPSIZES            As Long = 27
Public Const SNUMBERGROUPSIZES              As Long = 28
Public Const SPERCENTGROUPSIZES             As Long = 29
Public Const SCURRENCYDECIMALSEPARATOR      As Long = 30
Public Const SCURRENCYGROUPSEPARATOR        As Long = 31
Public Const SCURRENCYSYMBOL                As Long = 32
Public Const SNANSYMBOL                     As Long = 33
Public Const SNEGATIVEINFINITYSYMBOL        As Long = 34
Public Const SNEGATIVESIGN                  As Long = 35
Public Const SNUMBERDECIMALSEPARATOR        As Long = 36
Public Const SNUMBERGROUPSEPARATOR          As Long = 37
Public Const SPERCENTDECIMALSEPARATOR       As Long = 38
Public Const SPERCENTGROUPSEPARATOR         As Long = 39
Public Const SPERCENTSYMBOL                 As Long = 40
Public Const SPERMILLESYMBOL                As Long = 41
Public Const SPOSITIVEINFINITYSYMBOL        As Long = 42
Public Const SPOSITIVESIGN                  As Long = 43


' Used for GetLocaleInfo API
Public Const LOCALE_RETURN_NUMBER As Long = &H20000000
Public Const LOCALE_ICENTURY As Long = &H24
Public Const LOCALE_ICOUNTRY As Long = &H5
Public Const LOCALE_ICURRDIGITS As Long = &H19
Public Const LOCALE_ICURRENCY As Long = &H1B
Public Const LOCALE_IDATE As Long = &H21
Public Const LOCALE_IDAYLZERO As Long = &H26
Public Const LOCALE_IDEFAULTANSICODEPAGE As Long = &H1004
Public Const LOCALE_IDEFAULTCODEPAGE As Long = &HB
Public Const LOCALE_IDEFAULTCOUNTRY As Long = &HA
Public Const LOCALE_IDEFAULTEBCDICCODEPAGE As Long = &H1012
Public Const LOCALE_IDEFAULTLANGUAGE As Long = &H9
Public Const LOCALE_IDEFAULTMACCODEPAGE As Long = &H1011
Public Const LOCALE_IDIGITS As Long = &H11
Public Const LOCALE_IDIGITSUBSTITUTION As Long = &H1014
Public Const LOCALE_IFIRSTDAYOFWEEK As Long = &H100C
Public Const LOCALE_IFIRSTWEEKOFYEAR As Long = &H100D
Public Const LOCALE_IINTLCURRDIGITS As Long = &H1A
Public Const LOCALE_ILANGUAGE As Long = &H1
Public Const LOCALE_ILDATE As Long = &H22
Public Const LOCALE_ILZERO As Long = &H12
Public Const LOCALE_IMEASURE As Long = &HD
Public Const LOCALE_IMONLZERO As Long = &H27
Public Const LOCALE_INEGCURR As Long = &H1C
Public Const LOCALE_INEGNUMBER As Long = &H1010
Public Const LOCALE_INEGSEPBYSPACE As Long = &H57
Public Const LOCALE_INEGSIGNPOSN As Long = &H53
Public Const LOCALE_INEGSYMPRECEDES As Long = &H56
Public Const LOCALE_IOPTIONALCALENDAR As Long = &H100B
Public Const LOCALE_IPAPERSIZE As Long = &H100A
Public Const LOCALE_IPOSSEPBYSPACE As Long = &H55
Public Const LOCALE_IPOSSIGNPOSN As Long = &H52
Public Const LOCALE_IPOSSYMPRECEDES As Long = &H54
Public Const LOCALE_ITIME As Long = &H23
Public Const LOCALE_ITIMEMARKPOSN As Long = &H1005
Public Const LOCALE_ITLZERO As Long = &H25
Public Const LOCALE_NOUSEROVERRIDE As Long = &H80000000
Public Const LOCALE_S1159 As Long = &H28
Public Const LOCALE_S2359 As Long = &H29
Public Const LOCALE_SABBREVCTRYNAME As Long = &H7
Public Const LOCALE_SABBREVDAYNAME1 As Long = &H31
Public Const LOCALE_SABBREVDAYNAME2 As Long = &H32
Public Const LOCALE_SABBREVDAYNAME3 As Long = &H33
Public Const LOCALE_SABBREVDAYNAME4 As Long = &H34
Public Const LOCALE_SABBREVDAYNAME5 As Long = &H35
Public Const LOCALE_SABBREVDAYNAME6 As Long = &H36
Public Const LOCALE_SABBREVDAYNAME7 As Long = &H37
Public Const LOCALE_SABBREVLANGNAME As Long = &H3
Public Const LOCALE_SABBREVMONTHNAME1 As Long = &H44
Public Const LOCALE_SABBREVMONTHNAME10 As Long = &H4D
Public Const LOCALE_SABBREVMONTHNAME11 As Long = &H4E
Public Const LOCALE_SABBREVMONTHNAME12 As Long = &H4F
Public Const LOCALE_SABBREVMONTHNAME13 As Long = &H100F
Public Const LOCALE_SABBREVMONTHNAME2 As Long = &H45
Public Const LOCALE_SABBREVMONTHNAME3 As Long = &H46
Public Const LOCALE_SABBREVMONTHNAME4 As Long = &H47
Public Const LOCALE_SABBREVMONTHNAME5 As Long = &H48
Public Const LOCALE_SABBREVMONTHNAME6 As Long = &H49
Public Const LOCALE_SABBREVMONTHNAME7 As Long = &H4A
Public Const LOCALE_SABBREVMONTHNAME8 As Long = &H4B
Public Const LOCALE_SABBREVMONTHNAME9 As Long = &H4C
Public Const LOCALE_SCOUNTRY As Long = &H6
Public Const LOCALE_SCURRENCY As Long = &H14
Public Const LOCALE_SDATE As Long = &H1D
Public Const LOCALE_SDAYNAME1 As Long = &H2A
Public Const LOCALE_SDAYNAME2 As Long = &H2B
Public Const LOCALE_SDAYNAME3 As Long = &H2C
Public Const LOCALE_SDAYNAME4 As Long = &H2D
Public Const LOCALE_SDAYNAME5 As Long = &H2E
Public Const LOCALE_SDAYNAME6 As Long = &H2F
Public Const LOCALE_SDAYNAME7 As Long = &H30
Public Const LOCALE_SDECIMAL As Long = &HE
Public Const LOCALE_SENGCOUNTRY As Long = &H1002
Public Const LOCALE_SENGCURRNAME As Long = &H1007
Public Const LOCALE_SENGLANGUAGE As Long = &H1001
Public Const LOCALE_SGROUPING As Long = &H10
Public Const LOCALE_SINTLSYMBOL As Long = &H15
Public Const LOCALE_SISO3166CTRYNAME As Long = &H5A
Public Const LOCALE_SISO639LANGNAME As Long = &H59
Public Const LOCALE_SLANGUAGE As Long = &H2
Public Const LOCALE_SLIST As Long = &HC
Public Const LOCALE_SLONGDATE As Long = &H20
Public Const LOCALE_SMONDECIMALSEP As Long = &H16
Public Const LOCALE_SMONGROUPING As Long = &H18
Public Const LOCALE_SMONTHNAME1 As Long = &H38
Public Const LOCALE_SMONTHNAME10 As Long = &H41
Public Const LOCALE_SMONTHNAME11 As Long = &H42
Public Const LOCALE_SMONTHNAME12 As Long = &H43
Public Const LOCALE_SMONTHNAME13 As Long = &H100E
Public Const LOCALE_SMONTHNAME2 As Long = &H39
Public Const LOCALE_SMONTHNAME3 As Long = &H3A
Public Const LOCALE_SMONTHNAME4 As Long = &H3B
Public Const LOCALE_SMONTHNAME5 As Long = &H3C
Public Const LOCALE_SMONTHNAME6 As Long = &H3D
Public Const LOCALE_SMONTHNAME7 As Long = &H3E
Public Const LOCALE_SMONTHNAME8 As Long = &H3F
Public Const LOCALE_SMONTHNAME9 As Long = &H40
Public Const LOCALE_SMONTHOUSANDSEP As Long = &H17
Public Const LOCALE_SNATIVECTRYNAME As Long = &H8
Public Const LOCALE_SNATIVECURRNAME As Long = &H1008
Public Const LOCALE_SNATIVEDIGITS As Long = &H13
Public Const LOCALE_SNATIVELANGNAME As Long = &H4
Public Const LOCALE_SNEGATIVESIGN As Long = &H51
Public Const LOCALE_SPOSITIVESIGN As Long = &H50
Public Const LOCALE_SSHORTDATE As Long = &H1F
Public Const LOCALE_SSORTNAME As Long = &H1013
Public Const LOCALE_STHOUSAND As Long = &HF&
Public Const LOCALE_STIME As Long = &H1E
Public Const LOCALE_STIMEFORMAT As Long = &H1003
Public Const LOCALE_SYEARMONTH As Long = &H1006

'
' Cryptography Constants
'
Public Const PROV_RSA_FULL          As Long = 1
Public Const PROV_DSS_DH            As Long = 13

Public Const KP_IV                  As Long = 1
Public Const KP_MODE                As Long = 4
Public Const KP_MODE_BITS           As Long = 5
Public Const KP_EFFECTIVE_KEYLEN    As Long = 19
Public Const KP_SALT                As Long = 2
Public Const KP_PERMISSIONS         As Long = 6

Public Const PP_NAME                As Long = 4
Public Const PP_UNIQUE_CONTAINER    As Long = 36
Public Const PP_CONTAINER           As Long = 6
Public Const PP_PROVTYPE            As Long = 16
Public Const PP_ENUMALGS            As Long = 1


Public Const ALG_CLASS_DATA_ENCRYPT As Long = (3 * 2 ^ 13)
Public Const ALG_TYPE_BLOCK         As Long = (3 * 2 ^ 9)
Public Const ALG_SID_DES            As Long = 1
Public Const ALG_SID_RC2            As Long = 2
Public Const ALG_SID_3DES           As Long = 3
Public Const ALG_SID_3DES_112       As Long = 9
Public Const ALG_CLASS_HASH         As Long = (4 * 2 ^ 13)
Public Const ALG_TYPE_ANY           As Long = 0
Public Const ALG_SID_SHA1           As Long = 4
Public Const ALG_SID_MD5            As Long = 3
Public Const ALG_CLASS_KEY_EXCHANGE As Long = (5 * 2 ^ 13)
Public Const ALG_TYPE_RSA           As Long = (2 * 2 ^ 9)
Public Const ALG_SID_RSA_ANY        As Long = 0
Public Const ALG_CLASS_SIGNATURE    As Long = (1 * 2 ^ 13)
Public Const ALG_SID_DSS_ANY        As Long = 0
Public Const ALG_TYPE_DSS           As Long = (1 * 2 ^ 9)

Public Const CALG_DES               As Long = (ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_DES)
Public Const CALG_RC2               As Long = (ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_RC2)
Public Const CALG_3DES              As Long = (ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_3DES)
Public Const CALG_3DES_112          As Long = (ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_3DES_112)
Public Const CALG_SHA1              As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA1)
Public Const CALG_MD5               As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5)
Public Const CALG_RSA_KEYX          As Long = (ALG_CLASS_KEY_EXCHANGE Or ALG_TYPE_RSA Or ALG_SID_RSA_ANY)
Public Const CALG_RSA_SIGN          As Long = (ALG_CLASS_SIGNATURE Or ALG_TYPE_RSA Or ALG_SID_RSA_ANY)
Public Const CALG_DSS_SIGN          As Long = (ALG_CLASS_SIGNATURE Or ALG_TYPE_DSS Or ALG_SID_DSS_ANY)

Public Const CRYPT_OAEP             As Long = &H40
Public Const CRYPT_EXPORTABLE       As Long = &H1
Public Const CRYPT_ARCHIVABLE       As Long = &H4000&
Public Const CRYPT_USER_PROTECTED   As Long = &H2
Public Const CRYPT_MODE_CBC         As Long = 1
Public Const CRYPT_MACHINE_KEYSET   As Long = &H20
Public Const CRYPT_NEWKEYSET        As Long = &H8
Public Const CRYPT_DELETEKEYSET     As Long = &H10
Public Const CRYPT_DECRYPT          As Long = &H2
Public Const CRYPT_OID_INFO_NAME_KEY As Long = 2
Public Const CRYPT_EXPORT           As Long = &H4
Public Const CRYPT_FIRST            As Long = 1
Public Const CRYPT_NO_SALT          As Long = &H10

Public Const PKCS7_PADDING          As Long = 2


Public Const HP_HASHSIZE            As Long = &H4
Public Const HP_HASHVAL             As Long = &H2

Public Const AT_KEYEXCHANGE         As Long = 1
Public Const AT_SIGNATURE           As Long = 2

Public Const NTE_BAD_KEYSET         As Long = &H80090016
Public Const NTE_EXISTS             As Long = &H8009000F
Public Const NTE_NO_KEY             As Long = &H8009000D

Public Const PUBLICKEYBLOB          As Long = &H6
Public Const PRIVATEKEYBLOB         As Long = &H7
Public Const SIMPLEBLOB             As Long = &H1

Public Const MS_ENH_DSS_DH_PROV     As String = "Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider"
Public Const MS_DEF_DSS_DH_PROV     As String = "Microsoft Base DSS and Diffie-Hellman Cryptographic Provider"
Public Const MS_DEF_PROV            As String = "Microsoft Base Cryptographic Provider v1.0"
Public Const MS_STRONG_PROV         As String = "Microsoft Strong Cryptographic Provider"
Public Const MS_ENHANCED_PROV       As String = "Microsoft Enhanced Cryptographic Provider v1.0"

Public Type PROV_ENUMALGS
    aiAlgid As Long
    dwBitLen As Long
    dwNameLen As Long
    szName As String * 20
End Type