易语言自用注册码生成及注册码验证源码
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
易语言自用注册码生成及注册码验证源码
一、以下是获取注硬件信息生成注册码及判断注册文件
.版本 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_被单击生成密文 ()