.版本 2
.support 库规范
.support 库 xplib
.支持库 eAPI
.Assembly 窗口 assembly_startup 窗口
.汇编变量注册码，文本类型
.Subroutine __Startup window_created
.local 变量临时字符串，文本类型
.local变量初始字符串长度，整数类型
.局部变量local_count，整数类型
.检索到的局部变量字符，文本类型
.local变量整型字符串，文本类型
_startup window.title = _startup window.title + #版本号
调试输出（到时间（“123”））
图片框1.picture = #banner2
XP 风格（1)
'判断目录是否存在有机器码算注册码，不存在则创建
.if(文件存在(取运行目录()+“\cmars配置文件”))
.否则
创建目录（取运行目录()+“\cmars配置文件”）
.如果结束
'判断是否有文字存放注册码
' 不存在则创建，存在则写入内容
。判断启动（文件是否存在（取运行目录（）+“/cmars配置文件/regnum.txt”））
编辑box_registration code.content = to text（读入文件（取运行目录（）+“/cmars配置文件/regnum.txt”））''邮箱显示
.默认
写入文件（取运行目录（）+“/cmars配置文件/regnum.txt”，写入字节集（“这里填写注册码！”））''如果不存在，创建配置文件并重复提示
编辑box_registration code.content = 为文本（读入文件（取运行目录（）+“/cmars配置文件/regnum.txt”））
.判断结束
' 获取机器码
edit box_machine code.content = 获取机器码()
调试输出（编辑 box_machine code.content）
调试输出（到整数（editbox_machinecode.content））
' 计算注册码以便进一步验证
临时字符串 = 编辑 box_machine code.content ' CDDE1A7E3EFDBFEBFBFF000306C3
初始字符串长度=获取文本长度（临时字符串）
调试输出（初始字符串长度）'28
.计数周期的开始（初始字符串长度，round_count）
要取的字符 = 取文本的左边（临时字符串，1)
.if (find text("1234567890", 提取字符, , false) ≠ -1) ' 描述是一个值
整数字符串 = 整数字符串 + 提取的字符
.否则
.如果结束
临时字符串 = 取文本正确（临时字符串，获取文本长度（临时字符串） - 1)
调试输出（临时字符串）
.count循环尾()
调试输出（整数字符串）
注册码 = to text(to integer(to integer(integer string) × 5.2 + 1314)) '注册码的计算规则可以自己定义
调试输出（注册码）
.子程序获取机器码，文本类型
.local变量输入内容，文本类型
.local变量输出内容，文本类型
.local 可变文本长度，整数类型
.局部变量i，整数类型
.局部变量临时变量I，整数类型
.局部变量临时变量J，整数类型
.local变量转换后的文本，文本类型
.local 变量临时，字节集
.local变量网卡地址、网卡信息、、“0”
.local变量网卡mac，文本类型
.局部变量CPU信息，CPU信息
.局部变量CPU，文本类型
.局部变量大写有机器码算注册码，文本，，“26”
.局部变量小写、文本、、“26”
.局部变量号，文本，，“26”
.local 变量计数次数，整数类型
.局部变量总计，文本类型
数字 = { “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”}
大写字母 = { “A”、“B”、“C”、“D”、“E”、“F”、“G”、“H”、“I”、“J”、“K” 、“L”、“M”、“N”、“O”、“P”、“Q”、“R”、“S”、“T”、“U”、“V”、“W”、“ X”、“Y”、“Z”}
小写字母 = { “a”、“b”、“c”、“d”、“e”、“f”、“g”、“h”、“i”、“j”、“k” 、“l”、“m”、“n”、“o”、“p”、“q”、“r”、“s”、“t”、“u”、“v”、“w”、“ x”、“y”、“z”}
获取CPU信息（CPU信息）
CPU = 取左侧文字（CPU info.serial number, 18)
网卡地址=获取网卡信息列表()
.判断开始（取数组成员数（网卡地址）≥1)
网卡mac=网卡地址[1].物理地址
.默认
网卡mac = "10-11-11-11-11-11"
.判断结束
输入 = 潜台词替换（网卡 mac, "-", "", , , true) + 潜台词替换（CPU, "-", "", , , true）
文本长度=获取文本长度（输入内容）
.循环开始的次数（文本长度，i）
转换后的文本=取文本中间（输入内容，i，1)
.if true（转换后的文本≥“A”且转换后的文本≤“Z”或转换后的文本≥“a”且转换后的文本≤“z”）
转换后的文本 = ""
.如果它结束了
输出内容=输出内容+转换后的文本
.count循环尾()
.count循环的开始（取文本长度（输入内容），临时变量I）
.count循环的开始（取数组成员的个数（大写字母），临时变量J）
.if true(taketextmiddle(input, tempI, 1) = uppercase[tempJ] 或 taketextmiddle(input, tempI, 1) = 小写字母[临时变量J])
编辑框1.添加文本（数字[临时变量J]）
.如果它结束了
' 本源代码来自易语言资源网()
.count循环尾()
.count循环尾()
temp = to byteset(subtext_replace(nic_mac, "-", "", , , true) + subtext_replace(cpu, "-", "", , , true))
.第一个循环计数次数（4，计数次数）
.if true (temp[count] ≠ 45 and temp[count] < 48 or temp[count] > 57)
到循环结束()
.如果它结束了
.if true(temp[count] = 48)
临时 [count] = 74
到循环结束()
.如果它结束了
.if true (temp [count] = 45)
临时 [count] = 77
到循环结束()
.如果它结束了
临时 [count] = 临时 [count] + 16
.count循环尾()
返回（到文本（临时））
.Subroutine_button1_被点击
设置剪贴板文本（编辑 box_machine code.content）
.Subroutine_button2_被点击
.local 变量注册码原始字符串，文本类型
.局部变量获取的注册码，文本类型
.局部变量加密QQ字符串，文本类型
.local变量解密代理QQ，文本类型
注册码原字符串=删除开头和结尾的空格（编辑box_registration code.content）'++++++++++++++++++++++++++ ++++++++++++++++++++
'注册码原字符串=“CMRS8599529603406082649”
' CMARS4304562307406082649
获取注册码=取文本右侧（注册码原字符串，获取文本长度（注册码））
.if(get_registration_key = to text(registration_key))
'解密代理的QQ
加密QQ字符串=获取指定内容（注册码原字符串，“CMRS”，注册码）
调试输出（加密QQ字符串）
解密代理QQ=转文本（转长整数（加密QQ字符串）-5201314916)
调试输出（“解密：”）
调试输出（解密代理QQ）
.if(转长整数(解密代理QQ)≤0) '如果不加客服QQ，默认官方QQ号
解密代理QQ = "9381037"
调试输出（“
