易语言GETDisksn源码

系统结构:GUID,Hash,Disksn,HEXByte,ByteHex,CreateFileA,CryptAcquireContextA,CryptCreateHash,CryptReleaseContext,CryptHashData,CryptDestroyHash,CryptGetHashParam,DeviceIoControl,lstrcpyn,CloseHandle,CoCreateGuid,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ GUID
           |  |
           |  |------ Hash
           |  |
           |  |------ Disksn
           |  |
           |  |------ HEXByte
           |  |
           |  |------ ByteHex
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateFileA
           |  |
           |  |---[dll]------   CryptAcquireContextA
           |  |
           |  |---[dll]------   CryptCreateHash
           |  |
           |  |---[dll]------   CryptReleaseContext
           |  |
           |  |---[dll]------   CryptHashData
           |  |
           |  |---[dll]------   CryptDestroyHash
           |  |
           |  |---[dll]------   CryptGetHashParam
           |  |
           |  |---[dll]------   DeviceIoControl
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CoCreateGuid

调用的DLL命令:

.DLL命令 CreateFileA, 整数型, "kernel32.dll", "CreateFileA"
    .参数 打开文件名, 文本型
    .参数 访问权限, 整数型
    .参数 共享方式, 整数型
    .参数 security特性, 整数型
    .参数 创建方式, 整数型
    .参数 文件属性, 整数型
    .参数 从文件复制文件属性, 整数型

.DLL命令 CryptAcquireContextA, 整数型, "advapi32.dll", "CryptAcquireContextA"
    .参数 phProv, 整数型, 传址
    .参数 pszContainer, 文本型
    .参数 pszProvider, 文本型
    .参数 dwProvType, 整数型
    .参数 dwFlags, 整数型

.DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash"
    .参数 hProv, 整数型
    .参数 Algid, 整数型
    .参数 hKey, 整数型
    .参数 dwFlags, 整数型
    .参数 phHash, 整数型, 传址

.DLL命令 CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext"
    .参数 hProv, 整数型, 传址
    .参数 dwFlags, 整数型, 传址

.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData"
    .参数 hHash, 整数型
    .参数 pbData, 字节集, 传址
    .参数 dwDataLen, 整数型
    .参数 dwFlags, 整数型

.DLL命令 CryptDestroyHash, 整数型, "advapi32.dll", "CryptDestroyHash"
    .参数 hHash, 整数型, 传址

.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam"
    .参数 hHash, 整数型
    .参数 dwParam, 整数型
    .参数 pByte, 字节集
    .参数 pdwDataLen, 整数型, 传址
    .参数 dwFlags, 整数型

.DLL命令 DeviceIoControl, 逻辑型, , "DeviceIoControl"
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, 整数型
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, 整数型
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 lstrcpyn, 整数型, , "lstrcpyn"
    .参数 byte, 字节集, 传址
    .参数 byte, 字节集, 传址
    .参数 Test, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32.dll", "CloseHandle"
    .参数 对象句柄, 整数型

.DLL命令 CoCreateGuid, , "ole32", "CoCreateGuid"
    .参数 guid, 字节集