服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - 易语言 - 易语言注册机生成永久或限时注册码的写法

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

2022-02-16 16:58易语言源码教程 易语言

今天小编就为大家分享一篇关于易语言注册机生成永久或限时注册码的写法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

DLL命令表

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
.版本 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, 整数型

生成注册码的代码

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
.版本 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)))
.子程序 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))

运行结果:

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

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

延伸 · 阅读

精彩推荐
  • 易语言实例操作易语言载入窗口

    实例操作易语言载入窗口

    在本文中小编给大家整理的是关于易语言载入窗口的教程和步骤内容,需要的可以跟着学习下...

    易语言教程网19162022-03-02
  • 易语言易语言关于程序进程和线程的基础知识

    易语言关于程序进程和线程的基础知识

    今天小编就为大家分享一篇关于易语言关于程序进程和线程的基础知识,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起...

    三叶资源网6662022-02-24
  • 易语言一步一步跟我学易语言之第二个易程序菜单设计

    一步一步跟我学易语言之第二个易程序菜单设计

    今天小编就为大家分享一篇关于的一步一步跟我学易语言之第二个易程序菜单设计,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要...

    易语言帮助手册7092021-06-17
  • 易语言易语言生成exe文件的方法

    易语言生成exe文件的方法

    在本篇内容中小编给大家分享的是关于易语言生成exe文件的方法知识点,需要的朋友们参考下。...

    易语言教程网14792022-03-01
  • 易语言易语言设置进度条边框样式的方法

    易语言设置进度条边框样式的方法

    今天小编就为大家分享一篇关于易语言设置进度条边框样式的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册4422022-01-20
  • 易语言一步一步跟我学易语言之关于变量

    一步一步跟我学易语言之关于变量

    今天小编就为大家分享一篇关于一步一步跟我学易语言之关于变量,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册10822021-06-17
  • 易语言易语言获取指定磁盘的名称

    易语言获取指定磁盘的名称

    今天小编就为大家分享一篇关于易语言获取指定磁盘的名称,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来...

    易语言帮助手册12662022-01-04
  • 易语言易语言在画板中写出指定文本当画板中已满会自动滚屏

    易语言在画板中写出指定文本当画板中已满会自动滚屏

    今天小编就为大家分享一篇关于易语言在画板中写出指定文本当画板中已满会自动滚屏,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,...

    易语言帮助手册9092022-01-12