首页 > 专利信息

易语言注册机生成永久或限时注册码的写法

易语⾔注册机⽣成永久或限时注册码的写法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, 整数型

.参数 pByte, 字节集

.参数 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

程序集窗⼝程序集1

.⼦程序 _⽣成按钮_被单击

.局部变量 sj1, ⽂本型

.局部变量 sj2, ⽂本型

.局部变量 sj3, ⽂本型

.局部变量临时⽂本, ⽂本型

.局部变量临时时间, ⽇期时间型

.如果 (类型组合框.现⾏选中项＝ 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)))多人交互式VR

.⼦程序 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))

运⾏结果：

总结

以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接

本文发布于:2024-09-22 10:07:54，感谢您对本站的认可！

本文链接：https://www.17tex.com/tex/2/104697.html

上一篇：天正建筑2014破解版的安装方法

下一篇：OD的常用命令

标签：字节内容时间注册码程序编辑框整数型数据

留言与评论（共有 0 条评论）