完整版易语言自用注册码生成及注册码验证源码.doc

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

一、以下是获取注硬件信息生成注册码及判断注册文件
.版本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_被单击

生成密文()