win32api.bas

一个类化的完整的AES实现方案.包含128Bit 256 Bit.不同的加密强度的完整的AES算法.同时也是一个成型的程序.可以用来直接加密需要保护的文件.

Attribute VB_Name = "Win32API"
Option Explicit

Public Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Const FILE_SHARE_DELETE As Long = &H4
Public Const FILE_SHARE_READ As Long = &H1
Public Const FILE_SHARE_WRITE As Long = &H2

Public Const GENERIC_EXECUTE As Long = &H20000000
Public Const GENERIC_READ As Long = &H80000000
Public Const GENERIC_WRITE As Long = &H40000000

Public Const CREATE_ALWAYS As Long = 2
Public Const CREATE_NEW As Long = 1
Public Const OPEN_ALWAYS As Long = 4
Public Const OPEN_EXISTING As Long = 3
Public Const TRUNCATE_EXISTING As Long = 5

Public Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20
Public Const FILE_ATTRIBUTE_ENCRYPTED As Long = &H4000
Public Const FILE_ATTRIBUTE_HIDDEN As Long = &H2
Public Const FILE_ATTRIBUTE_NORMAL As Long = &H80
Public Const FILE_ATTRIBUTE_OFFLINE As Long = &H1000
Public Const FILE_ATTRIBUTE_READONLY As Long = &H1
Public Const FILE_ATTRIBUTE_SYSTEM As Long = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY As Long = &H100

Public Const FILE_FLAG_BACKUP_SEMANTICS As Long = &H2000000
Public Const FILE_FLAG_DELETE_ON_CLOSE As Long = &H4000000
Public Const FILE_FLAG_NO_BUFFERING As Long = &H20000000
Public Const FILE_FLAG_OPEN_NO_RECALL As Long = &H100000
Public Const FILE_FLAG_OPEN_REPARSE_POINT As Long = &H200000
Public Const FILE_FLAG_OVERLAPPED As Long = &H40000000
Public Const FILE_FLAG_POSIX_SEMANTICS As Long = &H1000000
Public Const FILE_FLAG_RANDOM_ACCESS As Long = &H10000000
Public Const FILE_FLAG_SEQUENTIAL_SCAN As Long = &H8000000
Public Const FILE_FLAG_WRITE_THROUGH As Long = &H80000000

Public Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As Any) As Long
Public Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByRef lpOverlapped As Any) As Long
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Public Declare Function GetFileSize Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpFileSizeHigh As Long) As Long