home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / MCSECURE.ZIP / MCSECURE.INC < prev    next >
Encoding:
Text File  |  1996-08-25  |  8.1 KB  |  154 lines
  1. Attribute VB_Name = "SECURITY_inc"
  2. Option Explicit
  3.  
  4. ' definition for encrypt/decrypt
  5. Public Const ENCRYPT_LEVEL_0 = 0
  6. Public Const ENCRYPT_LEVEL_1 = 1
  7. Public Const ENCRYPT_LEVEL_2 = 2
  8. Public Const ENCRYPT_LEVEL_3 = 3
  9. Public Const ENCRYPT_LEVEL_4 = 4
  10.  
  11. Public Const CRYPTO_KEY_TOO_SMALL = -1
  12. Public Const CRYPTO_CANT_INIT_KEY = -2
  13. Public Const CRYPTO_CANT_INIT_BUFFER = -11
  14. Public Const CRYPTO_CANT_OPEN_FILEIN = -21
  15. Public Const CRYPTO_CANT_CREATE_FILEOUT = -22
  16. Public Const CRYPTO_ERROR_READING_FILEIN = -31
  17. Public Const CRYPTO_ERROR1_WRITING_FILEOUT = -41
  18. Public Const CRYPTO_ERROR2_WRITING_FILEOUT = -42
  19. Public Const CRYPTO_ERROR1_WRITING_LASTBYTE = -51
  20. Public Const CRYPTO_ERROR2_WRITING_LASTBYTE = -52
  21. Public Const CRYPTO_BAD_LASTBYTE = -61
  22.  
  23. Public Const RUBY_MODE_MINIMUM = 1           ' speed is of the essence, security secondary.
  24. Public Const RUBY_MODE_DESK_LOCK = 2         ' reasonable compromise of speed vs security.
  25. Public Const RUBY_MODE_DEAD_BOLT = 4         ' default = probably good enough for most things.
  26. Public Const RUBY_MODE_PORTABLE_SAFE = 5     ' security is more important than speed.
  27. Public Const RUBY_MODE_ANCHORED_SAFE = 8     ' speed isn't much of a concern.
  28. Public Const RUBY_MODE_BANK_VAULT = 10       ' your pentium has nothing better to do, anyway.
  29. Public Const RUBY_MODE_FORT_KNOX = 16        ' be cool.
  30.  
  31. ' definition for FILECRC32
  32. Public Const OPEN_MODE_BINARY = 0
  33. Public Const OPEN_MODE_TEXT = 1
  34.  
  35. #If Win16 Then
  36.  
  37. ' structure for serialization
  38. Type tagSERIALDATA
  39.    Description1      As String * 50       'serialization description 1
  40.    Description2      As String * 50       'serialization description 2
  41.    Number            As Long              'serialization number
  42.    Dummy             As String * 50       'reserved for future use
  43. End Type
  44.  
  45. ' structure for media-id
  46. Type tagDOSMEDIAID
  47.    InfoLevel            As Integer
  48.    SerialNumber         As Long
  49.    VolLabel             As String * 11
  50.    FileSysType          As String * 8
  51. End Type
  52.  
  53. #Else
  54.  
  55. ' structure for serialization
  56. Type tagSERIALDATA
  57.    Description1      As String * 52       'serialization description 1
  58.    Description2      As String * 52       'serialization description 2
  59.    Number            As Long              'serialization number
  60.    Dummy             As String * 52       'reserved for future use
  61. End Type
  62.  
  63. ' structure for dos media-id
  64. Type tagDOSMEDIAID
  65.    InfoLevel            As String * 2     'use cCVI for integer conversion
  66.    SerialNumber         As String * 4     'use cCVL for long conversion
  67.    VolLabel             As String * 11
  68.    FileSysType          As String * 8
  69. End Type
  70.  
  71. '  structure for get Media ID (Win95/WinNT)
  72. Type tagMEDIAID
  73.    VolumeName           As String
  74.    VolumeSerialNumber   As Long
  75.    SystemName           As String
  76.    MaxNameLength        As Long
  77.    FileSystemFlags      As Long
  78. End Type
  79.  
  80. #End If
  81.  
  82. #If Win16 Then
  83.  
  84. Declare Function cGetVersion Lib "mcsec-16.dll" () As Single
  85.  
  86. Declare Function cIsSerial Lib "mcsec-16.dll" (ByVal File1 As String) As Integer
  87. Declare Function cSerialGet Lib "mcsec-16.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer
  88. Declare Function cSerialInc Lib "mcsec-16.dll" (ByVal FILE As String, ByVal Increment As Long) As Integer
  89. Declare Function cSerialPut Lib "mcsec-16.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer
  90. Declare Function cSerialRmv Lib "mcsec-16.dll" (ByVal FILE As String) As Integer
  91.  
  92. Declare Function cHashMD5 Lib "mcsec-16.dll" (Text As String) As String
  93. Declare Function cRegistrationKey Lib "mcsec-16.dll" (ByVal RegString As String, ByVal RegCode As Long) As Long
  94.  
  95. Declare Function cFileCRC32 Lib "mcsec-16.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  96. Declare Function cStringCRC32 Lib "mcsec-16.dll" (Txt As String) As Long
  97.  
  98. Declare Function cDecrypt Lib "mcsec-16.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  99. Declare Function cEncrypt Lib "mcsec-16.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  100.  
  101. Declare Function cFileDecrypt Lib "mcsec-16.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  102. Declare Function cFileEncrypt Lib "mcsec-16.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  103.  
  104. Declare Function cDOSGetMediaID Lib "mcsec-16.dll" (ByVal nDrive As String, DOSMEDIAID As tagDOSMEDIAID) As Integer
  105. Declare Function cDOSSetMediaID Lib "mcsec-16.dll" (ByVal nDrive As String, DOSMEDIAID As tagDOSMEDIAID) As Integer
  106.  
  107. Declare Function cGZIPFileCompress Lib "mcsec-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  108. Declare Function cGZIPFileExpand Lib "mcsec-16.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  109. Declare Function cGZIPStringCompress Lib "mcsec-16.dll" (Txt As String) As String
  110. Declare Function cGZIPStringExpand Lib "mcsec-16.dll" (Txt As String) As String
  111.  
  112. Declare Function cRUBYdecrypt Lib "mcsec-16.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  113. Declare Function cRUBYencrypt Lib "mcsec-16.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  114. Declare Function cRUBYdecryptFile Lib "mcsec-16.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  115. Declare Function cRUBYencryptFile Lib "mcsec-16.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  116.  
  117. #Else
  118.  
  119. Declare Function cGetVersion Lib "mcsec-32.dll" () As Single
  120.  
  121. Declare Function cIsSerial Lib "mcsec-32.dll" (ByVal File1 As String) As Integer
  122. Declare Function cSerialGet Lib "mcsec-32.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer
  123. Declare Function cSerialInc Lib "mcsec-32.dll" (ByVal FILE As String, ByVal Increment As Long) As Integer
  124. Declare Function cSerialPut Lib "mcsec-32.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer
  125. Declare Function cSerialRmv Lib "mcsec-32.dll" (ByVal FILE As String) As Integer
  126.  
  127. Declare Function cHashMD5 Lib "mcsec-32.dll" (Text As String) As String
  128. Declare Function cRegistrationKey Lib "mcsec-32.dll" (ByVal RegString As String, ByVal RegCode As Long) As Long
  129.  
  130. Declare Function cFileCRC32 Lib "mcsec-32.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  131. Declare Function cStringCRC32 Lib "mcsec-32.dll" (Txt As String) As Long
  132.  
  133. Declare Function cDecrypt Lib "mcsec-32.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  134. Declare Function cEncrypt Lib "mcsec-32.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  135.  
  136. Declare Function cFileDecrypt Lib "mcsec-32.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  137. Declare Function cFileEncrypt Lib "mcsec-32.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  138.  
  139. Declare Function cGetMediaID Lib "mcsec-32.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  140. Declare Function cDOSGetMediaID Lib "mcsec-32.dll" (ByVal nDrive As String, DOSMEDIAID As tagDOSMEDIAID) As Integer
  141. Declare Function cDOSSetMediaID Lib "mcsec-32.dll" (ByVal nDrive As String, DOSMEDIAID As tagDOSMEDIAID) As Integer
  142.  
  143. Declare Function cGZIPFileCompress Lib "mcsec-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  144. Declare Function cGZIPFileExpand Lib "mcsec-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  145. Declare Function cGZIPStringCompress Lib "mcsec-32.dll" (Txt As String) As String
  146. Declare Function cGZIPStringExpand Lib "mcsec-32.dll" (Txt As String) As String
  147.  
  148. Declare Function cRUBYdecrypt Lib "mcsec-32.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  149. Declare Function cRUBYencrypt Lib "mcsec-32.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  150. Declare Function cRUBYdecryptFile Lib "mcsec-32.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  151. Declare Function cRUBYencryptFile Lib "mcsec-32.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  152.  
  153. #End If
  154.