易语言自用注册码生成及注册码验证源码

一、以下是获取注硬件信息生成注册码及判断注册文件

.版本 2

.支持库 eAPI

.支持库 dp1

.子程序是否注册, 逻辑型

.局部变量 cpu信息, CPU信息

.局部变量 bios信息, BIOS信息

.局部变量机器码, 文本型

.局部变量 a, 文本型, , "0"

.局部变量 b, 文本型, , "0"

.局部变量密码文件, 字节集

.局部变量 c, 字节集

.局部变量今天, 日期时间型

.局部变量年, 文本型

.局部变量月, 文本型

.局部变量日, 文本型

.局部变量 d, 文本型, , "0"

取CPU信息 (cpu信息)

取BIOS信息 (bios信息)

a ＝分割文本 (cpu信息.序列号, “-”, )

b ＝分割文本 (bios信息.序列号, “-”, )

机器码＝取数据摘要 (到字节集 (bios信息.序列号＋ cpu信息.序列号))

密码文件＝读入文件 (取当前目录 () ＋“\system.dll”)

c ＝解密数据 (密码文件, “868”, #DES算法)

.如果真 (机器码＝到文本 (c))

返回 (真)

.如果真结束

今天＝取现行时间 ()

年＝到文本 (取年份 (今天))

月＝到文本 (取月份 (今天))

日＝到文本 (取日 (今天))

d ＝分割文本 (到文本 (c), “/”, )

' 信息框 (年＋月＋日, 0, )

' 信息框 (d [1] ＋ d [2] ＋ d [3], 0, )

.如果真 (取数组成员数 (d) ＝ 3)

.如果真 (年＝ d [1])

.如果真 (月＝ d [2])

.如果真 (日≤ d [3])

信息框 (“用户你好:”＋ #换行符＋“你是试用版本到:”＋ d [1] ＋“年”＋ d [2] ＋“月”＋ d [3] ＋“日”＋“结束使用。”＋ #换行符＋“Ctrl+V复制到作者QQ”, #信息图标, “友情提示”)

置剪辑板文本 (机器码)

返回 (真)

.如果真结束

置剪辑板文本 (机器码)

信息框 (“你是未经作者同意使用本软件机器码也复制”, 0, ) 返回 (假)

二、以下是注册机生成器源码

.版本 2

.支持库 dp1

.程序集窗口程序集1

.程序集变量 a, 字节集

.子程序生成密文

.局部变量今天, 日期时间型

.局部变量年, 文本型

.局部变量月, 文本型

.局部变量日, 文本型

.局部变量 b, 文本型

.如果真 (编辑框_天数.内容＝“”)

.如果真 (信息框 (“有效天数如果为空时，默认365天使用时间！”, #是否钮＋ #警告图标, , ) ＝ #否钮)

返回 ()

.如果真结束

编辑框_天数.内容＝“365”

.如果真结束

今天＝取现行时间 ()

今天＝增减时间 (今天, #日, 到数值 (编辑框_天数.内容))

年＝到文本 (取年份 (今天))

月＝到文本 (取月份 (今天))

日＝到文本 (取日 (今天))

' 信息框 (到文本 (到数值 (日) ＋到数值 (编辑框2.内容)), 0, )

b ＝年＋“/”＋月＋“/”＋日

a ＝加密数据 (到字节集 (编辑框_机器码.内容＋“|”＋ b), “868”, #DES算法)

写到文件 (取当前目录 () ＋“\keypass.key”, a)

信息框 (“生成密钥文件成功！”＋取当前目录 () ＋“\keypass.key”, 0, , )

.子程序 _按钮_生成KEY_被单击生成密文 ()