易语言API随机取数模块源码

系统结构:GenerateRandom,GenerateRandomLong,GenerateRandomInteger,CryptAcquireContext,CryptCreateHash,CryptDestroyHash,CryptGetHashParam,CryptGenRandom,CryptHashData,CryptGenRandomInteger,CryptGenRandomlong,CryptReleaseContext,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ GenerateRandom
           |  |
           |  |------ GenerateRandomLong
           |  |
           |  |------ GenerateRandomInteger
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CryptAcquireContext
           |  |
           |  |---[dll]------   CryptCreateHash
           |  |
           |  |---[dll]------   CryptDestroyHash
           |  |
           |  |---[dll]------   CryptGetHashParam
           |  |
           |  |---[dll]------   CryptGenRandom
           |  |
           |  |---[dll]------   CryptHashData
           |  |
           |  |---[dll]------   CryptGenRandomInteger
           |  |
           |  |---[dll]------   CryptGenRandomlong
           |  |
           |  |---[dll]------   CryptReleaseContext

调用的DLL命令:

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

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

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

.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam"
    .参数 pCryptHash, 整数型
    .参数 dwParam, 整数型
    .参数 pbData, 整数型, 传址
    .参数 pcbData, 整数型, 传址
    .参数 dwFlags, 整数型

.DLL命令 CryptGenRandom, 整数型, "advapi32.dll", "CryptGenRandom"
    .参数 pCryptHash, 整数型
    .参数 dwLength, 整数型
    .参数 pbData, 字节型, 传址 数组

.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData"
    .参数 hHash, 整数型
    .参数 pbData, 文本型
    .参数 dwDataLen, 整数型
    .参数 dwFlags, 整数型

.DLL命令 CryptGenRandomInteger, 整数型, "advapi32.dll", "CryptGenRandom"
    .参数 pCryptHash, 整数型
    .参数 dwLength, 整数型
    .参数 pbData, 长整数型, 传址

.DLL命令 CryptGenRandomlong, 整数型, "advapi32.dll", "CryptGenRandom"
    .参数 pCryptHash, 整数型
    .参数 dwLength, 整数型
    .参数 pbData, 整数型, 传址

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