易语言自用注册码生成及注册码验证源码
一、以下是获取注硬件信息生成注册码及判断注册文件
.版本 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_被单击
生成密文 ()

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。