易语⾔注册机⽣成永久或限时注册码的写法DLL命令表 .版本 2
.DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash", 公开
.参数 hProv, 整数型
.参数 Algid, 整数型
.参数 hKey, 整数型
.参数 dwFlags, 整数型
.参数 phHash, 整数型, 传址
.DLL命令 CryptDestroyHash, 整数型, "advapi32.dll", "CryptDestroyHash", 公开
.参数 hHash, 整数型, 传址
.DLL命令 CryptGetHashParam, 整数型, "advapi32.dll", "CryptGetHashParam", 公开
.
参数 hHash, 整数型
.参数 dwParam, 整数型
.参数 pdwDataLen, 整数型, 传址
.参数 dwFlags, 整数型
.DLL命令 CryptReleaseContext, 整数型, "advapi32.dll", "CryptReleaseContext", 公开
.参数 hProv, 整数型, 传址
.参数 dwFlags, 整数型, 传址
.DLL命令 CryptHashData, 整数型, "advapi32.dll", "CryptHashData", 公开
.参数 hHash, 整数型
.参数 pbData, 字节集, 传址
.
参数 dwDataLen, 整数型
.参数 dwFlags, 整数型
.DLL命令 CryptAcquireContextA, 整数型, "advapi32.dll", "CryptAcquireContextA", 公开
.参数 phProv, 整数型, 传址
.参数 pszContainer, ⽂本型
.参数 pszProvider, ⽂本型
.参数 dwProvType, 整数型
.参数 dwFlags, 整数型
⽣成注册码的代码
.版本 2
.⽀持库 dp1
.
.⼦程序 _⽣成按钮_被单击
.局部变量 sj1, ⽂本型
.局部变量 sj2, ⽂本型
.局部变量 sj3, ⽂本型
.局部变量临时⽂本, ⽂本型
叉车防撞UWB.如果 (类型组合框.现⾏选中项= 0)
临时时间= [2080年12⽉31⽇]
.否则
临时时间=⽇期框.今天
.
如果结束
sj1 =到⽂本 (取年份 (临时时间))
转椅底盘sj2 =到⽂本 (取⽉份 (临时时间))
sj2 =选择 (取⽂本长度 (sj2) = 1, “0” + sj2, sj2)
sj3 =到⽂本 (取⽇ (临时时间))
sj3 =选择 (取⽂本长度 (sj3) = 1, “0” + sj3, sj3)
临时⽂本=到⽂本 (左移 (到数值 (sj1 + sj2 + sj3), 4))
临时⽂本=进制_⼗到⼗六 (到数值 (临时⽂本))
临时⽂本=临时⽂本+进制_⼗到⼗六 (取⽂本长度 (临时⽂本) + 1)
临时⽂本=到⼤写 (取数据摘要 (到字节集 (机器码编辑框.内容+校验_取sha1 (到字节集 (机器码编辑框.内容))))) +临时⽂本 注册码编辑框.内容=临时⽂本
置剪辑板⽂本 (注册码编辑框.内容)
.⼦程序 _类型组合框_列表项被选择
.如果 (类型组合框.现⾏选中项= 0)
⽇期框.禁⽌=真
.否则
⽇期框.禁⽌=假
.如果结束
.⼦程序进制_⼗到⼗六, ⽂本型, 公开, 运算_⼗进制到⼗六进制
.参数⼗进制数, 整数型
返回 (取⼗六进制⽂本 (⼗进制数))
.⼦程序校验_取sha1, ⽂本型, 公开, 返回40位的校验数据
表面微弧氧化处理.
儿童画写板
参数字节集数据, 字节集, , 要取数据摘要的字节集
返回 (到⼩写 (MD过程 (字节集数据, 32772, 20)))
.⼦程序 MD过程, ⽂本型
.参数 x, 字节集
.参数种类, 整数型
.参数长度, 整数型
.局部变量 hCryptProv, 整数型
.局部变量 hKey, 整数型
.局部变量 hHash, 整数型
.局部变量 pbBuffer, 字节集
.局部变量 cbHash, 整数型
.
局部变量 rgbHash, 字节集
.局部变量 rgbDigits, 字节集
.局部变量局_MD5, 字节集
.局部变量 b, 整数型
.局部变量 i, 整数型
.局部变量 len, 整数型
.如果 (CryptAcquireContextA (hCryptProv, “”, “”, 1, -268435456) = 0)
.如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, 0) = 0)
返回 (“”)
.如果真结束
.否则
.聚噻吩
如果 (CryptCreateHash (hCryptProv, 种类, hKey, 0, hHash) = 0)
CryptReleaseContext (hCryptProv, 0)
返回 (“”)
.否则
pbBuffer = x
len =取字节集长度 (x)
.如果 (CryptHashData (hHash, pbBuffer, len, 0) = 0)
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProv, 0)
返回 (“”)
.否则
rgbHash =取空⽩字节集 (长度)
cbHash =长度
.如果 (CryptGetHashParam (hHash, 2, rgbHash, cbHash, 0) = 0)
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProv, 0)
返回 (“”)
.否则
rgbDigits =到字节集 (“0123456789ABCDEF”)
局_MD5 =取空⽩字节集 (长度 × 2)
.变量循环⾸ (0, cbHash - 1, 1, i)
b = rgbHash [i + 1]
局_MD5 [i × 2 + 1] = rgbDigits [右移 (b, 4) + 1]
局_MD5 [i × 2 + 2] = rgbDigits [位与 (b, 15) + 1]
.变量循环尾 ()
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProv, 0)
.如果结束
.如果结束
.如果结束
.如果结束
返回 (到⽂本 (局_MD5))
运⾏结果:
飞机部件修理总结
以上就是这篇⽂章的全部内容了,希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值,谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接